Tüm Excel sayfalarını tanımlanmış bir yakınlaştırma düzeyinde ayarlama

Question

Bir Excel çalışma kitabında (dosya) yirmiden fazla sayfam var. Bazı kod snippet'leri veya uygulayabildiğim/kullanabileceğim bir komut var mı, böylece tüm sayfalar% 85 yakınlaştırma seviyesi için sıfırlanabilir mi?

Answer 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 

BTW, sadece daha sonra% 85'e zoom ayarlayabilirsiniz sekmeleri kullanarak çalışma kitabındaki tüm çalışma sayfalarını seçmek ve tüm çalışma sayfaları