Zeigen Sie mit VBA in Microsoft Excel eine auf dem Bildschirm zentrierte CommandBar an

Anonim

Mit dem Makro unten können Sie eine CommandBar sowohl horizontal als auch vertikal zentriert auf dem Bildschirm anzeigen.
Das Makro zeigt auch, wie Sie mit der Funktion GetSystemMetrics32 die Bildschirmgröße ermitteln können.

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) ' Bildschirmbreite in Punkten h = GetSystemMetrics32(1) ' Bildschirmhöhe in Punkten With CommandBars("MyCommandBarName") .Position = msoBarFloating .Left = w / 2 - .Width / 2 .Top = h / 2 - .Height / 2 End With End Sub