Gets a CommandBar object that represents the active menu bar in the container application. Read-only.
Note
The use of CommandBars in some Microsoft Office applications has been superseded by the new Ribbon user interface. For more information, search help for the keyword "Ribbon."

Syntax

expression.ActiveMenuBar

expression A variable that represents a CommandBars object.

Example
This example adds a temporary pop-up control named "Custom" to the end of the active menu bar, and adds a control named "Import" to the pop-up control.

Visual Basic for Applications 
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
active active menu bar Active Menu Bar Property activemenu activemenubar activemenubar property get the command bar object for the active menu in container application ofv return a command bar object that represents the active menu bar set the active menu command bar object

See also: