Как изменить масштаб всех вкладок до одного размера в Excel?

По умолчанию листы отображаются в масштабе 100%, но вы можете изменить масштаб текущей вкладки до нужного размера, перетаскивая ползунок масштабирования. Однако как можно изменить масштаб всех вкладок книги одновременно до одинакового размера?

Изменение масштаба всех вкладок до одного размера с помощью клавиш Ctrl или Shift

Изменение масштаба всех вкладок до одного размера с помощью VBA

Изменение масштаба всех вкладок до одного размера с помощью клавиш Ctrl или Shift

Чтобы изменить масштаб всех или некоторых вкладок книги до одного размера, сначала выберите вкладки листов, а затем измените их масштаб.

Удерживайте Ctrl , чтобы выбрать вкладки листов, масштаб которых нужно изменить массово, а затем перетащите ползунок масштабирования. См. скриншот:

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

Раскройте магию Excel с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!

Изменение масштаба всех вкладок до одного размера с помощью VBA

Если вы хотите использовать код VBA для решения этой задачи, следующий код может вам помочь.

1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Щелкните Вставить > Модуль, скопируйте и вставьте код в пустой скрипт.

VBA: Уменьшение или увеличение всех вкладок до одного размера

Sub DbZoom()
'UpdatebyExtendoffice20171215
    Dim I As Long
    Dim xActSheet As Worksheet
    Set xActSheet = ActiveSheet
    For I = 1 To ThisWorkbook.Sheets.Count
        Sheets(I).Activate
        ActiveWindow.Zoom = 150
    Next
    xActSheet.Select
End Sub

3. Нажмите клавишу F5 для запуска, и все уровни масштаба вкладок листов будут изменены на указанный процент за один раз.