独自のメニュー、独自のコンテキストメニューをもっと他の場所にも追加する。

色々なところに追加できるのだけど情報が公開されていないようです。
Application.CommandBars("Cell")
Application.CommandBars("Ply")
この Cell 、Ply 以外にも色々なところにいろいろな名前がついています。
以下のVBAサンプルコードは色々なところに付いているいろいろな名前を列挙します。(CommandBarsオブジェクトのメンバーを列挙しています。)これを使えば、まさに色々なところにメニューを追加できます。

'CommandBarsオブジェクトのメンバーを列挙する。


Sub EnumCommandBars()
    Dim i As Integer
    
    On Error GoTo ErrorHandler
    
    ActiveSheet.UsedRange.Clear
    
    Do While True
        i = i + 1
        Cells(i, 1).Value = CommandBars.Item(i).Name
        Cells(i, 2).Value = CommandBars.Item(i).NameLocal
    Loop
    
    On Error GoTo 0             ' エラーのトラップを無効にします。
    On Error Resume Next        ' エラーのトラップを留保します。

ErrorHandler:
    Select Case Err.Number
        Case 9
            Columns(1).ColumnWidth = 30
            Columns(2).ColumnWidth = 30
            Exit Sub
        Case Else
    End Select
    Resume                      'エラーが発生した行から再開。
    
End Sub