ActiveWindow.Zoom
È possibile utilizzare VBA per modificare lo zoom di un foglio di lavoro. Ecco il codice per cambiare lo Zoom di ActiveWindow al 50%:
| 1 | ActiveWindow.Zoom = 50 |
Cambia lo zoom su tutti i fogli di lavoro
Puoi anche scorrere tutti i fogli di lavoro nella cartella di lavoro per impostare uno Zoom standard. La seguente Macro imposterà lo Zoom per tutti i fogli di lavoro al 50%:
| 123456789101112131415161718192021 | Sotto ZoomTutto()Dim ws come foglio di lavoroApplication.ScreenUpdating = FalsePer ogni ws nei fogli di lavorows.ActivateActiveWindow.Zoom = 50ProssimoApplication.ScreenUpdating = TrueFine sottotitolo |
Zoom Zoom
E infine un foglio di lavoro che cresce magicamente. La seguente macro eseguirà un ciclo attraverso gli Zoom per Foglio1, passando dal 10% al 200%, aumentando del 10%, sospendendo un secondo tra le modifiche, quindi ripristinerà Foglio1 al suo stato originale.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sotto ZoomZoom()Dim x As Integer 'variabile per ciclo'Dim OriginalZoom As Integer "variabile per zoom originale"Foglio1.Attiva 'Lavoriamo con Foglio1'OriginalZoom = ActiveWindow.Zoom 'ottieni lo zoom corrente'loop attraverso lo zoom da 10 a 200 per 10'Per x = da 1 a 20ActiveWindow.Zoom = x * 10Applicazione.Attendi ora + TimeValue("00:00:01")Avanti x"ripristina lo zoom originale"ActiveWindow.Zoom = OriginalZoomFine sottotitolo |
