Με τη μακροεντολή παρακάτω, μπορείτε να εμφανίσετε ένα CommandBar στο κέντρο της οθόνης, οριζόντια και κάθετα.
Η μακροεντολή δείχνει επίσης πώς μπορείτε να αποκτήσετε το μέγεθος οθόνης χρησιμοποιώντας τη συνάρτηση GetSystemMetrics32.
Δηλώστε τη λειτουργία GetSystemMetrics32 Lib "User32" _ asευδώνυμο "GetSystemMetrics" (ByVal nIndex Όσο καιρό) Όσο καιρό Sub CenterCommandBar () Dim w As Long, h As Long w = GetSystemMetrics32 (0) 'screenwidth in points h = GetSystemMetrics32 (1)' screenheight σε σημεία με CommandBars ("MyCommandBarName") .Position = msoBarFloating .Left = w / 2 - .Width / 2 .Top = h / 2 - .Hight / 2 End With End Sub