Bütün sayfaların görüntü oranı eşit olsun

[ASLAN7410]

Merhaba hayırlı cumalar, hayırlı ramazanlar.

Dosyamı açtığımda dosya içerisindeki bütün sayfaların görüntü oranının 160 olmasını istiyorum, aşağıdaki kodu bir türlü uygulayamadım.

Yardımcı olur musunuz?

Private Sub Workbook_Open()
ActiveWindow.Zoom = 160
End Sub

 

[PLİNT]

Merhba
Aşağıdaki gibi olabilir

[SIZE="2"]Private Sub Workbook_Open()
Set s1 = ActiveSheet
Application.ScreenUpdating = False
   For Each a In Worksheets
    a.Select
        ActiveWindow.Zoom = 160
    Next
    s1.Activate
    Application.ScreenUpdating = True
End Sub [/SIZE]

 

[ASLAN7410]

Sayın PLİNT ellerinize sağlık çok teşekkür ediyorum, tam istediğim gibi oldu.

Hayırlı akşamlar, hayırlı Ramazanlar.