Bildschirmauflösungen und Zoomfunktion
18.01.2007 11:17:54
Uwe
gibt es eine Möglichkeit, sich über Excel die jeweiligen Bildschirmauflösungen und ggf Zollgröße zu holen (z.B. 1280X1024, 19'')?
Ich würde mir diese z.B. gerne in Zelle A1 (Auflösung) und A2 (Zollgröße) anzeigen lassen und die Zoomansicht an die jeweilige Einstellung anpassen.
Wie müsste das Makro aussehen, wenn direkt nach dem öffnen die Zoomfunktion an die Bildschirmeinstellung des jewiligen Users angepasst werden soll?
Wenn es keine Möglichkeit gibt, die Bildschirmdaten abzurufen, und ich dies entsprechend manuell in Excel eingebe und entsprechend mit Werte verknüpft wird (z.B. 19'' 1080X1024 = Wert 80 = Zommfaktor 80 oder 17'' 1080X1024 = Wert 70), wie müsste das Makro aussehen, wenn der entsprechende Zoomfaktor (z.B. 80%)in Zelle B1 stehen würde?
Ich habe es hiermit - jedoch erfolglos - versucht
Sub Zoom()
With ActiveSheet.PageSetup
.Zoom = Range("B1")
End With
End Sub
Ich hoffe, Ihr könnt mit helfen.
Gruß
Uwe