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

我花了很多时间find解决scheme没有成功。 我尝试在右键单击菜单中添加自定义操作，但是在编辑模式下input单元格时。 所有主题都解释了如何在右键单击菜单中添加操作，但只有当您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插件，以及“在菜单上显示标签”function，以确定您感兴趣的上下文菜单是＃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