UserForm zentriert

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.

▲ nach oben …

Dieser Beitrag wurde unter Allgemein veröffentlicht. Setze ein Lesezeichen auf den Permalink.