VBA 在菜单中添加菜单项（vba 菜单栏添加按钮）

在 Visual Basic for Applications (VBA) 中，您可以使用 `Menu` 对象和 `Add` 方法在 Excel 菜单中添加自定义菜单项。以下是一个示例，演示如何在 Excel 的“开发人员”选项卡中创建一个新菜单项。

1. 首先，打开 VBA 编辑器。在 Excel 中，按 Alt + F11 或从“开发人员”选项卡中单击“Visual Basic”。

2. 在 VBA 编辑器中，单击“插入”菜单，然后选择“模块”以创建一个新模块。

3. 将以下代码粘贴到新模块中：

Option Explicit
Sub AddMenuItem()
    Dim menu As CommandBar
    Dim menuItem As CommandBarControl
    ' 获取“开发人员”选项卡中的菜单
    Set menu = CommandBars("Developer")
    ' 添加新菜单项
    Set menuItem = menu.Controls.Add(Type:=msoControlButton)
    With menuItem
        ' 设置菜单项的属性
        .Caption = "My Menu Item" ' 菜单项的文本
        .OnAction = "MyMacro" ' 点击菜单项时执行的宏
        .Style = msoButtonStyleText ' 文本样式
    End With
End Sub

1. 使用“宏”对话框运行 `AddMenuItem` 宏。您可以通过在 Excel 中按下 Alt + F8 或从“开发人员”选项卡中单击“宏”来打开“宏”对话框。

2. 从“宏名称”列表中选择“AddMenuItem”，然后单击“运行”。

3. 一个名为“My Menu Item”的新菜单项将添加到 Excel 的“开发人员”选项卡中。单击此菜单项将运行名为“MyMacro”的宏。

注意：在使用 VBA 修改用户界面之前，您可能需要添加对 Microsoft Office对象库的引用。要执行此操作，请在 VBA 编辑器中单击“工具”菜单，然后选择“引用”。从可用引用列表中选中“Microsoft Office x.x Object Library”旁边的复选框，其中 x.x 是您安装的 Office 版本的版本号。