Mit dem folgenden Makro können Sie eine auf dem Bildschirm zentrierte Befehlsleiste sowohl horizontal als auch vertikal anzeigen.

Das Makro zeigt auch, wie Sie die Bildschirmgröße mithilfe der Funktion GetSystemMetrics32 erhalten können.

Declare Function GetSystemMetrics32 Lib "User32" _

Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Sub CenterCommandBar()

Dim w As Long, h As Long

w = GetSystemMetrics32(0) ' screenwidth in points

h = GetSystemMetrics32(1) ' screenheight in points

With CommandBars("MyCommandBarName")

.Position = msoBarFloating

.Left = w / 2 - .Width / 2

.Top = h / 2 - .Height / 2

End With

End Sub