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