Настройка всех листов Excel на определенный уровень масштабирования

Question

У меня более двадцати листов в книге Excel (файл).Есть ли какой-нибудь фрагмент кода или команда, которую я мог бы применить / использовать, чтобы все листы можно было сбросить, скажем, до 85% уровня масштабирования?

Answer 1

Sub SetZoom()
    Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Select
        ActiveWindow.Zoom = 85 //change as per your requirements
    Next ws
End Sub

Кстати, если вы просто выбираете все рабочие листы в своей рабочей тетради с помощью вкладок, вы можете установить масштаб 85%, и он будет применяться ко всем рабочим листам