Textbox İçeriğine Girilen Değere Göre Çalışma Sayfasını Yakınlaştır ve Uzaklaştırma

[Hsn55]

TextBox içerisine girdiğimiz değere göre çalışma sayfasını yakınlaştırıp uzaklaştırabilir miyiz?

 

[muygun]

Merhaba;

Private Sub CommandButton1_Click()
ActiveWindow.Zoom = TextBox1.Value
End Sub

İyi çalışmalar.

 

[Hsn55]

Sayın Muygun
Teşekkür ederim. Buton ile değilde Textbox içerisine rakam girildiğinde otomatik olarak girilen değere göre yakınlaştırma ve uzaklaştırma olsa

 

[muygun]

Eki deneyin bu size fikir verecektir.

Link:
https://s5.dosya.tc/server2/hudeh6/Hsn55-userform_ile_sayfa_boyutunu_degistirme.zip.html

 

[Hsn55]

Sayın muygun teşekkür ederim