VBA Excel Zoom


Vba kodlari ile zoom ozelligini ayarlamaniz elbetteki mumkun, bir kac ornekle konunun detayina inelim hatta onceki konularimizdan da bir kac tekrar yapmis olalim..

VBA Kodlari

ActiveWindow.Zoom = 80

bu sekilde bir kodla penceremizi %80 ayara getirmis oluruz..

Her sayfada islem yapmak icin kodlar paylasmistik peki boyle bir ornekte nasil duzenleriz, yani istegimiz tum sayfalarin zoom ayarlarini 80 yapmak olursa ne yapmaliyiz..

Sub Hepsini_Zoom()
Dim sayfa As Worksheet
Application.ScreenUpdating = False
For Each sayfa In Worksheets
sayfa.Activate
ActiveWindow.Zoom = 80
Next
Application.ScreenUpdating = True
End Sub

Kodumuzda ekran yenilemisini kapattik, tum sayfalarda islem yapabilemk icin For each dongusunu ogrenmistiniz bu donguyu kullandik ve ekran yenilemesini tekrar actik..

Simdi ise zoom 0`dan 200`e kadar kucukltup buyulterek zoom ayarlarini degistirelim ve uygun zoom ayarini secmek ciin hepsini goruntuleyelim..

Sub Zoom_dongu()
Dim i As Integer
Dim OrjinalZoom As Integer
Sheet1.Activate ‘sayfamiz sheet1 olsun
OrjinalZoom = ActiveWindow.Zoom ‘suanki zoom
For i = 1 To 20
ActiveWindow.Zoom = x * 10
Application.Wait Now + TimeValue(“00:00:01”)
Next i
‘eski haline donsun
ActiveWindow.Zoom = OrjinalZoom
End Sub

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


2 + 9 =