Spisie treści
Aktywne okno.Zoom
Możesz użyć VBA, aby zmienić powiększenie arkusza roboczego. Oto kod do zmiany powiększenia ActiveWindow na 50%:
| 1 | Aktywne okno.Zoom = 50 |
Zmień powiększenie we wszystkich arkuszach roboczych
Możesz także przeglądać wszystkie arkusze w skoroszycie, aby ustawić standardowe powiększenie. Poniższe makro ustawi powiększenie dla wszystkich arkuszy na 50%:
| 123456789101112131415161718192021 | Sub ZoomWszystko()Dim ws As WorksheetApplication.ScreenUpdating = FałszDla każdego ws w arkuszach roboczychws.AktywujAktywne okno.Zoom = 50NastępnyApplication.ScreenUpdating = PrawdaNapis końcowy |
Przybliżenie przybliżenie
I wreszcie magicznie rosnący arkusz. Poniższe makro przejdzie przez powiększenia dla arkusza 1, przechodząc od 10% do 200%, zwiększając o 10%, zatrzymując się na sekundę między zmianami, a następnie przywróci arkusz 1 do pierwotnego stanu.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub ZoomZoom()Dim x As Integer 'zmienna pętliDim OriginalZoom As Integer „zmienna oryginalnego powiększenia”Sheet1. Aktywuj „Pracujmy z arkuszem 1”OriginalZoom = ActiveWindow.Zoom 'pobierz aktualny zoom„przewijanie w pętli od 10 do 200 na 10”Dla x = 1 do 20Aktywne okno.Zoom = x * 10Aplikacja.Czekaj teraz + TimeValue("00:00:01")Następny x'przywróć oryginalny zoomActiveWindow.Zoom = Oryginalne powiększenieNapis końcowy |
