Excel 2010单元格内自定义右键菜单

Question

我花了很多时间来寻找解决方案，但没有成功。我尝试在右键单击菜单中添加自定义操作，但是当我在单元格中输入时，处于编辑模式。所有主题都解释了如何在右键单击菜单中添加操作，但仅当您 select 一个单元格而不是当您在其中时。

这是我的个人右键菜单

这是在编辑模式下右键单击时的上下文菜单：

我的标准右键菜单代码：

Public Function addMenu(menuName As String, menuActionMacro As String, pictureFaceId As Integer, beginGroup As Boolean)

    If checkMenuNotExist(menuActionMacro) Then
        Dim cbButt As CommandBarButton
        Dim cb As CommandBar

        Set cb = Application.CommandBars("cell")
        Set cbButt = cb.Controls.Add(msoControlButton, Temporary:=True)

        cbButt.beginGroup = beginGroup
        cbButt.Caption = menuName
        cbButt.OnAction = menuActionMacro
        cbButt.FaceId = pictureFaceId
        cbButt.Tag = menuActionMacro

    End If
End Function

有人知道如何在编辑右键菜单中添加动作吗？

Answer 1

我使用我的 MenuRighter 加载项及其 "Show Labels on Menus" 功能来确定您感兴趣的上下文菜单是 #58 并称为 "Formula Bar"。我不认为其中一个可以更改，但我能够向其中添加文件菜单。

所以试试这个：

Public Function addMenu(menuName As String, menuActionMacro As String, pictureFaceId As Integer, beginGroup As Boolean)

    If checkMenuNotExist(menuActionMacro) Then
        Dim cbButt As CommandBarButton
        Dim cb As CommandBar

        Set cb = Application.CommandBars("Formula Bar")
        Set cbButt = cb.Controls.Add(msoControlButton, Temporary:=True)

        cbButt.beginGroup = beginGroup
        cbButt.Caption = menuName
        cbButt.OnAction = menuActionMacro
        cbButt.FaceId = pictureFaceId
        cbButt.Tag = menuActionMacro

    End If
End Function

Excel 2010单元格内自定义右键菜单

Excel 2010 Custom right-click menu within cell

excel

contextmenu