С макроса по -долу можете да покажете CommandBar, центриран върху екрана, както хоризонтално, така и вертикално.
Макросът също така показва как можете да получите размера на екрана, като използвате функцията GetSystemMetrics32.
Декларирайте функция GetSystemMetrics32 Lib "User32" _ Псевдоним "GetSystemMetrics" (ByVal nIndex толкова дълго) колкото дълъг подцентърCommandBar () Dim w толкова дълъг, h As Long w = GetSystemMetrics32 (0) 'ширина на екрана в точки h = GetSystemMetrics32 (1)' екран в точки С CommandBars ("MyCommandBarName"). Позиция = msoBarFloating .Left = w / 2 - .Width / 2 .Top = h / 2 - .Height / 2 End With End Sub