ich möchte eine UserForm auf die Bildschirmgröße maximieren, wobei die Auflösung vorher ermittelt wird.
Im Internet habe ich dazu folgenden Text gefunden:
Private Sub UserForm_initialize()
'Die Groesse einer Userform auf die gesamte Monitorgoesse anpassen
Me.Left = 0
Me.Top = 0
Me.Height = GetSystemMetrics(SM_CYSCREEN) * 0.75
Me.Width = GetSystemMetrics(SM_CXSCREEN) * 0.75
'ggf weiterer Code
End Sub
Dies funktioniert auch sehr gut, aber die Elemente auf der UserForm bleiben immer an der ursprünglichen Position und in der ursprünglichen Grösse.
Ich hoffe, es kann mir jemand weiterhelfen.
mfg
harald