Med makroen herunder kan du vise en kommandolinje centreret på skærmen, både vandret og lodret.
Makroen viser også, hvordan du kan få skærmstørrelsen ved hjælp af funktionen GetSystemMetrics32.
Deklarer funktion GetSystemMetrics32 Lib "User32" _ Alias "GetSystemMetrics" (ByVal nIndex så længe) Så lang Sub CenterCommandBar () Dim w As Long, h As Long w = GetSystemMetrics32 (0) 'skærmbredde i punkter h = GetSystemMetrics32 (1)' skærmhøjde i punkter Med CommandBars ("MyCommandBarName") .Position = msoBarFloating .Left = w / 2 - .Width / 2 .Top = h / 2 - .Hight / 2 End With End Sub