ActiveWindow.Zoom
Ви можете використовувати VBA для зміни масштабування аркуша. Ось код, щоб змінити масштабування ActiveWindow на 50%:
| 1 | ActiveWindow.Zoom = 50 |
Змінити масштабування на всіх робочих аркушах
Ви також можете переглянути всі робочі аркуші у вашій книзі, щоб встановити стандартний масштаб. Наступний макрос встановить масштабування для всіх аркушів на 50%:
| 123456789101112131415161718192021 | Sub ZoomAll ()Затемнити як робочий аркушApplication.ScreenUpdating = НеправдаДля кожного ws у робочих аркушахws.ActivateActiveWindow.Zoom = 50ДаліApplication.ScreenUpdating = ІстинаEnd Sub |
Збільшити Збільшити
І, нарешті, чарівно зростаючий аркуш. Наступний макрос прокручуватиме масштабування для Sheet1, збільшуючись від 10%до 200%, збільшуючись на 10%, призупиняючи секунду між змінами, а потім відновлює Sheet1 до початкового стану.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub ZoomZoom ()Dim x As Integer 'змінна для циклуDim OriginalZoom As Integer 'змінна для оригінального масштабуванняSheet1.Активуйте "давайте попрацюємо з sheet1OriginalZoom = ActiveWindow.Zoom 'отримує поточний масштаб'прокручувати масштаб від 10 до 200 на 10Для х = 1 до 20ActiveWindow.Zoom = x * 10Додаток. Зачекайте зараз + TimeValue ("00:00:01")Далі x'відновлення початкового масштабуванняActiveWindow.Zoom = OriginalZoomEnd Sub |
