mit folgendem Code passe ich eine Userform an die Größe eines Bildschirms an:
Private Declare PtrSafe Function GetSystemMetrics Lib "USER32" (ByVal nIndex As Long) As Long
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Public Breite
Public Sub Formular_Vollbild()
Breite = GetSystemMetrics(SM_CXSCREEN)
Höhe = GetSystemMetrics(SM_CYSCREEN)
End Sub
Private Sub UserForm_Initialize()
Me.Left = 0
Me.Top = 0
Me.Height = Höhe
Me.Width = Breite
End Sub
Das funktioniert auch. Nun habe ich die Datei einem externen Anwender zur Verfügung gestellt, der 2 Bildschirme nutzt und die UF ragt über den ersten in den zweiten Bildschirm hinein. Wie erreiche ich es, dass die UF als Vollbild auf dem ersten Bildschirm angezeigt wird?Gruß und Danke
Martin