カスタム右クリック私は、コンテキストメニューにコンテンツを追加するには、次の構文を使用して、カスタムの右クリックメニューを持っているセル

Question

内部ながら：

Function RightClickOnMoMAction(targ As String) 
    Dim cbar As CommandBar 
    Set cbar = Application.CommandBars("Cell") 

    With cbar.Controls.add(Temporary:=True, Type:=msoControlButton, before:=1) 
     .BeginGroup = False 
     .FaceId = 1111 
     .Caption = targ 
     .OnAction = "'" & ThisWorkbook.Name & "'!'rcFollowSlide """ & targ & """" & "'" 
    End With 
End Function 

私は右のセルをクリックすると、それは非常によく動作します。しかし、セルに「入力」すると、たとえばセル内に何かを書いている場合など、右クリックは別のコンテキストメニューを持っています。 セルを挿入するときに右クリックをトラップするにはどうすればよいですか？それが可能であれば。どちらの場合でもカスタムメニューにアクセスしたいです。参考のため

、ここに私のコンテキストメニューがある：セルの内部を編集するときに

そしてここでは、右クリックで（、カーソルが消えてしまったが、私は、画面キャプチャの上に青色で、それを描きましたI）は、細胞中で書いています：Formula Barコマンドバーを介してアクセスされ

Answer 1

。

次のコードを参照し、問題が解決するかどうかをお知らせください。

Dim cbar As CommandBar 

Set cbar = Application.CommandBars("Formula Bar") 

With cbar.Controls.Add(Temporary:=True, Type:=msoControlButton, Before:=1) 
    .FaceId = 1111 
    .Caption = "TEST" 
End With