USERFORM un başka bilgisayarlarda açıldığında o bilgisayarın ekranına sığması?

[sukruyilmaz1]

iyi günler arkadaşlar. ekli userfomumu başka bilgisayarlarda açtığımda , o bilgisayarın ekranına sığmıyor, yazılar kayıyor, bunu nasıl engelleriz??

 

[mancubus]

şunu bir deneyelim.

UserForm1 kısmını dosyadaki UF'un ismi ile değiştirmek gerekiyor elbette..

Private Sub UserForm_Initialize()

With Application
     .WindowState = xlMaximized
     UserForm1.Width = .Width
     UserForm1.Height = .Height
End With

End Sub

 

[sukruyilmaz1]

dediğiniz gibi yaptım fakat sonuç gene aynı çıktı. başka bir bilgisayarda açtığımda Userform um alt kısımları gözükmüyor.

 

[Husgvarna]

dediğiniz gibi yaptım fakat sonuç gene aynı çıktı. başka bir bilgisayarda açtığımda Userform um alt kısımları gözükmüyor.

Kodlar dosyanızda zaten var ama yanlış yere yazılmış.
Ekdeki dosyadaki gibi yapın.

 [COLOR="#ff0000"]Private Sub VERİ_GİRİŞ_Initialize()[/COLOR]
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
[COLOR="Red"]End Sub[/COLOR]

Kırmızı bölüm arasını

 Private Sub UserForm_Initialize()

altına alın.

 Private Sub büyüt_Click()

Bölümünüde silin.

 

[sukruyilmaz1]

TEŞEKKÜR EDERİM SAYIN: Husgvarna. iyi çalışmalar.