コマンドバーは、Microsoft ExcelでVBAを使用して、画面の中央に表示し
以下のマクロを使用すると、コマンドバーを画面の中央に水平方向と垂直方向の両方に表示できます。
このマクロは、関数GetSystemMetrics32を使用して画面サイズを取得する方法も示しています。
Declare Function GetSystemMetrics32 Lib "User32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Sub CenterCommandBar()
Dim w As Long, h As Long
w = GetSystemMetrics32(0) ' screenwidth in points
h = GetSystemMetrics32(1) ' screenheight in points
With CommandBars("MyCommandBarName")
.Position = msoBarFloating
.Left = w / 2 - .Width / 2
.Top = h / 2 - .Height / 2
End With
End Sub