Afișați o CommandBar centrată pe ecran folosind VBA în Microsoft Excel

Anonim

Cu macro-ul de mai jos, puteți afișa o CommandBar centrată pe ecran, atât pe orizontală, cât și pe verticală.
Macro arată, de asemenea, cum puteți obține dimensiunea ecranului utilizând funcția GetSystemMetrics32.

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) 'screenwidth in points h = GetSystemMetrics32 (1)' screenheight în puncte Cu CommandBars ("MyCommandBarName") .Position = msoBarFloating .Left = w / 2 - .Width / 2 .Top = h / 2 - .Height / 2 End With End Sub