ActiveWindow.Zoom
Z VBA lahko spremenite povečavo delovnega lista. Tukaj je koda za spremembo povečave ActiveWindow na 50%:
| 1 | ActiveWindow.Zoom = 50 |
Spremenite povečavo na vseh delovnih listih
Če želite nastaviti standardni Zoom, lahko prelistate tudi vse delovne liste v delovnem zvezku. Naslednji makro nastavi zoom za vse delovne liste na 50%:
| 123456789101112131415161718192021 | Sub ZoomAll ()Zatemni kot delovni listApplication.ScreenUpdating = NapačnoZa vsak ws na delovnih listihws.AktivirajActiveWindow.Zoom = 50NaslednjiApplication.ScreenUpdating = ResEnd Sub |
Zoom Zoom
In končno čarobno rastoči delovni list. Naslednji makro se bo pomikal po Zoomih za Sheet1, ki se bo gibal od 10%do 200%, povečal za 10%, med spremembami ustavil sekundo, nato pa bo Sheet1 vrnil v prvotno stanje.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub ZoomZoom ()Dim x As Integer 'spremenljivka za zankoZatemni spremenljivko OriginalZoom As Integer za izvirno povečavoList 1. Aktivirajte 'delajmo z sheet1OriginalZoom = ActiveWindow.Zoom 'pridobi trenutno povečavo'kroži skozi povečavo 10 do 200 za 10Za x = 1 do 20ActiveWindow.Zoom = x * 10Aplikacija. Počakajte zdaj + TimeValue ("00:00:01")Naslednji x'obnovite prvotni zoomActiveWindow.Zoom = OriginalZoomEnd Sub |
