çalışma kitabındaki tüm sayfaların görüntü boyutunu %80 yapmak

[feraset045]

arkadaşlar yaklaşık 70 sayfalık bir çalışma kitabının görüntü boyutunu kod ile %80 yapmak mümkünmü

 

[hsayar]

sayfa sekmeleri üzerinda sağ tıklayın, tümünü seç deyin ondan sonra çalışma kitabının görüntü boyutunu %80 yapın

 

[hsayar]

yada

[B]'Kitap açıldığında  UzdeSeksen Makrosunu çağırır[/B]
Sub Auto_open()
Call YuzdeSeksen
End Sub


[B]'istenildiği zaman VBEDE  F5 ile çalıştırlabilri veya butona atanabilir[/B]
Sub YuzdeSeksen()
For a = 1 To Sheets.Count
    Sheets(a).Select
    ActiveWindow.Zoom = 80
Next
End Sub

belkide sadece bende öyle olmuştur... teşekkür gelmediğine göre

 

[xternet]

Merhaba arkadaşlar

Sub YuzdeSeksen()
For a = 1 To Sheets.Count
Sheets(a).Select
ActiveWindow.Zoom = 80
Next
End Sub

Bu kod çalışma kitabının tüm sayfalarının gösteriliş yüzdesini %80 yapıyor. Benimde böyle bir koda ihtiyacım var. Fakat bu kod hangi sayfada çalıştırılırsa çalıştırılsın, kitabın son sayfasında sona eriyor. Eğer mümkünse bu kodu, çalıştırıldığı sayfada sonlanacak şekilde düzenleyebilirmiyiz. Yani kod çalıştırıldığında ve işlem bittiğinde son sayfada kalmayacak. Tüm sayfaların yüzdesini değiştikten sonra kodun çalıştırıldığı sayfa ekranda kalıcak.

İlgili arkadaşlara teşekkür ediyorum.
İyi çalışmalar.

 

[xternet]

Merhaba arkadaşlar

Bu konudaki ihtiyacımı Sayın Levent Menteşoğlu'nun yazmış olduğu aşağıdaki kodla gidermeye karar verdim. Bu kod istediğin sayfada istediğin değere kadar büyültme ve küçültme sağlıyor. İlgilenen arkadaşlara teşekkür ederim.

Sub buyult()
ActiveWindow.Zoom = ActiveWindow.Zoom + 5
End Sub

Sub kucult()
ActiveWindow.Zoom = ActiveWindow.Zoom - 5
End Sub

Sub varsayilan()
ActiveWindow.Zoom = 100
End Sub

İyi çalışmalar.