パワーポイント マクロ .SlideShowWindows(1).View.Next 次ページ処理を探ってみた

人力検索はてなの質問
q.hatena.ne.jp
の
回答をライブ配信で作ろうとするが、ハマったお話です。
※前半は、グダグダなので、ゆるしてください・・・

PowerPoint VBA 二つのスライド 次ページ処理を同時に行う方法をライブ配信で探ってみた・・・ - YouTube
www.youtube.com

マクロのボタンを押すと、
立ち上がっている二つのスライド
を
単純に次のページにするなら
18:32 のような処理でいいなら

Sub next2()

    Application.SlideShowWindows(1).View.Next  'スライド1番目を次ページ
    Application.SlideShowWindows(2).View.Next  'スライド2番目を次ページ

End Sub

を
動作ボタン

に
割り当てるとできそうです。
※動作イメージが間違っていたらすみません。

昔の手前味噌サンプル
ken3memo.hatenablog.com
より

スライドの次ページが書いてあるので、
これを参考に探ってみました。

oApp.SlideShowWindows(1).View.Next '次のページ

余談、下記失敗した、長いコードです。

Sub aaa()

    'Application.Presentations(4).Name
    '
    'oApp.SlideShowWindows(1).View.Next '次のページ

    Dim oPT As Presentation

    Set oPT = Application.Presentations(1)
    Debug.Print oPT.Application.Name
    
    oPT.Application.SlideShowWindows(1).View.Next
    oPT.Application.SlideShowWindows(2).View.Next

End Sub

9:00 ～ As Presentations と sをつけてるから、変でした。
As Presentation に直してから、.Nameを使えば、ファイル名を取れそうです。
へんなライブ配信ですみません。
※
As Presentations
As Presentation
の違いでした。

また、
.Applicationを二つ重ねたり、
面白いことをしてて、スミマセン。ぉぃぉぃ。
※※ミスは、ライブ配信の醍醐味ってことで温かい目でみていただけると・・・