Za pomocą poniższego makra możesz wyświetlić pasek poleceń wyśrodkowany na ekranie, zarówno w poziomie, jak iw pionie.
Makro pokazuje również, jak uzyskać rozmiar ekranu za pomocą funkcji GetSystemMetrics32.
Zadeklaruj funkcję GetSystemMetrics32 Lib "User32" _ Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Sub CenterCommandBar() Dim w As Long, h As Long w = GetSystemMetrics32(0) ' szerokość ekranu w punktach h = GetSystemMetrics32(1) ' wysokość ekranu w punktach With CommandBars("MyCommandBarName") .Position = msoBarFloating .Left = w / 2 - .Width / 2 .Top = h / 2 - .Height / 2 End With End Sub