如何在 Excel 中添加自定义按钮到右键/上下文菜单?

在 Excel 中，右键或上下文菜单是用户常用的操作方式之一。而自定义菜单项则是一项非常有用的功能，通过自定义菜单项，可以将经常使用的功能放入一个菜单中，以方便用户的操作。

在 Excel 中，添加自定义按钮到右键/上下文菜单的操作虽然相对较为复杂，但是实现起来也不是很难。下面我们将介绍两种方法来实现。

方法一：通过VBA代码添加自定义按钮

通过VBA代码添加自定义按钮到右键/上下文菜单是一种非常简单的方式。只需按照以下步骤操作即可完成添加自定义按钮的操作。

1. 打开 Excel，打开 Visual Basic 编辑器。

2. 在 Visual Basic 编辑器中，选择 Insert -> Module 菜单，新建一个模块。

3. 在新建的模块中，编写下列 VBA 代码：

Option Explicit

'自定义菜单事件
Sub CustomMenu()
MsgBox ("自定义菜单项")
End Sub

'添加自定义按钮
Sub AddCustomButton()
   Dim cBar As CommandBar
   Dim cBarButt As CommandBarButton

  ' Look for an existing commandbar named "cell"
  Set cBar = Application.CommandBars.FindControl(ID:=30005)
  ' If it doesn't already exist, create it and add a button
  If cBar Is Nothing Then
     Set cBar = Application.CommandBars.Add(Name:="cell", _
               Position:=msoBarPopup, _
               MenuBar:=False, Temporary:=True)

  End If
  ' Add a new button to the commandbar
  Set cBarButt = cBar.Controls.Add(Type:=msoControlButton)
  With cBarButt
      .Caption = "Custom Menu Item"
      .OnAction = "CustomMenu"
      .Style = msoButtonIconAndCaptionBelow

      ' Add an icon
      .FaceId = 200
  End With

  ' Display the commandbar
  cBar.Visible = True
End Sub

4. 在代码中可以看到 CustomMenu 子过程。在这个过程中，我们可以自定义自己的功能，当用户点击自定义的按钮时，就会触发这个过程。在这个示例代码中，我们仅仅是使用一个简单的信息框。

5. 在代码中查找到 AddCustomButton 子过程。这个过程会检测并创建一个新的菜单栏 cBar，并将新的按钮添加进去。用户点击新的按钮时会触发菜单事件 CustomMenu，并显示自定义的功能。

6. 运行代码以添加新的自定义按钮。可以通过右键单击任意单元格来查看自定义的按钮。

方法二：通过 XML 文件添加自定义按钮

在 Excel 中，创建一个 XML 文件可以用来添加自定义按钮，并将其添加进 Excel 的菜单中。通过以下步骤可以使用 XML 文件添加自定义按钮。

1. 创建一个新的 XML 文件，命名为 exceladdin.xml。

2. 编写以下代码到 XML 文件中：

<customUI onLoad="OnUI">
  <contextMenus>
    <contextMenu idMso="ContextMenuCell">
      <button id="myButton" label="Custom Menu Item" onAction="onButtonPressed"/>
    </contextMenu>
  </contextMenus>
</customUI>

其中， contextMenu 标签用于创建上下文菜单， button 标签用于创建按钮，并定义了相应的事件。

3. 在 XML 文件中编写以下 VBA 代码：

Option Explicit

Public Sub OnUI(ByVal ribbon As IRibbonUI)
    Set RibbonUI = ribbon
End Sub

Public Sub onButtonPressed(ByVal control As IRibbonControl)
    MsgBox ("Custom Menu Item")
End Sub

这段代码会添加一个新的按钮，并定义一个事件来处理这个按钮的操作。

4. 将 XML 文件保存到 Excel 中的“Office” 文件夹中。如果没有这个文件夹，可以通过使用 VBA 代码和 MkDir 函数来创建：

Sub CreateOfficeFolder()
    MkDir (Environ$("Appdata") & "\Microsoft\Office")
End Sub

5. 打开 Excel 并启用宏。此时可以看到自定义按钮已经显示在上下文菜单中。

注意：使用这种方法添加自定义按钮并不是在当前工作簿中添加的，而是在每个工作簿中都会添加。

结论

通过 VBA 代码或 XML 文件，添加自定义按钮到 Excel 中的右键/上下文菜单并不复杂。这种自定义菜单项能够大大提高工作效率和操作体验，可以根据具体需求进行自定义，以满足个性化的操作要求。