Zobrazte VB v aplikaci Microsoft Excel pomocí příkazového řádku se středem na obrazovce

Anonim

V níže uvedeném makru můžete zobrazit CommandBar vystředěný na obrazovce, horizontálně i vertikálně.
Makro také ukazuje, jak můžete získat velikost obrazovky pomocí funkce GetSystemMetrics32.

Deklarace funkce 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 v bodech s CommandBars („MyCommandBarName“) .Position = msoBarFloating .Left = w / 2 - .Width / 2 .Top = h / 2 - .Height / 2 End With End Sub