PowerPoint VBA でスライドショーのショットカットツールバーを操作したい

Question

PowerPoint　VBA
パワーポイントのスライドショーで「スライドショーの終了」を無効にしたうえで、マクロを登録したコンテキストメニューを追加したいと考えています。

右クリックのコンテキストメニューの操作は以下①のコードで可能でしたが、スライドショーのショートカットツールバーの操作方法がわかりません。

CommandBarsのコレクションには、ショートカットツールバーに相当するアイテムが見当たらないのですが、Commandbars以外にショートカットメニューのオブジェクトが存在するのでしょうか？

コンテキストメニューを表示したらcontorolのプロパティをdebag.printするようなコード（②③）を書けば判明するかとも考えましたが、それもうまくいきません。(Menu Bar とだけでます)

Windows10　office365 office2013

①

Sub Command_Custom_false()



　Dim Mymenubar As CommandBar

　Set Mymenubar = Application.CommandBars("Slide Show Browse")
　Mymenubar.Controls("スライド ショーの終了(&E)").Enabled = False


End Sub

②クラスモジュールに記述

Option Explicit

Public WithEvents App As PowerPoint.Application

Private Sub App_WindowBeforeRightClick(ByVal Sel As Selection, Cancel As Boolean)

'※ 図形やスライド上で右クリックしたときに発生するイベント

  Cancel = True

  Debug.Print Application.CommandBars.ActiveMenuBar.Name

  MsgBox "WindowBeforeRightClick"

End Sub

③標準モジュールに記述

Option Explicit

Private cls As Class1

Public Sub Sample()

  Set cls = New Class1

  Set cls.App = Application

End Sub

---

追記

Slide Show は３つあるみたいですね。
↓で、メニューが追加できるCommandBarに全部追加してみました。
Slid Showで操作できるのは、全画面表示のスライドショーと、発表者ビューの「・・・」ボタン
のようです。
やりたいことは、全画面表示の「・・・」ボタンのメニューをEnableプロパティを書き変えたり、ボタンを追加したりしたいです。
↓のコードで、captionが「スライド ショーの終了(&E)」のアイテムは３つありましたが、「スライド ショーの終了」のアイテムは無かったのでやはりCommandBarsではないのでしょうか...
または他にもエラーでボタン追加できなかったCommandBarsはあったので、itemが動的に変化するものがあるんでしょうか...
謎です。。。

Sub tuika()
    Dim CommandBarItem As CommandBar
    Dim CommandBarControlItem As CommandBarControl

    'ずっと残るのでリセット
    For Each CommandBarItem In Application.CommandBars
        For Each CommandBarControlItem In CommandBarItem.Controls
            On Error Resume Next: CommandBarControlItem.Reset: On Error GoTo 0
        Next
        On Error Resume Next: CommandBarItem.Reset: On Error GoTo 0
    Next

    Dim MyAddMenu As CommandBarButton

    For Each CommandBarItem In Application.CommandBars

            On Error Resume Next
            Set MyAddMenu = CommandBarItem.Controls.Add
            MyAddMenu.Caption = "ID=" & CommandBarItem.Id

            On Error GoTo 0
            If MyAddMenu Is Nothing Then
                a = a & CommandBarItem.Name & ",ID=" & CommandBarItem.Id & ",notAdd" & vbCrLf
            Else
                a = a & CommandBarItem.Name & ",ID=" & CommandBarItem.Id & vbCrLf
            End If
            
            For i = 1 To CommandBarItem.Controls.Count
                Set Myitem = CommandBarItem.Controls.item(i)
                a = a & " " & Myitem.Caption & ",Visible=" & Myitem.Visible & ",Id=" & Myitem.Id & ",Type=" & Myitem.Type & vbCrLf
            Next i            
            Set MyAddMenu = Nothing
    Next

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim ts As Object
Mypath = ActivePresentation.Path
Mypath = Mypath & "\" & "menu.txt"
Set ts = fso.CreateTextFile(Mypath, True, True)         
ts.Write (a) ' 書き込み
ts.Close ' ファイルを閉じる
End Sub

---

030417追記
Spy++

Answer 1

まず CommandBars("Slide Show") で、これが２つありますね。
スライド上と、下のメニューと。

    Dim CommandBarItem As CommandBar
    Dim CommandBarControlItem As CommandBarControl
    
    'ずっと残るのでリセット
    For Each CommandBarItem In Application.CommandBars
        For Each CommandBarControlItem In CommandBarItem.Controls
            On Error Resume Next: CommandBarControlItem.Reset: On Error GoTo 0
        Next
        On Error Resume Next: CommandBarItem.Reset: On Error GoTo 0
    Next
    
    Dim MyAddMenu As CommandBarButton
    
    For Each CommandBarItem In Application.CommandBars
        If CommandBarItem.Name = "Slide Show" And CommandBarItem.Position = msoBarPopup Then
            Set MyAddMenu = CommandBarItem.Controls.Add
            MyAddMenu.Caption = "追加Menu_" & CommandBarItem.Index
        End If
    Next

（すぐ反映されないときがあるし、なかなかしんどい (?_?)）

Comments

[OfficeNono]

回答ありがとうございます。
発表者ビューの「・・・」ボタンのID等はわかったんですが、全画面表示スライドショーの「・・・」ボタンはわからずじまいです。
よい知恵があればお願いします。

[FromMZ1500]

上のように For Eachで回せば見つかるのでは？

[OfficeNono]

ボタン追加できたものもエラーになったものも全部テキストとして出力してるんですが出力したテキストを見ても該当するものがない、という状況です。
CommandBarsではないのでは？と考え出したんてますが他のオブジェクトを悉皆的に探すコードもよくわかりません。。。

[FromMZ1500]

ID=1790のものかと思ってました。
当方Office2010で、どこのメニューか、実は？です。
spy++でウインドウ階層を調べたら、なにかヒントがつかめるかも。

[OfficeNono]

spy++初めて使ってみました。（活用方法もよくわかってないです。すいません。）
該当部分っぽいところを質問に貼ってみたんですが、なにかヒントがみつかるでしょうか？
丸投げ質問ですいません。

[FromMZ1500]

msoWorkPaneとかNUIPaneとかそのあたりに見えるキーワードとMenu item add とかをかけあわせてググってみて、たいした情報が得られなければ、たぶん無理なんでしょう。
アドイン開発する方向で同等なことが実現できないか？とか方針変更も検討されてみては。

[OfficeNono]

よく調べてみるとオプションの詳細設定で表示したり非表示にしたりするツールバーなので、無理なのかもしれません。
やっぱりCommandbarじゃないのかもしれません。（ビジュアルもなんか吹き出しみたいになってますし。）
このツールバーからは操作しないでね、と周知するとかの対応にしようかと思います。
ありがとうございました。