Sayfadaki düğme yardımı ile her tıklamada %5 büyült -küçült

Katılım
8 Mart 2005
Mesajlar
77
Excel Vers. ve Dili
EXCEL 2003 TR
Altın Üyelik Bitiş Tarihi
20-06-2022
Yaptığım bir çalışmada Bütün Araç çubuklarını gizlediğim için
Sayfadaki iki düğme yardımı ile her tıklamada %5 büyült -küçült ve varsayılan düğmesi eklemek istiyorum .Kod yazmak için yardımlarınızı bekliyorum.

ŞİMDİDEN TEŞEKKÜRLER
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki şekilde deneyin.

[vb:1:8a4dce19c2]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
[/vb:1:8a4dce19c2]
 
Katılım
25 Şubat 2006
Mesajlar
41
leventm' Alıntı:
Aşağıdaki şekilde deneyin.

[vb:1:ac0a99e6b9]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
[/vb:1:ac0a99e6b9]

Leventm Merhabalar..
Aynı makroyu sayfalarımızı ekranı kapla ya da normal pencereye geçişlerde de otomatik olarak kullanabilirmiyiz..
 

mehmett

Altın Üye
Katılım
18 Mayıs 2005
Mesajlar
2,571
Excel Vers. ve Dili
Excel 2010 Türkçe
özilhan' Alıntı:
Leventm Merhabalar..
Aynı makroyu sayfalarımızı ekranı kapla ya da normal pencereye geçişlerde de otomatik olarak kullanabilirmiyiz..
Standart ve Biçimlendirme araç çubuklarınızın aktif, diğer araç çubuklarının gizli olduğunu varasayarsak aşağıdaki kodları kullanabilirsiniz. Başka araç çubuklarınız varsa onları da kodlara ekleyebilirsiniz.
Ayrıca bu kodlara satır ve sütun başlıkları ile sayfa sekmelerini gizleyen satırları da ekleyebilirsiniz.

Edit: Kodları silip, örnek dosyayı ekliyorum.
 
Katılım
8 Mart 2005
Mesajlar
77
Excel Vers. ve Dili
EXCEL 2003 TR
Altın Üyelik Bitiş Tarihi
20-06-2022
Yardımlarını esirgemeyen tüm arkadaşlara teşekkür ederim
 
Katılım
8 Mart 2005
Mesajlar
77
Excel Vers. ve Dili
EXCEL 2003 TR
Altın Üyelik Bitiş Tarihi
20-06-2022
leventm,

teşekkür ederim
 
Üst