PowerPointの各スライドに別々の音声ファイルを任意に一括で設定する方法がわかりません。

Question

前提・実現したいこと

PowerPointの各スライドに別々の音声ファイルを任意に一括で設定する方法がわかりません。

具体的にはスライドが1枚目、2枚目、3枚目、、、とあり、そこに任意の音声ファイルを挿入し設定していくということです。
イメージとしては、
スライド1枚目 <- 「sound01.mp3」挿入
スライド2枚目 <- 「sound02.mp3」挿入
スライド3枚目 <- 「sound13.mp3」挿入
スライド4枚目 <- 「sound05.mp3」挿入
ということを実現したいです。

私はExcelでスライド何枚目に何の音声ファイルを挿入するかを書き、とPowerPointマクロで一括挿入出来るのではないかと考えています。

なぜなら、PowerPointのスライドにマクロで音声ファイルを挿入できることは判明しているからです。
参考：https://www.alta.co.jp/blog/post-1725/

発生している問題・エラーメッセージ

エラーメッセージ:特に無し

該当のソースコード

ソースコード:特に無し

試したこと

以下を参考にマクロでスライドに音声ファイルを挿入できることを確認しました。

補足情報（FW/ツールのバージョンなど）

Microsoft 365 Personalを使用（最新版）

Answer 1

やりたいことはそのページに書いてあることの応用で出来ますので、
出来る範囲でもう少し自分でコードを書いてみましょう。
その方が身になると思います。

以下はExcelマクロで動かす形で書いたコードです。

Sub AddMediaToActivePresentation(i, wavePath)
    Dim ppApp As New PowerPoint.Application
    ppApp.Visible = True
    
    Dim oSlide As PowerPoint.Slide
    Dim oShp As PowerPoint.Shape
    
    Set oSlide = ppApp.ActivePresentation.Slides(i)
    Set oShp = oSlide.Shapes.AddMediaObject2(wavePath, False, True, 10, 10)

End Sub

Sub sample()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim i
    For i = 2 To ws.Range("A" & ws.Rows.Count).End(xlUp).Row
        Dim slideNo, filePath
        slideNo = ws.Cells(i, 1).Value
        filePath = ws.Cells(i, 2).Value
        AddMediaToActivePresentation slideNo, filePath
    Next
End Sub