KAYDET (yakınlaştırma ayarlarından sonra)

[Eser Gökay]

arkadaslar calisma kitabimda ekrandan dolayı kullandıgım standart yakınlastırma ayarım var. ancak baska kullanıcılar kendilerine göre bunu düşürüp artırabiliyor. Macro kaydet'le bütün sayfaları gezip Yakınlaştırma Ayarını %90 getirip kayıt yapıyorum. ama kod çok uzuyor.

sizden ricam çalışma kitabını kayıt yaparken butun sayfaların yakınlaştırma ayarını %90'a getiren ve en son SAYFA1 isimli sayfada çalışma kitabini kaydeden bir kod yazmanızdır. teşekkür ederim.

 

[Zeki Gürsoy]

Şunu deneyebilirsiniz..

Sub Zoom_All()
Dim arr() As String, i%

ReDim arr(Sheets.Count - 1) As String

For i = 0 To Sheets.Count - 1
    arr(i) = Sheets(i + 1).Name
Next

    Sheets(arr).Select
    Windows(ThisWorkbook.Name).Zoom = 90
    Sheets("Sayfa1").Select
    ThisWorkbook.Save

Erase arr

End Sub

 

[Eser Gökay]

cok tesekkur ediyorum zeki bey