2024年6月11日发(作者：)

VBA实现自定义菜单与工具栏的步骤与技

巧

自定义菜单和工具栏是VBA中非常有用的功能，能够提供更加灵

活和高效的用户界面。通过自定义菜单和工具栏，我们可以根据自己

的需求添加或删除菜单项和工具按钮，使得用户能够方便地访问所需

的功能。本文将介绍如何使用VBA实现自定义菜单与工具栏的步骤与

技巧。

一、创建自定义菜单

要创建自定义菜单，首先需要打开Visual Basic编辑器（VBE），

然后按下ALT+F11快捷键。

在VBE中，选择“插入” -> “用户窗体”或者右键单击项目资源管理

器中的该工作簿并选择“插入模块”。

在新的用户窗体或模块中，输入以下代码，以创建一个名为

"CustomMenu"的自定义菜单。

```vba

Sub CreateCustomMenu()

Dim cBar As CommandBar

Dim cBarControl As CommandBarControl

' 如果已经存在名称为"CustomMenu"的菜单，则删除它

On Error Resume Next

dBars("CustomMenu").Delete

On Error GoTo 0

' 创建自定义菜单

Set cBar = (Name:="CustomMenu",

Position:=msoBarPopup, _

MenuBar:=False, Temporary:=True)

' 添加菜单项

Set cBarControl = (Type:=msoControlButton)

With cBarControl

.Caption = "菜单项1"

.OnAction = "Macro1"

End With

Set cBarControl = (Type:=msoControlButton)

With cBarControl

.BeginGroup = True

.Caption = "菜单项2"

.OnAction = "Macro2"