Geef een CommandBar weer gecentreerd op het scherm met VBA in Microsoft Excel

Anonim

Met de onderstaande macro kunt u een CommandBar gecentreerd op het scherm weergeven, zowel horizontaal als verticaal.
De macro laat ook zien hoe je de schermgrootte kunt krijgen met behulp van de functie GetSystemMetrics32.

Declareer functie GetSystemMetrics32 Lib "User32" _ Alias ​​"GetSystemMetrics" (ByVal nIndex As Long) As Long Sub CenterCommandBar() Dim w As Long, h As Long w = GetSystemMetrics32(0) ' screenwidth in punten h = GetSystemMetrics32(1) ' screenheight in punten Met CommandBars ("MyCommandBarName") .Position = msoBarFloating .Left = w / 2 - .Width / 2 .Top = h / 2 - .Height / 2 End With End Sub