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