Visualizza una CommandBar centrata sullo schermo usando VBA in Microsoft Excel

Anonim

Con la macro sottostante, puoi visualizzare una CommandBar centrata sullo schermo, sia orizzontalmente che verticalmente.
La macro mostra anche come ottenere la dimensione dello schermo utilizzando la funzione GetSystemMetrics32.

Dichiara funzione GetSystemMetrics32 Lib "User32" _ Alias ​​"GetSystemMetrics" (ByVal nIndex As Long) As Long Sub CenterCommandBar() Dim w As Long, h As Long w = GetSystemMetrics32(0) ' larghezza dello schermo in punti h = GetSystemMetrics32(1) ' altezza dello schermo in punti With CommandBars("MyCommandBarName") .Position = msoBarFloating .Left = w / 2 - .Width / 2 .Top = h / 2 - .Height / 2 End With End Sub