Tabla de contenido
Con la macro siguiente, puede mostrar una CommandBar centrada en la pantalla, tanto horizontal como verticalmente.
La macro también muestra cómo puede obtener el tamaño de la pantalla utilizando la función GetSystemMetrics32.
Declarar función GetSystemMetrics32 Lib "User32" _ Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Sub CenterCommandBar () Dim w As Long, h As Long w = GetSystemMetrics32 (0) 'screenwidth en puntos h = GetSystemMetrics32 (1)' screenheight en puntos Con CommandBars ("MyCommandBarName") .Position = msoBarFloating .Left = w / 2 - .Width / 2 .Top = h / 2 - .Height / 2 End With End Sub
