Office VBA教程:ActiveMenuBar属性

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

VBA示例

本示例可实现的功能为:在活动菜单栏的末尾暂时添加一个弹出式控件“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教程:ActionControl属性 下页:Office VBA教程:AdaptiveMenu属性

Office VBA教程:ActiveMenuBar属性

Office VBA教程:AdaptiveMenu属性 Office VBA教程:AdaptiveMenus属性
Office VBA教程:AllowMultiSelect属性 Office VBA教程:Animation属性
Office VBA教程:Application属性 Office VBA教程:AssistWithAlerts属性
Office VBA教程:AssistWithHelp属性 Office VBA教程:AssistWithWizards属性
Office VBA教程:AttachCertificate属性 Office VBA教程:BalloonError属性
Office VBA教程:BalloonType属性 Office VBA教程:BeginGroup属性
Office VBA教程:BuiltIn属性 Office VBA教程:BuiltInFace属性
Office VBA教程:Button属性 Office VBA教程:ButtonName属性
Office VBA教程:Callback属性 Office VBA教程:Caption属性
Office VBA教程:Checkboxes属性 Office VBA教程:Checked属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号