Açılışta Zoom Yapma

[Mehmet Sait]

Merhaba,

Excel açılışta tüm sayfaları belli bir büyüklüğe zoom yapma mümkün mü?

Yardımlarınız için teşekkür ederim.

 

[Mahir64]

Merhaba,
Böyle bir şey mi?

Sub auto_open()
ActiveWindow.Zoom = 150
End Sub

 

[Mehmet Sait]

Merhaba,
Böyle bir şey mi?

Sub auto_open()
ActiveWindow.Zoom = 150
End Sub

Evet. Verdiğinizi denedim, sadece bir sayfada yaptı. Çalışma kitabında bulunan tüm sayfalarda yapsın istiyorum. Mümkün mü?

 

[muratboz06]

Deneyiniz.

Sub auto_open()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        ws.Activate
        ActiveWindow.Zoom = 150
    Next
    Application.ScreenUpdating = True
End Sub

 

[Mehmet Sait]

Deneyiniz.

Sub auto_open()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        ws.Activate
        ActiveWindow.Zoom = 150
    Next
    Application.ScreenUpdating = True
End Sub

Teşekkür ederim