Vis en kommandolinje sentrert på skjermen ved hjelp av VBA i Microsoft Excel

Anonim

Med makroen nedenfor kan du vise en kommandolinje sentrert på skjermen, både horisontalt og vertikalt.
Makroen viser også hvordan du kan få skjermstørrelsen ved å bruke funksjonen GetSystemMetrics32.

Deklarere funksjon GetSystemMetrics32 Lib "User32" _ Alias ​​"GetSystemMetrics" (ByVal nIndex As Long) As Long Sub CenterCommandBar () Dim w As Long, h As Long w = GetSystemMetrics32 (0) 'skjermbredde i poeng h = GetSystemMetrics32 (1)' skjermhøyde i punkter Med kommandolinjer ("MyCommandBarName") .Position = msoBarFloating .Left = w / 2 - .Width / 2 .Top = h / 2 - .Height / 2 End With End Sub