userform ekran çözünürlüğüne göre tam ekran yapma

[burhancavus61]

userform ekran çözünürlüğüne göre her durumda tam ekran yapmak istiyorum bir yolu varmı acaba sadece bir user formu tam ekran yapmak istiyorum diğerleri sabit kalmalı kolay gelsin herkese

 

[Haluk]

http://www.excel.web.tr/viewtopic.php?p=10645#10645

 

[burhancavus61]

teşekkürler haluk bey

çok makbule geçti sağolun

 

[haso_excel]

User formumu ilgli dosya açıldığında herhangi bir butona basmadan nasıl açarım. Ayrıca açıldığında da tam ekran olarak açılmasını nasıl sağlarım. Yardımcı olur musunuz lütfen ? İlgili ling hata veriyor.

 

[nihatkr]

http://www.excel.web.tr/viewtopic.php?p=10645#10645

LİNK ÇALIŞMIYOR

 

[vBlue]

gerçekten de link çalışmıyor !

 

[puslukurt]

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

bu kodu deneyin işinize yarayacaktır.

http://www.excel.web.tr/showthread.php?t=38369
adresindende faydalanabilirsiniz

 

[halilkoyuncu]

link çalışmıyor

 

[Korhan Ayhan]

Bahsi geçen kodlar zaten #7 nolu mesajda paylaşılmış.

Ben yine de @Haluk beyin hazırladığı koda ait linki aşağıda paylaşıyorum.

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