изменить масштаб листов (Window.Zoom)

Пользователь

Сообщений: 2 Регистрация: 01.01.1970

11.12.2013 14:32:13

всем привет!

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

Код

Sub test() 
 
For Each sh In ActiveWorkbook.Sheets    
    sh.Activate
    ActiveWindow.Zoom = 50
Next
 
End Sub

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

11.12.2013 15:31:35

А чем описанный вами способ не устраивает?
Работает сравнительно быстро, если листов немного,
пользователь ничего не увидит:

Код

Sub test()
    On Error Resume Next
    Dim w As Window, shs As Worksheet, sh As Worksheet
    Set shs = ActiveSheet
 
    Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Worksheets
        sh.Activate
        ActiveWindow.Zoom = 50
    Next sh
    shs.Activate
    Application.ScreenUpdating = True
End Sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

analitik_s Пользователь Сообщений: 2 Регистрация: 01.01.1970	#3 11.12.2013 16:01:19 да уж придется так наверно и делать....... ......не знаю, просто не люблю Activate или Select спасибо за ответ!!!

Слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#4 12.12.2013 10:32:28 да, странно, что в sheetviews нет zoom Живи и дай жить..

Читают тему