ActiveWindow.Zoom
Možete koristiti VBA za promjenu zumiranja radnog lista. Evo koda za promjenu zumiranja aktivnog prozora na 50%:
| 1 | ActiveWindow.Zoom = 50 |
Promijenite zumiranje na svim radnim listovima
Također možete pregledati sve radne listove u radnoj knjizi kako biste postavili standardni Zoom. Sljedeći će makro postaviti Zoom za sve radne listove na 50%:
| 123456789101112131415161718192021 | Sub ZoomAll ()Zatamni kao radni listApplication.ScreenUpdating = NetačnoZa svaki ws u radnim listovimaws.AktivirajActiveWindow.Zoom = 50SljedećiApplication.ScreenUpdating = IstinaKraj podm |
Zoom Zoom
I na kraju čarobno rastući radni list. Sljedeća makronaredba će proći kroz zumiranje za Sheet1, krećući se od 10%do 200%, povećavajući se za 10%, pauzirajući sekundu između izmjena, a zatim će vratiti Sheet1 natrag u izvorno stanje.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub ZoomZoom ()Dim x As Integer 'varijabla za petljuZatamnite OriginalZoom As Integer 'varijablu za izvorno zumiranjeSheet1.Aktivirajte 'hajdemo raditi s sheet1OriginalZoom = ActiveWindow.Zoom 'dobijete trenutno zumiranje'petlja kroz zum 10 do 200 sa 10Za x = 1 do 20ActiveWindow.Zoom = x * 10Aplikacija. Čekajte sada + TimeValue ("00:00:01")Sljedeći x'vratiti izvorni zumActiveWindow.Zoom = OriginalZoomKraj podm |
