Với macro bên dưới, bạn có thể hiển thị CommandBar ở giữa màn hình, theo cả chiều ngang và chiều dọc.

Macro cũng chỉ ra cách bạn có thể lấy kích thước màn hình bằng cách sử dụng hàm 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