ActiveWindow.Zoom
Вы можете использовать VBA для изменения масштаба рабочего листа. Вот код для изменения масштаба ActiveWindow на 50%:
| 1 | ActiveWindow.Zoom = 50 |
Изменить масштаб на всех листах
Вы также можете просмотреть все листы в своей книге, чтобы установить стандартное масштабирование. Следующий макрос устанавливает масштаб для всех листов на 50%:
| 123456789101112131415161718192021 | Дополнительный ZoomAll ()Dim ws как рабочий листApplication.ScreenUpdating = FalseДля каждого ws в листахws.ActivateActiveWindow.Zoom = 50СледующийApplication.ScreenUpdating = TrueКонец подписки |
Zoom Zoom
И, наконец, волшебно растущий рабочий лист. Следующий макрос будет циклически перебирать Zooms для Sheet1, переходя от 10% до 200%, увеличиваясь на 10%, делая паузу между изменениями в секунду, а затем он вернет Sheet1 в исходное состояние.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Дополнительное масштабирование ()Переменная Dim x As Integer для циклаПеременная Dim OriginalZoom As Integer для исходного масштабированияSheet1.Activate 'давайте работать с Sheet1OriginalZoom = ActiveWindow.Zoom 'получить текущий масштаб'циклическое увеличение от 10 до 200 на 10Для x = от 1 до 20ActiveWindow.Zoom = x * 10Application.Wait Now + TimeValue ("00:00:01")Далее x'восстановить исходный масштабActiveWindow.Zoom = OriginalZoomКонец подписки |
