Innholdsfortegnelse
ActiveWindow.Zoom
Du kan bruke VBA til å endre zoomen til et regneark. Her er koden for å endre zoom på ActiveWindow til 50%:
| 1 | ActiveWindow.Zoom = 50 |
Endre zoom på alle regneark
Du kan også gå gjennom alle regnearkene i arbeidsboken for å angi en standard zoom. Følgende makro vil sette Zoom for alle regneark til 50%:
| 123456789101112131415161718192021 | Sub ZoomAll ()Dim ws Som regnearkApplication.ScreenUpdating = FalskFor hver uke i regnearkws.AktivereActiveWindow.Zoom = 50NesteApplication.ScreenUpdating = TrueSlutt Sub |
Zoom Zoom
Og til slutt et magisk voksende regneark. Følgende makro går gjennom Zooms for Sheet1, går fra 10%til 200%, øker med 10%, setter et sekund på pause mellom endringene, og deretter gjenoppretter Sheet1 tilbake til sin opprinnelige tilstand.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub ZoomZoom ()Dim x As Integer 'variable for loopDim OriginalZoom som heltallsvariabel for original zoomArk1.Aktiver 'la oss jobbe med ark1OriginalZoom = ActiveWindow.Zoom 'få nåværende zoom'sløyfe gjennom zoom 10 til 200 med 10For x = 1 til 20ActiveWindow.Zoom = x * 10Application.Wait Now + TimeValue ("00:00:01")Neste x'gjenopprett originalzoomActiveWindow.Zoom = OriginalZoomSlutt Sub |
