Jak korzystać z zoomu w vba (z przykładami)

Możesz użyć następujących metod, aby określić powiększenie w Excelu za pomocą VBA:

Metoda 1: Ustaw powiększenie na określoną wartość

 SubZoomToAmount ()
ActiveWindow.Zoom = 150
End Sub

To konkretne makro ustawi powiększenie na 150% dla aktualnie aktywnego arkusza.

Metoda 2: Ustaw powiększenie na aktualnie wybrany zakres

 SubZoomToSelection ()

Selection.Select
ActiveWindow.Zoom = True

End Sub

To konkretne makro powiększy aktualnie wybrany zakres.

Metoda 3: Ustaw powiększenie na określony zakres

 SubZoomToRange ()

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

End Sub

To konkretne makro powiększy zakres C1:E5 .

Poniższe przykłady pokazują, jak zastosować każdą metodę w praktyce, korzystając z poniższego arkusza Excel zawierającego zestaw danych o różnych koszykarzach:

Przykład 1: Ustaw powiększenie na określoną wartość

Za pomocą poniższego makra możemy ustawić powiększenie aktualnie aktywnego arkusza na 150% :

 SubZoomToAmount ()
ActiveWindow.Zoom = 150
End Sub

Kiedy uruchomimy to makro, arkusz automatycznie będzie miał powiększenie 150% :

Należy pamiętać, że domyślny zoom wynosi 100 .

Ustawiając powiększenie na wartość większą niż 100, powiększamy.

Aby pomniejszyć, ustaw powiększenie na wartość mniejszą niż 100.

Przykład 2: Ustaw powiększenie na aktualnie wybrany zakres

Za pomocą poniższego makra możemy ustawić powiększenie aktualnie aktywnego arkusza na aktualnie wybrany zakres:

 SubZoomToSelection ()

Selection.Select
ActiveWindow.Zoom = True

End Sub

Załóżmy na przykład, że wybieramy zakres A7:C11 .

Kiedy uruchomimy to makro, arkusz automatycznie powiększy się do tego zakresu:

Przykład 3: Ustaw powiększenie na określony zakres

Za pomocą poniższego makra możemy ustawić powiększenie aktualnie aktywnego arkusza na zakres C1:E5 :

 SubZoomToRange ()

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

End Sub

Kiedy uruchomimy to makro, arkusz automatycznie powiększy się do tego zakresu:

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

Jak policzyć liczbę wierszy w zakresie za pomocą VBA
Jak poruszać się po arkuszach kalkulacyjnych za pomocą języka VBA
Jak wyświetlić wszystkie wiersze za pomocą VBA