UserForm Nesne Boyutları

[muhammethezer]

Merhaba Arkadaşlar UserFormu üzerinde bulunan nesnelerle tam ekran yaptığımda UserForm büyüyor, Ancak Form üzerindeki nesneler form ile birlikte büyümüyor. Nasıl bir işlem yapabilirim.

 

[Muzaffer Ali]

Merhaba.
Formun Resize olayı içinde diğer kontrollerin boyutlarını ayarlayabilirsiniz. Bunun otomatik bir yolu VBA da yok.
API ler ile otomatik boyut sağlanabilir fakat buna da hiç gerek yok.

 

[muhammethezer]

Sayın @dalgalikur cevabınız için teşekkür ederim. https://exceloffthegrid.com/resize-a-userform-with-vba-or-windows-api/ linkte konu ile ilgili bir açıklama mevcut.

 

[Muzaffer Ali]

Bu formu büyütüp küçültmek ile ilgili bir api. Form içindeki nesneler ile ilgili değil.
Bence Api kullanmayın, diğer yöntemi kullanın.

 

[BAZGİRET]

Merhaba,
Aşağıdaki kod işini görecektir. Bu kod forumda mevcuttur. Doğrusu kodun kime ait olduğunu tam olarak bilmiyorum ama UserFormu orantılı olarak büyütmede idealdir. Userformun initialize kısmına yapıştırın.

Private Sub UserForm_Initialize()
Dim X1 As Long, Y1 As Long, Y2 As Long, X2 As Long
Dim CX As Double, CY As Double
Dim MyCtrl As Control
X1 = Application.Width
Y1 = Application.Height
X2 = Me.Width
Y2 = Me.Height
CX = X1 / X2
CY = Y1 / Y2
Me.Width = X1
Me.Height = Y1
For Each MyCtrl In Me.Controls
MyCtrl.Top = MyCtrl.Top * CY
MyCtrl.Left = MyCtrl.Left * CX
MyCtrl.Width = MyCtrl.Width * CX
MyCtrl.Height = MyCtrl.Height * CY
On Error Resume Next
MyCtrl.Font.Size = MyCtrl.Font.Size * CY
On Error GoTo 0
Next
End Sub

 

[Haluk]

Merhaba,
Aşağıdaki kod işini görecektir. Bu kod forumda mevcuttur. Doğrusu kodun kime ait olduğunu tam olarak bilmiyorum ama UserFormu orantılı olarak büyütmede idealdir. Userformun initialize kısmına yapıştırın.

Kodlar benimdi. ...

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

.

 

[BAZGİRET]

Sayın @Haluk bilgilendirme için teşekkürler.