ActiveWindow.Zoom
Pomocí VBA můžete změnit přiblížení listu. Zde je kód pro změnu přiblížení ActiveWindow na 50%:
| 1 | ActiveWindow.Zoom = 50 |
Změnit zvětšení na všech pracovních listech
Můžete také procházet všemi listy v sešitu a nastavit standardní přiblížení. Následující makro nastaví Zoom pro všechny listy na 50%:
| 123456789101112131415161718192021 | Sub Zoom All ()Dim ws As WorksheetApplication.ScreenUpdating = FalseZa každé ws v pracovních listechws.ActivateActiveWindow.Zoom = 50dalšíApplication.ScreenUpdating = TrueEnd Sub |
Zoom Zoom
A nakonec kouzelně rostoucí pracovní list. Následující makro bude procházet zoomy pro List1, pohybující se od 10%do 200%, zvyšující se o 10%, pauza mezi změnami a poté obnoví List1 zpět do původního stavu.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub ZoomZoom ()Dim x As Integer 'proměnná pro smyčkuDim OriginalZoom As Integer 'variable for original zoomList 1. Aktivujte ‚pojďme pracovat s listem1OriginalZoom = ActiveWindow.Zoom 'získá aktuální přiblížení'smyčka přes zoom 10 až 200 na 10Pro x = 1 až 20ActiveWindow.Zoom = x * 10Application.Wait Now + TimeValue ("00:00:01")Další x'obnovit původní zoomActiveWindow.Zoom = OriginalZoomEnd Sub |
