通过

CommandBars.ActiveMenuBar 属性 (Office)

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

注意

某些 Microsoft Office 应用程序中对 CommandBars 的使用已由 Microsoft Office Fluent 用户界面的新功能区组件取代。 有关详细信息，请参阅 Office Fluent 功能区概述。

语法

表达式。ActiveMenuBar

表达 一个代表 CommandBars 对象的变量。

示例

本示例将名为 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

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。