Propiedad ActiveMenuBar
Devuelve un objeto CommandBar que representa la barra de menús activa de la aplicación contenedora. Es de sólo lectura.
Ejemplo
Este ejemplo agrega un control emergente temporal denominado "Custom" al final de la barra de menús activa y, a continuación, agrega un control de botón denominado "Import" en la barra de comandos mostrada por el control.
Set myMenuBar = CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
newMenu.Caption = "Custom"
Set ctrl1 = newMenu.CommandBar.Controls _
.Add(Type:=msoControlButton, Id:=1)
With ctrl1
.Caption = "Import"
.TooltipText = "Import"
.Style = msoButtonCaption
End With