Как использовать масштабирование в vba (с примерами)

Вы можете использовать следующие методы для указания масштаба в Excel с помощью VBA:

Способ 1: установите масштаб на определенную величину

 SubZoomToAmount ()
ActiveWindow.Zoom = 150
End Sub

Этот конкретный макрос установит масштаб на 150% для текущего активного листа.

Способ 2. Установите масштаб в выбранный в данный момент диапазон.

 SubZoomToSelection ()

Selection.Select
ActiveWindow.Zoom = True

End Sub

Этот конкретный макрос увеличит текущий выбранный диапазон.

Способ 3: установите масштаб в определенный диапазон

 SubZoomToRange ()

Range("C1:E5").Select
ActiveWindow.Zoom = True

End Sub

Этот конкретный макрос увеличит диапазон C1:E5 .

В следующих примерах показано, как использовать каждый метод на практике со следующим листом Excel, содержащим набор данных о различных баскетболистах:

Пример 1. Установите масштаб на определенную величину.

Мы можем использовать следующий макрос, чтобы установить масштаб текущего активного листа на 150% :

 SubZoomToAmount ()
ActiveWindow.Zoom = 150
End Sub

Когда мы запустим этот макрос, лист автоматически будет иметь масштаб 150% :

Обратите внимание, что масштаб по умолчанию равен 100 .

Установив значение масштаба больше 100, мы увеличиваем масштаб.

Чтобы уменьшить масштаб, установите масштаб менее 100.

Пример 2. Установите масштаб в выбранный в данный момент диапазон.

Мы можем использовать следующий макрос, чтобы установить масштаб текущего активного листа в текущий выбранный диапазон:

 SubZoomToSelection ()

Selection.Select
ActiveWindow.Zoom = True

End Sub

Например, предположим, что мы выбрали диапазон A7:C11 .

Когда мы запустим этот макрос, лист автоматически увеличится до этого диапазона:

Пример 3. Установите масштаб в определенный диапазон

Мы можем использовать следующий макрос, чтобы установить масштаб текущего активного листа в диапазоне C1:E5 :

 SubZoomToRange ()

Range("C1:E5").Select
ActiveWindow.Zoom = True

End Sub

Когда мы запустим этот макрос, лист автоматически увеличится до этого диапазона:

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в VBA:

Как посчитать количество строк в диапазоне с помощью VBA
Как перемещаться по электронным таблицам с помощью VBA
Как показать все строки с помощью VBA