Visa en CommandBar centrerad på skärmen med VBA i Microsoft Excel

Anonim

Med makrot nedan kan du visa en kommandofält centrerad på skärmen, både horisontellt och vertikalt.
Makrot visar också hur du kan få skärmstorlek med funktionen GetSystemMetrics32.

Deklarera funktion GetSystemMetrics32 Lib "User32" _ Alias ​​"GetSystemMetrics" (ByVal nIndex As Long) As Long Sub CenterCommandBar () Dim w As Long, h As Long w = GetSystemMetrics32 (0) 'skärmbredd i punkter h = GetSystemMetrics32 (1)' skärmhöjd i punkter Med CommandBars ("MyCommandBarName") .Position = msoBarFloating .Left = w / 2 - .Width / 2 .Top = h / 2 - .Hight / 2 End With End Sub