VBA – Arbeitsblätter vergrößern und verkleinern

ActiveWindow.Zoom

Sie können VBA verwenden, um den Zoomfaktor eines Arbeitsblatts zu ändern. Hier ist der Code, um den Zoomfaktor von ActiveWindow auf 50% zu ändern:

ActiveWindow.Zoom = 50

Zoomfaktor auf allen Arbeitsblättern ändern

Sie können auch alle Arbeitsblätter in Ihrer Arbeitsmappe in einer Schleife durchlaufen, um einen Standard-Zoomfaktor einzustellen. Mit dem folgenden Makro wird der Zoomfaktor für alle Arbeitsblätter auf 50 % gesetzt:

Sub AlleZoomen()

  Dim ws As Worksheet

  Application.ScreenUpdating = False

  For Each ws In Worksheets
    ws.Activate
    ActiveWindow.Zoom = 50
  Next

  Application.ScreenUpdating = True

End Sub

Zoomen Zoomen

Und endlich ein magisch wachsendes Arbeitsblatt. Das folgende Makro durchläuft Zoomstufen für Tabelle1 in einer Schleife, geht von 10% bis 200%, erhöht um 10%, pausiert eine Sekunde zwischen den Änderungen und stellt dann den ursprünglichen Zustand von Tabelle1 wieder her.

Sub ZoomenZoomen()
Dim x As Integer 'Variable für Schleife
Dim OriginalZoomFaktor As Integer 'Variable für den ursprünglichen Zoomfaktor

Tabelle1.Activate 'Arbeiten wir mit Tabelle1

OriginalZoomFaktor = ActiveWindow.Zoom 'Aktuellen Zoomfaktor ermitteln

'Schleife von Zoom 10 bis 200 iin 10er Schritten
    For x = 1 To 20
        ActiveWindow.Zoom = x * 10
        Application.Wait Now + TimeValue("00:00:01")
    Next x
    
'Den Ursprünglichen Zoomfaktor wiederherstellen
ActiveWindow.Zoom = OriginalZoomFaktor

End Sub