Подтвердить что ты не робот

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

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

Ответ 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%, и он применим ко всем листам