Zobrazte príkazový riadok vycentrovaný na obrazovku pomocou jazyka VBA v programe Microsoft Excel

Anonim

V nižšie uvedenom makre môžete zobraziť panel CommandBar vycentrovaný na obrazovku, horizontálne aj vertikálne.
Makro tiež ukazuje, ako môžete získať veľkosť obrazovky pomocou funkcie GetSystemMetrics32.

Deklarujte funkciu GetSystemMetrics32 Lib "User32" _ Alias ​​"GetSystemMetrics" (ByVal nIndex ako dlhý) Ako dlhý Sub CenterCommandBar () Dim w Ako dlhý, h ako dlhý w = GetSystemMetrics32 (0) 'šírka obrazovky v bodoch h = GetSystemMetrics32 (1)' obrazovka v bodoch pomocou CommandBars („MyCommandBarName“). Poloha = msoBarFloating. Left = w / 2 - .Width / 2 .Top = h / 2 - .Height / 2 End With End Sub