명령 모음 Microsoft Excel에서 VBA를 사용하여 화면 중앙에 표시
아래 매크로를 사용하면 수평 및 수직으로 화면 중앙에 CommandBar를 표시 할 수 있습니다.
이 매크로는 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