VBA自定义菜单和菜单栏

野性酷女 2023-07-12 09:12 48阅读 0赞

在EXCEL中，我们的操作都是通过“工具栏、菜单栏、快捷菜”单实现。EXCEL通过菜单给我们提供基本操作功能之外，也为我们提供了扩展自定义功能的接口，即自定义自己的工具栏、菜单栏。

本文着重介绍如何在 Excel 2003版本中通过编程方式自定义菜单和菜单栏方法。其中包含Excel 中管理和自定义菜单栏、菜单、命令、子菜单和快捷菜单，我将通过代码实例分步说明。

与大家分享关于VBA实现菜单栏管理与自定义菜单栏功能的实现。

# 一、简介 #

在 Microsoft Excel 2000以上版本中实现许与自定义菜单栏和菜单相关的常见任务，可以使用“自定义”对话框（见图1.1）。但如果要实现较高级任务或为自定义程序定制菜单栏和菜单，就需要创建 Microsoft Visual Basic for Applications (VBA) 代码。

有关如何使用“自定义”对话框的更多信息，你可以单击“帮助”菜单上的“Microsoft Excel 帮助”，在“Office 助手”或“搜索向导”中键入自定义菜单栏，然后单击“搜索”查看主题。

# 二、命令栏 #

在 Microsoft Office 中，所有工具栏、菜单栏和快捷菜单都是被作为“命令栏”这样一种对象以编程方式控制的。下列所有项目在 VBA 中皆用 CommandBar 对象表示：

l    菜单栏、工具栏和快捷菜单。

l    菜单栏和工具栏上的菜单。

l    菜单、子菜单和快捷菜单上的子菜单。

您可以修改任何内置的菜单栏和工具栏，还可以创建和修改用您自己的 VBA 代码交付的自定义工具栏、菜单栏和快捷菜单。您可以将程序功能以单个按钮的形式放在工具栏上，或以命令名称组的形式放在菜单上。因为工具栏和菜单都是命令栏，所以可以使用同一类型的控件。

在 VBA 和 Microsoft Visual Basic 中，按钮和菜单项用 CommandBarButton 对象表示。显示菜单和子菜单的弹出控件用 CommandBarPopup 对象表示。在以下示例中，名为“Menu”的控件和名为“Submenu”的控件都是用于显示菜单和子菜单的弹出控件，并且这两个控件是各自的控件集中唯一的 CommandBar 对象。

在 Microsoft Excel 中，菜单栏和工具栏被视为是同一种可编程对象，即 CommandBar 对象。可以使用CommandBar 对象中的控件来指代菜单、菜单项、子菜单和快捷菜单。可以在 Type 参数中使用一个常量为每个控件指定要用于菜单、子菜单或命令的控件类型。

# 三、控件常量 #

下面是 Excel 2003 中的各种控件常量的列表，这些常量指定用于特定菜单栏控件的图形控件类型：

• MsoControlActiveX\*

• MsoControlAutoCompleteCombo\*\*\*

• MsoControlButton

• MsoControlButtonDropdown

• MsoControlButtonPopup

• MsoControlComboBox

• MsoControlCustom

• MsoControlDropdown

• MsoControlEdit

• MsoControlExpandingGrid

• MsoControlGauge

• MsoControlGenericDropdown

• MsoControlGraphicCombo

• MsoControlGraphicDropdown

• MsoControlGraphicPopup

• MsoControlGrid

• MsoControlLabel

• MsoControlLabelEx\*\*\*

• MsoControlOCXDropDown

• MsoControlPane \*\*

• MsoControlPopup

• MsoControlSpinner\*\*\*

• MsoControlSplitButtonMRUPopup

• MsoControlSplitButtonPopup

• MsoControlSplitDropdown

• MsoControlSplitExpandingGrid

• MsoControlWorkPane\*\*

\* 表示 Microsoft Excel 2000 中的新增项

