Private Sub UserForm_Initialize()
'Bildschirmanpassung der UserForm
Dim MyControl As Object
For Each MyControl In Controls
MyControl.Top = MyControl.Top * Application.Height / UserForm1.Height
MyControl.Left = MyControl.Left * Application.Width / UserForm1.Width
MyControl.Width = MyControl.Width * Application.Width / UserForm1.Width
MyControl.Height = MyControl.Height * Application.Height / UserForm1.Height
Next
With UserForm1
.Height = Application.Height - 3
.Width = Application.Width - 4
Me.Left = 0
Me.Top = 0
End With
End Sub
Private Declare Function GetSystemMetrics Lib "user32" _
(ByVal nIndex As Long) As Long
'Bildschirmauflösung des Bildschirms an dem die Userform erstellt wurde
Const LHorizontale As Long = 1680
Const LVertikal As Long = 1050
Private Sub UserForm_Initialize()
Dim X As Single, Y As Single, LZoom As Long
Dim cCon As Control
X = 100 / LHorizontale * GetSystemMetrics(0)
Y = 100 / LVertikal * GetSystemMetrics(1)
LZoom = Application.Min(X, Y)
Me.Width = Me.Width / 100 * X
Me.Height = Me.Height / 100 * Y
Me.Zoom = LZoom
For Each cCon In Me.Controls
cCon.Font.Size = cCon.Font.Size / 100 * X
Next cCon
End Sub
Private Sub UserForm_Initialize()
Dim X As Single, Y As Single, LZoom As Long
Dim cCon As Control
X = 100 / LHorizontale * GetSystemMetrics(0)
Y = 100 / LVertikal * GetSystemMetrics(1)
LZoom = Application.Min(X, Y)
Me.Width = Me.Width / 100 * X
Me.Height = Me.Height / 100 * Y
Me.Zoom = LZoom
For Each cCon In Me.Controls
cCon.Font.Size = cCon.Font.Size / 100 * X
Next cCon
'-- von mir
With UserForm1
.Height = Application.Height
.Width = Application.Width
End With
End Sub