当前位置：首页 > 文档资料 > Microsoft Office 对象参考 >

ActiveMenuBar 属性

优质

小牛编辑

124浏览

2023-12-01

返回这样一个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

免责声明：以上内容版权归原作者所有，如有侵犯您的原创版权请告知，我们将尽快删除相关内容。感谢每一位辛勤著写的作者，感谢每一位的分享。