\*\* 表示 Microsoft Excel 2002 中的新增项

\*\*\* 表示 Microsoft Office Excel 2003 中的新增项

# 四、菜单栏 #

菜单栏是一种命令栏。它是一种可在其中添加菜单、菜单项和子菜单的对象。

有关如何在 Excel 中管理菜单栏和菜单项的更多信息，请按照下列步骤操作：

1. 启动 Microsoft Visual Basic 编辑器。

2. 在“帮助”菜单上，单击“Microsoft Visual Basic 帮助”。

3. 在“Office 助手”框或“应答向导”框中，键入菜单栏，然后单击“搜索”。

4. 在 Excel 2003 和 Excel 2002 中，单击“添加和管理菜单栏和菜单项”。在 Excel 2000 中，单击“关于菜单和工具栏”。

可以在运行时修改菜单栏及该菜单栏上的控件。对菜单栏所做的更改可能会影响菜单栏的外观或位置。可对控件进行的更改取决于控件类型。下表列出了最常见的属性和常用于更改控件的状态、操作或内容的方法：

<table> 
 <tbody> 
 <tr> 
 <td> 属性或方法 </td> 
 <td> 用途 </td> 
 </tr> 
 <tr> 
 <td> Add </td> 
 <td> 添加菜单栏，方法是使用&nbsp;CommandBars&nbsp;对象集合的&nbsp;Add&nbsp;方法，然后为&nbsp;Menubar&nbsp;参数指定&nbsp;TRUE值。 </td> 
 </tr> 
 <tr> 
 <td> Enabled </td> 
 <td> 如果&nbsp;Enabled&nbsp;属性的值为&nbsp;TRUE，那么用户可以使用&nbsp;Visual Basic&nbsp;代码使指定的菜单栏可见。如果Enabled&nbsp;属性的值为&nbsp;FALSE，用户就无法让菜单栏可见。不过，菜单栏将出现在可用命令栏列表中。 </td> 
 </tr> 
 <tr> 
 <td> Protection </td> 
 <td> 使您可以通过特定用户操作来保护菜单栏。 </td> 
 </tr> 
 <tr> 
 <td> Position </td> 
 <td> 指定新菜单栏相对于程序窗口的位置。菜单栏相对于程序窗口的位置可以是以下&nbsp;MsoBarPosition&nbsp;常量属性之一：msoBarLeft、msoBarTop、msoBarRight、msoBarBottom、msoBarFloating、msoBarPopup（用于创建快捷菜单）或&nbsp;msoBarMenuBar（仅用于&nbsp;Apple Macintosh）。 </td> 
 </tr> 
 <tr> 
 <td> Visible </td> 
 <td> 定控件是可见的指，还是隐藏的。 </td> 
 </tr> 
 </tbody> 
</table>

## 4.1 Add方法应用于CommandBars对象 ##

新建一个命令栏并添加到命令栏集合。返回 CommandBar 对象。

expression.Add ( Name , Position , MenuBar , Temporary )

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

l        Name（Variant 类型）可选。新命令栏的名称。如果忽略该参数，则为命令栏指定默认名称（例如：Custom 1）。

l       Position（Variant 类型）可选。新命令栏的位置或类型。可以为下表所列的 MsoBarPosition 常量之一。

<table> 
 <tbody> 
 <tr> 
 <td> 常量 </td> 
 <td> 说明 </td> 
 </tr> 
 <tr> 
 <td> msoBarLeft、msoBarTop、msoBarRight&nbsp;和msoBarBottom </td> 
 <td> 指定新命令栏的左侧、顶部、右侧和底部坐标 </td> 
 </tr> 
 <tr> 
 <td> msoBarFloating </td> 
 <td> 指定新命令栏不固定 </td> 
 </tr> 
 <tr> 
 <td> msoBarPopup </td> 
 <td> 指定新命令栏为快捷菜单 </td> 
 </tr> 
 <tr> 
 <td> msoBarMenuBar </td> 
 <td> 仅适用于&nbsp;Macintosh&nbsp;机 </td> 
 </tr> 
 </tbody> 
