Excel VBA如何删除切片器右键菜单指定选项？

核心问题根源 #

你碰到的问题本质是：切片器的右键菜单属于动态生成的临时命令栏，"Nil"只是它的临时标识，每次右键点击切片器时，Excel都会重新创建这个菜单。直接删除静态状态下的控件，自然不会对后续生成的菜单生效。

可行的解决方法 #

方法1：通过事件监听实时删除控件 #

利用CommandBarEvents捕获菜单的显示事件，在菜单弹出前删除目标选项，代码示例如下：

' 声明事件变量，需放在模块顶部
Dim WithEvents slicerMenuEvents As CommandBarEvents

' 初始化事件绑定，建议在工作簿打开时执行
Sub SetupSlicerMenuMod()
    Set slicerMenuEvents = Application.CommandBarEvents("Slicer Context Menu")
End Sub

' 菜单显示前触发的事件处理
Private Sub slicerMenuEvents_OnShow(ByVal cmdBar As CommandBar)
    ' 定义需要移除的选项标题（注意去除&符号，匹配实际显示文本）
    Dim targetCaptions As Variant
    targetCaptions = Array("Remove Slicers", "Cut", "Refresh", "Sort A to Z", "Sort Z to A", "Report Connections")
    
    Dim ctrl As CommandBarControl
    Dim i As Integer
    ' 倒序遍历避免删除控件后索引错乱
    For i = cmdBar.Controls.Count To 1 Step -1
        Set ctrl = cmdBar.Controls(i)
        ' 检查当前控件标题是否在目标列表中
        If Not IsError(Application.Match(Replace(ctrl.Caption, "&", ""), targetCaptions, 0)) Then
            ctrl.Delete
        End If
    Next i
End Sub

• 可以把SetupSlicerMenuMod放在ThisWorkbook的Workbook_Open事件里，确保打开工作簿时自动绑定事件。
• 如果不确定菜单的准确标题，可先运行以下代码查看所有切片器菜单控件：

Sub ListSlicerMenuItems()
    Dim cmdBar As CommandBar
    Dim ctrl As CommandBarControl
    For Each cmdBar In Application.CommandBars
        If cmdBar.Name Like "*Slicer*" Then
            Debug.Print "命令栏名称: " & cmdBar.Name
            For Each ctrl In cmdBar.Controls
                Debug.Print "  标题(去&): " & Replace(ctrl.Caption, "&", "") & " | 索引: " & ctrl.Index
            Next ctrl
        End If
    Next cmdBar
End Sub

方法2：用Ribbon XML永久隐藏选项 #

如果VBA事件方法不够稳定，可以通过自定义Ribbon XML直接隐藏指定选项，示例XML代码如下：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
  <contextMenus>
    <contextMenu idMso="ContextMenuSlicer">
      <button idMso="SlicerRemove" visible="false"/>
      <button idMso="Cut" visible="false"/>
      <button idMso="Refresh" visible="false"/>
      <button idMso="SortAscending" visible="false"/>
      <button idMso="SortDescending" visible="false"/>
      <button idMso="SlicerReportConnections" visible="false"/>
    </contextMenu>
  </contextMenus>
</customUI>

将这段XML导入到Excel工作簿的自定义Ribbon中，即可永久隐藏这些右键菜单选项。

内容的提问来源于stack exchange，提问作者Mbr