Inhaltsverzeichnis
ActiveWindow.Zoom
Sie können VBA verwenden, um den Zoom eines Arbeitsblatts zu ändern. Hier ist der Code, um den Zoom des ActiveWindow auf 50% zu ändern:
| 1 | ActiveWindow.Zoom = 50 |
Zoom auf allen Arbeitsblättern ändern
Sie können auch alle Arbeitsblätter in Ihrer Arbeitsmappe durchlaufen, um einen Standardzoom festzulegen. Das folgende Makro setzt den Zoom für alle Arbeitsblätter auf 50 %:
| 123456789101112131415161718192021 | Sub ZoomAll()Dim ws als ArbeitsblattApplication.ScreenUpdating = FalseFür jedes ws in Arbeitsblätternws.AktivierenActiveWindow.Zoom = 50NächsteApplication.ScreenUpdating = TrueEnd Sub |
Zoom Zoom
Und schließlich ein magisch wachsendes Arbeitsblatt. Das folgende Makro durchläuft die Zooms für Sheet1 von 10 % auf 200 %, erhöht sich um 10 %, pausiert eine Sekunde zwischen den Änderungen und stellt dann Sheet1 wieder in seinen ursprünglichen Zustand zurück.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub-ZoomZoom()Dim x As Integer 'Variable für SchleifeDim OriginalZoom As Integer 'Variable für OriginalzoomSheet1.Aktiviere 'Let's work with sheet1OriginalZoom = ActiveWindow.Zoom 'aktuellen Zoom abrufen'Loop durch Zoom 10 bis 200 mal 10Für x = 1 bis 20ActiveWindow.Zoom = x * 10Anwendung.Jetzt warten + TimeValue("00:00:01")Nächstes x'Original-Zoom wiederherstellenActiveWindow.Zoom = OriginalZoomEnd Sub |
