Zoom Butonu

[orkuncan5]

Excell sayfasında + ve - zoom yapabileceğim buton kodu nasıl olmalıdır.

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı incelermisiniz.

 

[orkuncan5]

Sağolun.Güzel olmuş.zoom yaparken butonun sabit kalmasını nasıl yapabiliriz.

 

[Seyit Tiken]

Bir UserForm oluşturup kodu kopyalayınız.

Private Sub SpinButton1_SpinUp()
On Error GoTo hata
ActiveWindow.Zoom = ActiveWindow.Zoom + 1
hata:
End Sub

Private Sub SpinButton1_SpinDown()
On Error GoTo hata
ActiveWindow.Zoom = ActiveWindow.Zoom - 1
hata:
End Sub

 

[orkuncan5]

Seyit Bey teşekkür ederim ,değişik ve güzel oldu.