Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
изменить масштаб листов (Window.Zoom)
 
всем привет!

подскажите кто-нибудь, пожалуйста,  как изменить масштаб, без "sh.Activate", то есть без активации листов..
чет не нагуглил ничего по этому поводу....

Код
Sub test() 

For Each sh In ActiveWorkbook.Sheets    
    sh.Activate
    ActiveWindow.Zoom = 50
Next

End Sub
Страницы: 1
Наверх