So verwenden sie zoom in vba (mit beispielen)

Sie können die folgenden Methoden verwenden, um den Zoom in Excel mithilfe von VBA festzulegen:

Methode 1: Stellen Sie den Zoom auf einen bestimmten Wert ein

 SubZoomToAmount ()
ActiveWindow.Zoom = 150
End Sub

Dieses spezielle Makro setzt den Zoom für das aktuell aktive Blatt auf 150 % .

Methode 2: Stellen Sie den Zoom auf den aktuell ausgewählten Bereich ein

 SubZoomToSelection ()

Selection.Select
ActiveWindow.Zoom = True

End Sub

Dieses spezielle Makro vergrößert den aktuell ausgewählten Bereich.

Methode 3: Stellen Sie den Zoom auf einen bestimmten Bereich ein

 SubZoomToRange ()

Range("C1:E5").Select
ActiveWindow.Zoom = True

End Sub

Dieses spezielle Makro vergrößert den Bereich C1:E5 .

Die folgenden Beispiele zeigen, wie jede Methode in der Praxis mit der folgenden Excel-Tabelle verwendet werden kann, die eine Reihe von Daten zu verschiedenen Basketballspielern enthält:

Beispiel 1: Stellen Sie den Zoom auf einen bestimmten Wert ein

Mit dem folgenden Makro können wir den Zoom des aktuell aktiven Blattes auf 150 % einstellen:

 SubZoomToAmount ()
ActiveWindow.Zoom = 150
End Sub

Wenn wir dieses Makro ausführen, wird das Blatt automatisch um 150 % vergrößert:

Beachten Sie, dass der Standardzoom 100 beträgt.

Indem wir den Zoom auf einen Wert größer als 100 einstellen, zoomen wir.

Um herauszuzoomen, stellen Sie den Zoom auf einen Wert kleiner als 100 ein.

Beispiel 2: Zoom auf den aktuell ausgewählten Bereich einstellen

Mit dem folgenden Makro können wir den Zoom des aktuell aktiven Blattes auf den aktuell ausgewählten Bereich einstellen:

 SubZoomToSelection ()

Selection.Select
ActiveWindow.Zoom = True

End Sub

Angenommen, wir wählen den Bereich A7:C11 aus.

Wenn wir dieses Makro ausführen, zoomt das Blatt automatisch auf diesen Bereich:

Beispiel 3: Zoom auf einen bestimmten Bereich einstellen

Mit dem folgenden Makro können wir den Zoom des aktuell aktiven Blattes auf den Bereich C1:E5 einstellen:

 SubZoomToRange ()

Range("C1:E5").Select
ActiveWindow.Zoom = True

End Sub

Wenn wir dieses Makro ausführen, zoomt das Blatt automatisch auf diesen Bereich:

Zusätzliche Ressourcen

Die folgenden Tutorials erklären, wie Sie andere häufige Aufgaben in VBA ausführen:

So zählen Sie die Anzahl der Zeilen in einem Bereich mithilfe von VBA
So navigieren Sie mit VBA in Tabellenkalkulationen
So zeigen Sie alle Zeilen mit VBA an