Как изменить масштаб изображения листа

Что делает макрос: Некоторые электронные таблицы огромны. Иногда, мы вынуждены изменить масштаб изображения, чтобы видеть всю таблицу на экране. Если вы обнаружите, что вы постоянно масштабируете таблицы, чередуя между сканированием больших разделов данных и чтением конкретных ячеек, вот удобный макрос, который будет автоматически изменять масштаб на двойном щелчке.

Как макрос работает

С помощью этого макроса, вы можете дважды щелкнуть на ячейку в таблице, чтобы увеличить на 200 процентов. Дважды щелкните снова и Excel изменит масштаб изображения обратно на 100 процентов. Также вы можете изменить значения в коде, чтобы соответствовало вашим потребностям.

Код макроса

Private Sub Worksheet_BeforeDouble Click()
 'Проверить текущее состояние - Увеличить
 'Увеличить на 100%
'Увеличение на 200%, если текущее 100
 If ActiveWindow.Zoom <> 100 Then
 ActiveWindow.Zoom = 100
 Else
 ActiveWindow.Zoom = 200
 End If
 End Sub

Обратите внимание, что побочный эффект двойного щелчка ячейки является то, что он переходит в режим редактирования. Вы можете выйти из режима редактирования, нажав клавишу Esc на клавиатуре. Если вам это мешает, несколько раз нажмите Esc при срабатывании этого макроса, вы можете добавить это заявление в конце процедуры:
Application.SendKeys («{ESC}»)
Этот оператор имитирует нажатия ESC на клавиатуре.

Как использовать

Для реализации этого макроса, вам нужно скопировать и вставить его в окно кода события Worksheet_BeforeDouble Click. Это позволяет запускать каждый раз, когда вы дважды щелкните на листе.

1. Активируйте редактор Visual Basic, нажав ALT + F11.
2. В окне проекта, найти свой проект / имя рабочей книги и нажмите на знак плюс рядом с ней, чтобы увидеть все листы.
3. Нажмите на лист, из которого вы хотите, чтобы вызвать код.
4. Выберите событие BeforeDoubleClick из событий в раскрывающемся списке.
5. Введите или вставьте код во вновь созданном модуле.