VBA自定义菜单和菜单栏(二)
五、菜单
5.1 Add方法用于CommandBarControls对象
新建一个 CommandBarControl 对象并添加到指定命令栏上的控件集合。
Expression.Add ( Type , Id , Parameter , Before , Temporary )
l expression必需。该表达式返回一个 CommandBarControls 对象。
l Type（Variant类型）可选。添加到指定命令栏的控件类型。可以为下列 MsoControlType常量之一：
|
常量 |
说明 |
|
msoControlButton |
命令按钮 |
|
msoControlEdit |
文本框 |
|
msoControlDropdown |
下拉列表 |
|
msoControlComboBox |
组合框 |
|
msoControlPopup |
弹出菜单 |
l Id （Variant 类型）可选。指定内置控件的整数。如果该参数为1 ，或者忽略该参数，将在命令栏中添加一个空的指定类型的自定义控件。
l Parameter（ Variant 类型）可选。对于内置控件，该参数用于容器应用程序运行命令。对于自定义控件，可以使用该参数向 Visual Basic 过程传递信息，或用其存储控件信息（类似于第二个 Tag 属性值）。
l Before（Variant 类型）可选。表示新控件在命令栏上位置的数字。新控件将插入到该位置控件之前。如果忽略该参数，控件将添加到指定命令栏的末端。
l Temporary（Variant 类型）可选。设置为True 将使新命令栏为临时命令栏。临时命令栏在关闭容器应用程序时删除。默认值为 False。
5.2向命令栏添加自定义菜单控件
以下代码示例将您通过编程方式添加的菜单名称添加到“工作表”菜单栏中。例如，此代码会将菜单名称“New Menu”添加到“工作表”菜单栏中。
注意：您可以根据需要为该菜单指定任何名称。
Sub Menu_Create()
Dim myMnu As Object
Set myMnu = CommandBars("Worksheet menu bar").Controls. _
Add(Type:=msoControlPopup, before:=3)
With myMnu
' "&" 用以指定快捷键字符 (相当于Alt+M).
.Caption = "New &Menu"
End With
End Sub
5.3禁用命令栏上的菜单控件
禁用的菜单控件在命令栏中显示为灰色，并且不可用。以下示例禁用“New Menu”菜单：
Sub Menu_Disable()
CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = False
End Sub
5.4启用命令栏上的菜单控件
以下代码示例启用您在“禁用命令栏上的菜单控件”一节中禁用的 New Menu 菜单：
Sub Menu_Disable()
CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = True
End Sub
5.5删除命令栏上的菜单控件
以下代码示例从“工作表”菜单栏中删除您在“向命令栏添加自定义菜单控件”一节中创建的“New Menu”菜单：
Sub Menu_Delete()
CommandBars("Worksheet menu bar").Controls("New &Menu").Delete
End Sub
5.6还原命令栏上的菜单控件
以下代码示例还原“工作表”菜单栏上的内置“图表”菜单栏：
Sub Menu_Restore()
Dim myMnu As Object
Set myMnu = CommandBars("Chart")
myMnu.Reset
End Sub
(责任编辑：admin)
