Alloleva makro abil saate kuvada käsuriba ekraani keskel nii horisontaalselt kui ka vertikaalselt.
Makro näitab ka seda, kuidas saate ekraani suurust funktsiooni GetSystemMetrics32 abil saada.
Deklareeri funktsioon GetSystemMetrics32 Lib "User32" _ Alias "GetSystemMetrics" (ByVal nIndex nii kaua) kui pikk alamkeskusCommandBar () Dim w Kui pikk, h Nii kaua w = GetSystemMetrics32 (0) 'ekraani laius punktides h = GetSystemMetrics32 (1)' ekraani kõrgus punktides CommandBars ("MyCommandBarName") .Position = msoBarFloating .Left = w / 2 - .Width / 2 .Top = h / 2 - .Height / 2 End With End Sub