Userformun bilgisayara göre otomatik boyut alması

[fatih34]

Arkadaşlar evdeki bilgisayarda hazırladığım userformu iş yerindeki bilgisayarda açtığımda formun tam olarak gözükmediğinden, tekrardan formu ayarlamak gerekiyor. Merak ettiğim bunu bir kod ile ayarlaya bilirmiyiz.

 

[dEdE]

Arkadaşlar evdeki bilgisayarda hazırladığım userformu iş yerindeki bilgisayarda açtığımda formun tam olarak gözükmediğinden, tekrardan formu ayarlamak gerekiyor. Merak ettiğim bunu bir kod ile ayarlaya bilirmiyiz.

Arama yaparsanız Forumda birçok örnek var.

 

[fatih34]

Arama yaparsanız Forumda birçok örnek var.

ilginize teşekkür ederim. Baktım ama bulamadım. Her halde gözümden kaçtı.
Hocam evde çalıştığım monitör 22', işyerindeki monitorler 15 ve 19' olarak değişiyor.

 

[BAZGİRET]

Merhaba
Bu kodu deneyiniz.
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

 

[dEdE]

ilginize teşekkür ederim. Baktım ama bulamadım. Her halde gözümden kaçtı.
Hocam evde çalıştığım monitör 22', işyerindeki monitorler 15 ve 19' olarak değişiyor.

Evet, gözünüzden kaçmış
Ben yaklaşık 50 tane buldum. Bazıları aşağıda.

http://www.excel.web.tr/f48/userform-auto-size-15-17-19-20-inc-t37390.html
http://www.excel.web.tr/f48/userform-ekran-cozunurluoune-gore-tam-ekran-yapma-t12676.html
http://www.excel.web.tr/f48/formu-tam-ekran-yapma-t46797.html
http://www.excel.web.tr/f48/tam-ekran-modu-bir-turlu-olmuyor-yardim-ac-t92308.html
http://www.excel.web.tr/f48/farkly-bilgisayarda-cozunurlukte-userform-t93876.html
http://www.excel.web.tr/f48/userfor...larda-acyldyoynda-o-bilgisayaryn-t113461.html
http://www.excel.web.tr/f48/userform-tam-ekran-olduounda-listbox-sutunlary-da-geni-t114296.html


Sayın bazgiret,
Amaç balık verip karın doyurmak değil. Balık tutmasını öğretmek.
Verdiğiniz kodlar yukarıdaki linklerin tümünde var.
Arama yapmadan işin kolayına kaçılmasına karşı olduğumdan ve bu tür yazışmalar forumda kirliliğe sepep olduğundan; soru sorulazdan önce arama yapılmasını öneriyorum.
Zaten bu durum, Forumun kuralları arasında da yer alıyor. (Arama Yapma Zorunluluğu)
Ayrıca kodlarınızı ""CODE" tagı içine yazarsanız daha iyi olur
Hoşçakalın.

 

[fatih34]

hocalarım teşekkür ederim.
Dede hocam inanın forumu ve mesajları takip ediyorum. Ve bir şeyler öğrenmeye çalışıyorum sizlerin sayesinde. Sadece monitörün çözünürlüğüne useformunda otomatik ayarlanma olur mu diye merak etmiştim.