ActiveWindow.Zoom
Bir çalışma sayfasının Yakınlaştırmasını değiştirmek için VBA'yı kullanabilirsiniz. ActiveWindow'un Yakınlaştırmasını %50 olarak değiştirmek için kod:
| 1 | ActiveWindow.Zoom = 50 |
Tüm Çalışma Sayfalarında Yakınlaştırmayı Değiştir
Standart bir Yakınlaştırma ayarlamak için çalışma kitabınızdaki tüm çalışma sayfalarında da dolaşabilirsiniz. Aşağıdaki Makro, tüm çalışma sayfaları için Yakınlaştırmayı %50'ye ayarlayacaktır:
| 123456789101112131415161718192021 | Alt ZoomAll()Dim ws As Çalışma SayfasıApplication.ScreenUpdating = YanlışÇalışma Sayfalarında Her ws içinws.EtkinleştirActiveWindow.Zoom = 50SonrakiApplication.ScreenUpdating = DoğruAlt Bitiş |
Yakınlaş yakınlaş
Ve nihayet sihirli bir şekilde büyüyen bir çalışma sayfası. Aşağıdaki makro, %10'dan %200'e giderek, %10 artarak, değişiklikler arasında bir saniye duraklayarak Sayfa1 için Yakınlaştırmalar arasında döngü yapacak ve ardından Sayfa1'i orijinal durumuna geri yükleyecektir.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Alt ZoomZoom()Dim x As Integer 'döngü için değişkenOrijinal yakınlaştırma için Dim OriginalZoom As Integer 'değişkeniSheet1.Activate 'sayfa1 ile çalışalımOriginalZoom = ActiveWindow.Zoom 'geçerli yakınlaştırmayı al'10'dan 200'e 10'a yakınlaştırma döngüsüx = 1 ila 20 içinActiveWindow.Zoom = x * 10Application.Wait Now + TimeValue("00:00:01")Sonraki x'orijinal yakınlaştırmayı geri yükleActiveWindow.Zoom = OrijinalZoomAlt Bitiş |
