ActiveMenuBar 属性

返回这样一个 CommandBar 对象，该对象代表容器应用程序中的活动菜单栏。只读。

示例

本示例可实现的功能为：在活动菜单栏的末尾暂时添加一个弹出式控件“Custom”，然后在该控件显示的弹出式控件中添加一个按钮控件“Import”。

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