Userform zoom özelliği

[Cengizhantr06]

Merhaba iyi akşamlar

Mesala dosyamızı masa üstü bilgisayarda büyük yaptık ama userfom büyük laptopda kullanacağız ekran küçük bunu için userform zoom ayarı varmış acaba nasıl oluyor bilgi alabilirmiyim

 

[ÖmerFaruk]

Sadece örnektir. Geliştirebilirsiniz.

Private Sub CommandButton1_Click()
    UserForm1.Width = UserForm1.Width * 1.1
    UserForm1.Width = UserForm1.Height * 1.1
    UserForm1.Zoom = UserForm1.Zoom * 1.1
    If UserForm1.Zoom > 400 Then UserForm1.Zoom = 400
End Sub

Private Sub CommandButton2_Click()
    UserForm1.Width = UserForm1.Width / 1.1
    UserForm1.Width = UserForm1.Height / 1.1
    UserForm1.Zoom = UserForm1.Zoom / 1.1
    If UserForm1.Zoom < 20 Then UserForm1.Zoom = 20
End Sub

 

[Seyit Tiken]

Bu kodu bir test edin.

Private Sub UserForm_Click()
UserForm1.Zoom = UserForm1.Zoom + 5
UserForm1.Height = UserForm1.Height + 7
UserForm1.Width = UserForm1.Width + 13.5
End Sub

 

[ÖmerFaruk]

Belki bu şekli daha kullanışlı olabilir.

Private Sub UserForm_Initialize()
With UserForm1
    .Zoom = CInt(Application.Width / 774 * 90)
    .Width = Application.Width
    .Height = Application.Height
End With
End Sub

 

[Cengizhantr06]

Sadece örnektir. Geliştirebilirsiniz.

Private Sub CommandButton1_Click()
    UserForm1.Width = UserForm1.Width * 1.1
    UserForm1.Width = UserForm1.Height * 1.1
    UserForm1.Zoom = UserForm1.Zoom * 1.1
    If UserForm1.Zoom > 400 Then UserForm1.Zoom = 400
End Sub

Private Sub CommandButton2_Click()
    UserForm1.Width = UserForm1.Width / 1.1
    UserForm1.Width = UserForm1.Height / 1.1
    UserForm1.Zoom = UserForm1.Zoom / 1.1
    If UserForm1.Zoom < 20 Then UserForm1.Zoom = 20
End Sub

Çok teşekkür ederim

 

[Cengizhantr06]

Bu kodu bir test edin.

Private Sub UserForm_Click()
UserForm1.Zoom = UserForm1.Zoom + 5
UserForm1.Height = UserForm1.Height + 7
UserForm1.Width = UserForm1.Width + 13.5
End Sub

Çok teşekkür ederim

 

[Haluk]

15 yıl öncesinden bir alternatif:

ekran çözünürlügü

Merhaba arkadaşlar, Ben userformu ekran çözünürlüğüne göre ayarlamak istiyorum, ve üzerindeki textbox, combobox, listbox ve commantbutton larda aynı oranda büyüsün küçülsün istemiştim, ama userform ekrana göre büyüyor digerleri formun sol üst köşesinde kalıyor, bunu nasıl yapabilirim yardımcı...

www.excel.web.tr

.

 

[Cengizhantr06]

15 yıl öncesinden bir alternatif:

ekran çözünürlügü

Merhaba arkadaşlar, Ben userformu ekran çözünürlüğüne göre ayarlamak istiyorum, ve üzerindeki textbox, combobox, listbox ve commantbutton larda aynı oranda büyüsün küçülsün istemiştim, ama userform ekrana göre büyüyor digerleri formun sol üst köşesinde kalıyor, bunu nasıl yapabilirim yardımcı...

www.excel.web.tr

.

çok harikara olmuş sağolun haluk bey