Aşağıdaki makro ile ekranda ortalanmış bir CommandBar'ı hem yatay hem de dikey olarak görüntüleyebilirsiniz.
Makro, GetSystemMetrics32 işlevini kullanarak ekran boyutunu nasıl alabileceğinizi de gösterir.
Bildir İşlev GetSystemMetrics32 Lib "User32" _ Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Sub CenterCommandBar() Dim w As Long, h As Long w = GetSystemMetrics32(0) ' ekran genişliği noktaları h = GetSystemMetrics32(1) ' ekran yüksekliği puan cinsinden CommandBars("MyCommandBarName") ile .Position = msoBarFloating .Left = w / 2 - .Width / 2 .Top = h / 2 - .Height / 2 End With End Sub