Innehållsförteckning
ActiveWindow.Zoom
Du kan använda VBA för att ändra zoomen i ett kalkylblad. Här är koden för att ändra zoomen på ActiveWindow till 50%:
| 1 | ActiveWindow.Zoom = 50 |
Ändra zoom på alla kalkylblad
Du kan också bläddra igenom alla kalkylblad i din arbetsbok för att ställa in en standardzoom. Följande makro ställer in zoomen för alla kalkylblad till 50%:
| 123456789101112131415161718192021 | Sub ZoomAlla ()Dim ws Som arbetsbladApplication.ScreenUpdating = FalsktFör varje ws i kalkylbladws.AktiveraActiveWindow.Zoom = 50NästaApplication.ScreenUpdating = TrueAvsluta Sub |
Zooma Zooma
Och slutligen ett magiskt växande arbetsblad. Följande makro går igenom Zooma för Sheet1, går från 10%till 200%, ökar med 10%, pausar en sekund mellan ändringarna och sedan återställer Sheet1 sitt ursprungliga tillstånd.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub ZoomZoom ()Dim x As Integer 'variabel för loopDim OriginalZoom som heltalsvariabel för originalzoomArk1.Aktivera 'låt oss arbeta med blad1OriginalZoom = ActiveWindow.Zoom 'få aktuell zoom'slinga genom zoom 10 till 200 med 10För x = 1 till 20ActiveWindow.Zoom = x * 10Application.Wait Now + TimeValue ("00:00:01")Nästa x'återställa originalzoomActiveWindow.Zoom = OriginalZoomAvsluta Sub |
