UserForm zentriert im aktiven Fenster darstellen
In manchen Fällen will es einfach nicht klappen, dass eine UserForm immer zentriert in der Mitte des aktiven Anwendungs-Fensters dargestellt wird. Und wenn mehrere Bildschirme verwendet werden, scheint das mitunter ein Glücksspiel zu sein- Mit wenigen Zeilen Code lässt sich das aber bereinigen:
Private Sub UserForm_Initialize() Dim xTop As Long, xLeft As Long Me.StartUpPosition = 0 With Application xLeft = .Left + .Width / 2 - Me.Width / 2 xTop = .Top + .Height / 2 - Me.Height / 2 End With With Me .Left = xLeft .Top = xTop End With End Sub
Dieser Code wird (naturgemäß) in die entsprechende UserForm eingefügt.
[NachObenLetzte Verweis="CS: UserForm zentriert"]