Alla olevan makron avulla voit näyttää komentorivin näytön keskellä sekä vaaka- että pystysuunnassa.
Makro näyttää myös, kuinka voit saada näytön koon käyttämällä GetSystemMetrics32 -toimintoa.
Ilmoita toiminto GetSystemMetrics32 Lib "User32" _ Alias "GetSystemMetrics" (ByVal nIndex niin kauan) Pitkänä alikeskuksenaCommandBar () Dim w Niin pitkä, h Niin kauan w = GetSystemMetrics32 (0) '' näytön leveys pisteinä h = GetSystemMetrics32 (1) '' näytön korkeus pisteissä CommandBars ("MyCommandBarName") .Position = msoBarFloating .Left = w / 2 - .Width / 2 .Top = h / 2 - .Height / 2 End With End Sub