Con la macro siguiente, puede mostrar una CommandBar centrada en la pantalla, tanto horizontal como verticalmente.

La macro también muestra cómo puede obtener el tamaño de la pantalla mediante la función GetSystemMetrics32.

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