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

Question

我花了很多时间才找到解决方案，但没有成功。 我尝试在右键菜单中添加自定义操作，但是当我在单元格中输入时，因此处于编辑模式。 所有主题都说明了如何在右键菜单中添加操作，但仅限于您选择单元格时，而不是当您在其中时。

这是我个人的右键菜单

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

我的标准右键菜单代码：

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 加载项及其“在菜单上显示标签”功能来确定您感兴趣的上下文菜单是#58 并且称为“公式栏”。我不认为它是可变的，但我能够将文件菜单添加到它。

所以试试这个：

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