С помощью приведенного ниже макроса вы можете отобразить CommandBar по центру экрана как по горизонтали, так и по вертикали.

Макрос также показывает, как можно получить размер экрана с помощью функции 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