ActiveWindow.Zoom
Na zmenu lupy pracovného hárka môžete použiť VBA. Tu je kód na zmenu priblíženia okna ActiveWindow na 50%:
| 1 | ActiveWindow.Zoom = 50 |
Zmeniť priblíženie na všetkých pracovných listoch
Môžete tiež prechádzať všetkými pracovnými listami vo svojom zošite a nastaviť štandardné priblíženie. Nasledujúce makro nastaví zoom pre všetky pracovné hárky na 50%:
| 123456789101112131415161718192021 | Sub ZoomAll ()Dim ws As worksheetApplication.ScreenUpdating = FalseZa každé ws v pracovných listochws.ActivateActiveWindow.Zoom = 50ĎalšieApplication.ScreenUpdating = TrueKoniec pod |
Zoom Zoom
A nakoniec magicky rastúci pracovný list. Nasledujúce makro prejde cez transfokácie pre hárok 1 od 10%do 200%, prírastok o 10%, medzi prestávkami sa prestane sekundu a potom obnoví hárok 1 späť do pôvodného stavu.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub ZoomZoom ()Dim x As Integer 'premenná pre slučkuDim OriginalZoom As Integer 'variable for original zoomList1.Aktivujte 'pracujme s listom1OriginalZoom = ActiveWindow.Zoom 'získa aktuálne priblíženie„loop through zoom 10 to 200 by 10Pre x = 1 až 20ActiveWindow.Zoom = x * 10Aplikácia. Počkajte teraz + hodnota času („00:00:01“)Dalej x'obnoviť pôvodné priblíženieActiveWindow.Zoom = OriginalZoomKoniec pod |
