Indholdsfortegnelse
ActiveWindow.Zoom
Du kan bruge VBA til at ændre zoom på et regneark. Her er kode til at ændre zoom på ActiveWindow til 50%:
| 1 | ActiveWindow.Zoom = 50 |
Skift zoom på alle regneark
Du kan også gå gennem alle regnearkene i din projektmappe for at indstille en standardzoom. Følgende makro indstiller Zoom for alle regneark til 50%:
| 123456789101112131415161718192021 | Sub ZoomAll ()Dim ws Som regnearkApplication.ScreenUpdating = FalskFor hver gang i regnearkws.AktiverActiveWindow.Zoom = 50NæsteApplication.ScreenUpdating = TrueAfslut Sub |
Zoom Zoom
Og endelig et magisk voksende regneark. Den følgende makro går gennem Zooms for Sheet1, går fra 10%til 200%, øges med 10%, pauser et sekund mellem ændringerne, og derefter genopretter Sheet1 sin oprindelige tilstand.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub ZoomZoom ()Dim x As Integer 'variable for loopDim OriginalZoom Som Integer 'variabel til original zoomArk1.Aktiver 'lad os arbejde med ark1OriginalZoom = ActiveWindow.Zoom 'få den aktuelle zoom'loop gennem zoom 10 til 200 med 10For x = 1 til 20ActiveWindow.Zoom = x * 10Application.Wait Now + TimeValue ("00:00:01")Næste x'gendan original zoomActiveWindow.Zoom = OriginalZoomAfslut Sub |