</table>

l         MenuBar  (Variant类型）可选。设置为 True 将以新命令栏替换活动菜单栏。默认值为 False。

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

## 4.2返回命令栏控件的 ID ##

以下代码示例返回活动菜单栏的 ID：

Sub Id\_Control ()

Dim myId as Object

Set myId = CommandBars("Worksheet Menu Bar").Controls("工具(&T)")

MsgBox myId.Caption & Chr(13) & MyId.Id

End Sub

## 4.3确定活动菜单栏的名称 ##

以下代码示例返回活动菜单栏的名称：

Sub MenuBars\_GetName()

MsgBox CommandBars.ActiveMenuBar.Name

End Sub

## 4.4保存（内置或自定义菜单栏的）活动状态 ##

您可能需要将 originalMenuBar 变量声明为公共变量，这样，子例程就可以在其他子例程（如 Auto\_Close 子例程）中使用该变量。以这种方式声明和使用该变量会将用户的上一个菜单栏重置为初始状态。以下示例宏重置菜单栏：

Public originalMenuBar as Object

Sub MenuBars\_Capture()

Set originalMenuBar = CommandBars.ActiveMenuBar

End Sub

## 4.5创建自定义命令栏 ##

以下代码示例创建名为 My Command Bar 的自定义命令栏：

Sub MenuBar\_Create()

Application.CommandBars.Add Name:="My command bar"

End Sub

您还可以通过使用 Temporary:=True 参数来创建自定义命令栏。Temporary:=True 参数允许命令栏在您退出Excel 时自动重置。以下代码使用 Temporary:=True 参数创建自定义命令栏：

Sub MenuBar\_Create()

Application.CommandBars.Add Name:="My command bar", Temporary:=True

End Sub

## 4.6显示自定义命令栏 ##

以下示例创建并显示自定义的“My Custom Bar”菜单栏，然后用它替换内置的菜单栏：

Sub MenuBar\_Show()

Dim myNewBar As Object

Set myNewBar = CommandBars.Add(Name:="Custom1", Position:=msoBarFloating)

'您必须先启用您的自定义菜单栏，然后看见它。

'使菜单栏添加到自定义对话框列表中的可用菜单栏上。

'设置菜单属性设置为True取代内置的菜单栏。

myNewBar.Enabled = True

myNewBar.Visible = True

End Sub

## 4.7删除自定义命令栏 ##

以下代码示例删除名为“Custom 1”的自定义菜单栏：

Sub MenuBar\_Delete()

CommandBars("Custom1").Delete

End Sub

## 4.8隐藏命令栏 ##

以下代码示例从可用菜单栏列表中删除内置“图表”菜单栏：

Sub MenuBar\_Display()

CommandBars("Chart").Enabled = False

End Sub

## 4.9显示命令栏 ##

以下代码示例从可用菜单栏中添加内置“图表”菜单栏：

Sub MenuBar\_Display()

CommandBars("Chart").Enabled = True

End Sub

## 4.10还原内置命令栏 ##

还原菜单栏会重置（菜单和菜单项的）默认控件。示例代码还原内置“图表”菜单栏：

Sub MenuBar\_Restore()

CommandBars("Chart").Reset

End Sub

注意：您只能重置内置菜单栏，不能重置自定义菜单栏。

# 五、菜单 #

## 5.1 Add方法用于CommandBarControls对象 ##

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

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

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

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

<table style="color:rgb(0,0,0)"> 
 <tbody> 
 <tr> 
 <td> 常量 </td> 
 <td> 说明 </td> 
 </tr> 
 <tr> 
 <td> msoControlButton </td> 
 <td> 命令按钮 </td> 
 </tr> 
 <tr> 
 <td> msoControlEdit </td> 
 <td> 文本框 </td> 
 </tr> 
 <tr> 
 <td> msoControlDropdown </td> 
 <td> 下拉列表 </td> 
 </tr> 
 <tr> 
 <td> msoControlComboBox </td> 
 <td> 组合框 </td> 
 </tr> 
 <tr> 
 <td> msoControlPopup </td> 
 <td> 弹出菜单 </td> 
 </tr> 
 </tbody> 
</table>

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

# 六、命令 #

可以对命令进行的修改与控件的类型有关。一般来说，按钮要么被启用，要么被隐藏。而编辑框、下拉列表框和组合框较为灵活一些，因为您可以在列表中添加或删除项目。另外，还可以通过查看在列表中选中的项目的值来确定执行的操作。您可以将任何控件的操作更改为内置函数或自定义函数。

下表列出了最常见的控件属性和更改控件的状态、操作或内容的方法：

要了解有关** Excel 2003 **和 **Excel 2002** 中菜单的更多信息，请按照下列步骤操作：

1. 启动 **Visual Basic** 脚本编辑器。

2. 在“帮助”菜单上，单击“**Microsoft Visual Basic** 帮助”。

3. 在“搜索帮助”框中，键入菜单，然后按 **Enter**。

4. 单击“添加和管理菜单栏和菜单项 (**Office**)”。

## 6.1向菜单控件添加分隔条 ##

以下代码示例在“插入”菜单上的工作表命令之前添加分隔条：

Sub menuItem\_AddSeparator()

CommandBars("Worksheet menu bar").Controls("插入(&I)") \_

.Controls("工作表(&W)").BeginGroup = True

End Sub

**注意：**要删除分隔条，请将 BeginGroup 属性设置为 False。

## 6.2在菜单上创建自定义命令控件 ##

以下代码示例在“工作表”菜单栏的“工具”菜单上创建名为 Custom1 的新命令，然后，当您单击“Custom1”时，它将运行 Code\_Custom1 宏：

Sub menuItem\_Create()

With CommandBars("Worksheet menu bar").Controls("工具(&T)")

.Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Custom1"

.Controls("Custom1").OnAction = "Code\_Custom1"

End With

End Sub

## 6.3在命令控件旁放置选中标记 ##

以下代码示例在 Custom1 命令未选中的情况下在其旁边放置一个选中标记；如果 Custom1 命令已选中，则将删除该选中标记：

Sub menuItem\_checkMark()

Dim myPopup as Object

Set myPopup = CommandBars("Worksheet menu bar").Controls("工具(&T)")

If myPopup.Controls("Custom1").State = msoButtonDown Then

' 删除选中标记旁边的菜单项。

myPopup.Controls("Custom1").State = msoButtonUp

MsgBox "Custom1 is now unchecked"

Else

'添加复选标记旁边的菜单项。

myPopup.Controls("Custom1").State = msoButtonDown

MsgBox "Custom1 is now checked"

End If

End Sub

## 6.4禁用命令栏上的命令控件 ##

以下代码示例禁用您在“在菜单上创建自定义命令控件”一节中在“工具”菜单上创建的 Custom1 命令：

Sub MenuItem\_Disable()

Dim myCmd as Object

Set myCmd = CommandBars("Worksheet menu bar").Controls("工具(&T)")

myCmd.Controls("Custom1").Enabled = False

End Sub

## 6.5启用命令栏上的命令控件 ##

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

Sub MenuItem\_Enable()

Dim myCmd as Object

Set myCmd = CommandBars("Worksheet menu bar").Controls("工具(&T)")

myCmd.Controls("Custom1").Enabled = True

End Sub

## 6.6删除菜单上的命令控件 ##

以下代码示例删除“文件”菜单上的“保存”命令：

Sub menuItem\_Delete()

Dim myCmd As Object

Set myCmd = CommandBars("Worksheet menu bar").Controls("文件(&F)")

myCmd.Controls("保存(&S)").Delete

End Sub

## 6.7还原菜单上的内置命令控件 ##

要还原菜单上的命令控件，必须知道该控件的标识 (ID) 号。要确定 ID 号，请参见“返回命令栏控件的ID”一节。以下示例先删除您在“删除菜单上的命令控件”一节中删除的“保存”命令，然后又将其还原：

Sub menuItem\_Restore()

Dim myCmd As Object

Set myCmd = CommandBars("Worksheet menu bar").Controls("文件(&F)")

' Id 3 为保存子菜单项ID号.

myCmd.Controls.Add Type:=msoControlButton, ID:=3, Before:=5

End Sub

# 七、子菜单 #

当您单击某个命令时，父菜单的一侧会出现子菜单。作为子菜单控件的命令在其名称右边有一个黑色小箭头。

## 7.1添加子菜单 ##

以下代码示例向“工作表”菜单栏上的“工具”菜单添加名为“NewSub”的新子菜单：

Sub SubMenu\_Create()

Dim newSub as Object

Set newSub = CommandBars("Worksheet menu bar").Controls("工具(&T)")

With newSub

.Controls.Add(Type:=msoControlPopup, Before:=1).Caption="NewSub"

End With

End Sub

## 7.2向子菜单添加命令 ##

以下代码示例向“NewSub”子菜单添加名为“SubItem1”的新命令，然后，当您单击“SubItem1”时，它将运行 Code\_SubItem1 宏：

Sub SubMenu\_AddItem()

Dim newSubItem as Object

Set newSubItem = CommandBars("Worksheet menu bar") \_

.Controls("工具(&T)").Controls("NewSub")

With newSubItem

.Controls.Add(Type:=msoControlButton, Before:=1).Caption = "SubItem1"

.Controls("SubItem1").OnAction = "Code\_SubItem1"

End With

End Sub

## 7.3禁用子菜单上的命令控件 ##

以下代码示例禁用您在“向子菜单添加命令”一节中创建的 SubItem 命令：

Sub SubMenu\_DisableItem()

CommandBars("Worksheet menu bar").Controls("工具(&T)") \_

.Controls("NewSub").Controls("SubItem1").Enabled = False

End Sub

以下代码示例启用同一 SubItem 命令：

Sub SubMenu\_DisableItem()

CommandBars("Worksheet menu bar").Controls("工具(&T)") \_

.Controls("NewSub").Controls("SubItem1").Enabled = True

End Sub

## 7.4删除子菜单上的命令 ##

以下示例删除您在“向子菜单添加命令”一节中在“NewSub”子菜单上创建的 SubItem1 命令：

Sub SubMenu\_DeleteItem()

CommandBars("Worksheet menu bar").Controls("工具(&T)") \_

.Controls("NewSub").Controls("SubItem1").Delete

End Sub

## 7.5禁用子菜单控件 ##

以下代码示例禁用您在“添加子菜单”一节中在“工具”菜单上创建的“NewSub”子菜单：

Sub SubMenu\_DisableSub()

CommandBars("Worksheet menu bar").Controls("工具(&T)") \_

.Controls("NewSub").Enabled = False

End Sub

注意：要启用已禁用的控件，请将 **Enabled** 属性设置为 **True**。

## 7.6删除子菜单控件 ##

以下代码示例删除您在“添加子菜单”一节中在“工具”菜单上创建的“NewSub”子菜单：

Sub SubMenu\_DeleteSub()

CommandBars("Worksheet menu bar").Controls("工具(&T)") \_

.Controls("NewSub").Delete

End Sub

# 八、快捷菜单栏 #

快捷菜单是在用户右键单击某个对象时出现的浮动命令栏。快捷菜单栏可以包含与命令栏相同的控件类型，而这些控件的作用也和命令栏上控件的作用相同。在大多数程序中，您无法从程序界面创建或修改快捷菜单，因而必须在运行时创建和修改快捷菜单。

要获取有关**Excel 2002**和**Excel 2003**中的快捷菜单的更多信息，请按照下列步骤操作：

1. 启动 **Visual** **Basic** 脚本编辑器。

2. 在“帮助”菜单上，单击“**Microsoft** **Visual Basic** 帮助”。

3. 在“搜索帮助”框中，键入快捷方式，然后按 **Enter**。

4. 单击“添加和显示快捷菜单”。

## 8.1新建快捷菜单栏 ##

以下代码示例创建名为“myShortcutBar”的快捷菜单栏：

Sub Shortcut\_Create()

Dim myShtCtBar as Object

Set myShtCtBar = CommandBars.Add(Name:="myShortcutBar", \_

Position:=msoBarPopup)

' 这显示快捷菜单栏。

' 200, 200指的是屏幕上的位置的像素为X和Y坐标.

myShtCtBar.ShowPopup 200,200

End Sub

**注意：**由于没有添加任何控件（菜单项或子菜单），因此快捷菜单栏出现时是空的。

# 九、快捷菜单 #

当您右键单击特定的 **Excel** 对象时会出现快捷菜单栏。**Excel** 有很多快捷菜单栏，其中包含各种菜单。您还可以创建自定义快捷菜单栏和自定义内置菜单栏。

## 9.1在快捷菜单栏上创建命令 ##

以下代码示例在“myShortcutBar”快捷菜单栏上创建名为 Item1 的新菜单命令。当您单击“Item1”时，它将运行 Code\_Item1 宏：

Sub Shortcut\_AddItem()

Dim myBar as Object

Set myBar = CommandBars("myShortcutBar")

With myBar

.Controls.Add (Type:=msoControlButton, before:=1).Caption = "Item1"

.Controls("Item1").OnAction = "Code\_Item1"

End With

myBar.ShowPopup 200,200

End Sub

## 9.2禁用快捷菜单栏上的命令控件 ##

以下代码示例禁用您在“创建快捷菜单上的命令”一节中创建的 Item1 命令：

Sub Shortcut\_DisableItem()

Set myBar = CommandBars("myShortcutBar")

myBar.Controls("Item1").Enabled = False

myBar.ShowPopup 200,200

End Sub

注意：要启用已禁用的项目，请将 Enabled 属性设置为 True。

## 9.3删除快捷菜单栏上的命令 ##

以下代码示例删除“myShortcutBar”快捷菜单栏上的名为 Item1 的菜单命令：

Sub Shortcut\_DeleteItem()

Set myBar = CommandBars("myShortcutBar")

myBar.Controls("Item1").Delete

myBar.ShowPopup 200,200

End Sub

## 9.4删除快捷菜单栏 ##

删除快捷菜单栏将导致删除所有菜单项。您无法还原已删除的自定义菜单栏。要还原它，必须重新创建该菜单栏及其所有菜单项和子菜单。

以下代码示例删除您在“在快捷菜单栏上创建命令”一节中创建的“myShortCutBar”快捷菜单栏：

Sub Shortcut\_DeleteShortCutBar()

CommandBars("MyShortCutBar").Delete

End Sub

## 9.5还原内置快捷菜单栏上的命令 ##

以下代码示例还原工作表“单元格”快捷菜单栏上的默认命令：

Sub Shortcut\_RestoreItem()

CommandBars("Cell").Reset

End Sub

# 十、快捷菜单上的子菜单 #

可以在快捷菜单栏上创建子菜单。当您单击某个命令控件时，父菜单的一侧会出现子菜单。作为子菜单控件的命令在其名称右边有一个黑色小箭头。

## 10.1在快捷菜单栏上新建子菜单 ##

以下示例在工作表“单元格”快捷菜单上添加名为“NewSub”的新子菜单：

Sub ShortcutSub\_Create()

CommandBars("Cell").Controls.Add(Type:=msoControlPopup, before:=1) \_

.Caption = "NewSub"

'显示快捷菜单栏。

' 200, 200指的是屏幕上的位置的像素为X和Y坐标。

CommandBars("Cell").ShowPopup 200, 200

End Sub

注意：由于没有添加任何菜单项，因此该子菜单为空。

## 10.2在快捷菜单栏的子菜单上创建命令控件 ##

下面的宏向您在“单元格”快捷菜单上创建的子菜单“NewSub”中添加 SubItem1 命令。然后，当您单击“SubItem1”时，它将运行 Code\_SubItem1 宏：

Sub ShortcutSub\_AddItem()

Dim newSubItem as Object

Set newSubItem = CommandBars("Cell").Controls("NewSub”)

With newSubItem

.Controls.Add(Type:=msoControlButton, before:=1).Caption = "subItem1"

'点击时subItem1 将运行Code\_SubItem1宏。

.Controls("subItem1").OnAction = "Code\_SubItem1"

End With

'显示快捷菜单栏。

' 200, 200指的是屏幕上的位置的像素为X和Y坐标

CommandBars("Cell").ShowPopup 200, 200

End Sub

## 10.3禁用快捷菜单上的子菜单项控件 ##

以下代码示例禁用“NewSub”子菜单上的 SubItem1 命令：

Sub ShortcutSub\_DisableItem()

CommandBars("Cell").Controls("NewSub") \_

.Controls("subItem1").Enabled = False

'显示快捷菜单栏。

' 200, 200指的是屏幕上的位置的像素为X和Y坐标

CommandBars("Cell").ShowPopup 200, 200

End Sub

注意：要启用已禁用的项目，请将 **Enabled** 属性设置为 **True**。

## 10.4删除快捷菜单上的子菜单项控件 ##

以下示例删除“NewSub”子菜单上的 SubItem1 命令：

Sub ShortcutSub\_DeleteItem()

CommandBars("Cell").Controls("NewSub").Controls("subItem1").Delete

'显示快捷菜单栏。

' 200, 200指的是屏幕上的位置的像素为X和Y坐标

CommandBars("Cell").ShowPopup 200, 200

End Sub

## 10.5禁用快捷菜单上的子菜单控件 ##

以下代码示例禁用“单元格”快捷菜单栏上的“NewSub”子菜单：

Sub ShortcutSub\_DisableSub()

CommandBars("Cell").Controls("NewSub").Enabled = False

'显示快捷菜单栏。

' 200, 200指的是屏幕上的位置的像素为X和Y坐标

CommandBars("Cell").ShowPopup 200, 200

End Sub

注意：要启用已禁用的项目，请将 Enabled 属性设置为 True。

## 10.6删除快捷菜单上的子菜单控件 ##

以下代码示例删除您在“单元格”快捷菜单栏上创建的“NewSub”子菜单：

Sub ShortcutSub\_DeleteSub()

CommandBars("Cell").Controls("NewSub").Delete

'显示快捷菜单栏。

' 200, 200指的是屏幕上的位置的像素为X和Y坐标

CommandBars("Cell").ShowPopup 200, 200

End Sub

VBA自定义菜单和菜单栏

发表评论取消回复

还没有评论，来说两句吧...

相关阅读

相关 Eclipse插件（RCP）自定义工作台快捷菜单栏

相关 Eclipse插件（RCP）自定义工作台主菜单栏

相关 VBA自定义菜单和菜单栏

相关 Qt之自定义菜单（按钮菜单）

相关 vtiger7 自定义菜单 (一级菜单、二级菜单)

相关 Access 2003 中自定义菜单栏

相关 Windows Server 2008自定义任务栏和开始菜单

相关 wx菜单栏

相关 QT +菜单栏和工具栏

相关 GUI菜单栏