Parādiet komandrindu ekrāna centrā, izmantojot Microsoft Excel VBA

Anonim

Izmantojot zemāk redzamo makro, varat parādīt komandrindu ekrāna centrā gan horizontāli, gan vertikāli.
Makro arī parāda, kā iegūt ekrāna izmēru, izmantojot funkciju GetSystemMetrics32.

Deklarēt funkciju GetSystemMetrics32 Lib "User32" _ Pseidonīms "GetSystemMetrics" (ByVal nIndex tik ilgi) kā garš apakšcentrsCommandBar () Dim w Tik garš, h Cik ilgi w = GetSystemMetrics32 (0) 'ekrāna platums punktos h = GetSystemMetrics32 (1)' ekrāna augstums punktos Ar CommandBars ("MyCommandBarName") .Position = msoBarFloating .Left = w / 2 - .Width / 2 .Top = h / 2 - .Height / 2 End With End Sub