五、菜单

5.1 Add方法用于CommandBarControls对象

新建一个 CommandBarControl 对象并添加到指定命令栏上的控件集合。

Expression.Add ( Type , Id , Parameter , Before , Temporary )

l expression必需。该表达式返回一个 CommandBarControls 对象。

l Type（Variant类型）可选。添加到指定命令栏的控件类型。可以为下列 MsoControlType常量之一：

l Id （Variant 类型）可选。指定内置控件的整数。如果该参数为1 ，或者忽略该参数，将在命令栏中添加一个空的指定类型的自定义控件。

l Parameter（ Variant 类型）可选。对于内置控件，该参数用于容器应用程序运行命令。对于自定义控件，可以使用该参数向 Visual Basic 过程传递信息，或用其存储控件信息（类似于第二个 Tag 属性值）。

l Before（Variant 类型）可选。表示新控件在命令栏上位置的数字。新控件将插入到该位置控件之前。如果忽略该参数，控件将添加到指定命令栏的末端。

l Temporary（Variant 类型）可选。设置为True 将使新命令栏为临时命令栏。临时命令栏在关闭容器应用程序时删除。默认值为 False。

以下代码示例将您通过编程方式添加的菜单名称添加到“工作表”菜单栏中。例如，此代码会将菜单名称“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

禁用的菜单控件在命令栏中显示为灰色，并且不可用。以下示例禁用“New Menu”菜单：

Sub Menu_Disable()

CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = False

End Sub

以下代码示例启用您在“禁用命令栏上的菜单控件”一节中禁用的 New Menu 菜单：

Sub Menu_Disable()

CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = True

End Sub

以下代码示例从“工作表”菜单栏中删除您在“向命令栏添加自定义菜单控件”一节中创建的“New Menu”菜单：

Sub Menu_Delete()

CommandBars("Worksheet menu bar").Controls("New &Menu").Delete

End Sub

以下代码示例还原“工作表”菜单栏上的内置“图表”菜单栏：

Sub Menu_Restore()

Dim myMnu As Object

Set myMnu = CommandBars("Chart")

myMnu.Reset

End Sub