修订后的 Excel“单元格”上下文菜单在表格中不起作用

Mit*_*lan 5 excel vba contextmenu

我在 Excel 中为右键单击上下文菜单创建了一个新项目。当我右键单击表格中的单元格时,它不会出现在右键单击上下文菜单中。否则确实会出现。我使用的代码(从网络复制)是:

Sub AddItemToContextMenu()
  Dim cmdNew As CommandBarButton
  Set cmdNew = CommandBars("cell").Controls.Add

  With cmdNew
    .Caption = "Copy Occurence Across"
    .OnAction = "CopyOccurrence"
    .BeginGroup = True
  End With
End Sub
Run Code Online (Sandbox Code Playgroud)

我可以做些什么来让我的新项目在单击表格中的单元格时出现吗?

Nat*_*ley 5

要将控件添加到表格项的右键单击上下文菜单中,您需要引用“List Range Popup”上下文菜单。

CommandBars("List Range Popup").Controls.Add

请参阅以下帖子:自定义 Excel 右键单击​​上下文菜单被快速分析默认值覆盖