ActiveWindow.Zoom
Puteți utiliza VBA pentru a modifica Zoom-ul unei foi de lucru. Iată codul pentru a schimba Zoom-ul ActiveWindow la 50%:
| 1 | ActiveWindow.Zoom = 50 |
Schimbați zoomul pe toate foile de lucru
De asemenea, puteți parcurge toate foile de lucru din registrul dvs. de lucru pentru a seta un zoom standard. Următoarea macro va seta Zoom-ul pentru toate foile de lucru la 50%:
| 123456789101112131415161718192021 | Sub ZoomAll ()Dim ws Ca foaie de lucruApplication.ScreenUpdating = FalsPentru fiecare ws din foi de lucruws.ActivațiActiveWindow.Zoom = 50UrmătorulApplication.ScreenUpdating = AdevăratSfârșitul Sub |
Zoom Zoom
Și în cele din urmă o foaie de lucru în creștere magică. Următoarea macrocomandă va parcurge Zooms for Sheet1, trecând de la 10% la 200%, crescând cu 10%, întrerupând o secundă între modificări, apoi va restabili Sheet1 înapoi la starea inițială.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub ZoomZoom ()Variabila Dim x As Integer pentru buclăVariabilă Dim OriginalZoom As Integer pentru zoom originalFoaia 1. Activați „să lucrăm cu foaia1OriginalZoom = ActiveWindow.Zoom 'obține zoom curent'buclați prin zoom de la 10 la 200 cu 10Pentru x = 1 până la 20ActiveWindow.Zoom = x * 10Aplicație. Așteptați acum + TimeValue ("00:00:01")Următorul x'restabiliți zoomul originalActiveWindow.Zoom = OriginalZoomSfârșitul Sub |
