时　间:2009-09-04 12:02:50
作　者:江羽   ID：3967  城市：南昌
摘　要:之前发了第一篇
正　文:

五、菜单

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。

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

   上一章  下一章