Bildschirmauflösung
07.07.2004 10:06:08
Tim
gibt es eine Möglichkeit die Bildschirmauflösung eines Users zu ermitteln
und beim öffnen eines Sheets auf die entsprechende Auflösung umzustellen?
Momentan habe ich dieses nur zum manuellen umstellen/anpassen.
Dieses wird aber nicht von jedem User verstanden und es kommen Fragen wie: "Hä, was ist eine Bildschirmauflösung?" - ohne Worte denke ich...
Mit diesen Auflösungen arbeiten jedenfalls die User:
Private Sub Aufloesung_800_x_600()
Sheets("Tabelle1").Select
ActiveWindow.Zoom = 78
Sheets("Tabelle1").Select
Application.ScreenUpdating = True
End Sub
Private Sub Aufloesung_1024_x_768()
Sheets("Tabelle1").Select
ActiveWindow.Zoom = 100
Sheets("Tabelle1").Select
Application.ScreenUpdating = True
End Sub
Private Sub Aufloesung_1280_x_1024()
Sheets("Tabelle1").Select
ActiveWindow.Zoom = 125
Sheets("Tabelle1").Select
Application.ScreenUpdating = True
End Sub
Die Ausgangsauflösung des Sheets ist 1024 x 768. Nun soll wenn ein User seine Auflösung auf, z.B. 1280 x 1024 hat, das Sheet beim öffnen auch in dieser Auflösung angezeigt werden.
Ist dies möglich?
Tim