Tartalomjegyzék
ActiveWindow.Zoom
A VBA segítségével módosíthatja a munkalap nagyítását. Íme a kód az ActiveWindow zoomjának 50%-ra való módosításához:
| 1 | ActiveWindow.Zoom = 50 |
A Zoom módosítása az összes munkalapon
A normál nagyítás beállításához a munkafüzet összes munkalapján is végiglapozhat. A következő makró 50%-ra állítja a nagyítást minden munkalapon:
| 123456789101112131415161718192021 | Sub ZoomAll ()Dim ws munkalapkéntApplication.ScreenUpdating = HamisMinden egyes munkalaphozws. AktiválásActiveWindow.Zoom = 50KövetkezőApplication.ScreenUpdating = IgazEnd Sub |
Zoom Zoom
És végül egy varázslatosan növekvő munkalap. A következő makró végigmegy a Zoom for Sheet1 -en, 10%-ról 200%-ra, 10%-kal növekszik, egy másodpercet szüneteltet a változtatások között, majd visszaállítja a Sheet1 eredeti állapotát.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub ZoomZoom ()Dim x As Integer 'ciklus változóDim OriginalZoom as Integer 'változó az eredeti zoomhoz1. lap. Aktiválja 'dolgozzunk az 1. lappalOriginalZoom = ActiveWindow.Zoom 'aktuális zoom elérése'ciklus a 10 és 200x10 -es nagyításon keresztülX = 1 és 20 közöttActiveWindow.Zoom = x * 10Application.Wait Now + TimeValue ("00:00:01")Következő x'állítsa vissza az eredeti zoomotActiveWindow.Zoom = OriginalZoomEnd Sub |
