パワポ 縦スライドにwavファイルを追加 PowerPoint2003で記録したマクロを修正してみた

2003でマクロ記録したコードを使い、
新規プレゼンを縦スライドにして、
テスト用の音声wavファイル D:\2022\TEST.wav を挿入してみます。
youtu.be
https://youtu.be/6KOtib8Isfg

#PowerPointVBA #マクロ記録 #縦スライド #wav #Presentations #PageSetup #Shapes #AddMediaObject #デバッグ

作成したコード AddMediaObject2でハマった・・・

Option Explicit

Sub TEST()
    Presentations.Add WithWindow:=msoTrue  '新規作成
    ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).SlideIndex
    ActiveWindow.Selection.SlideRange.Layout = ppLayoutBlank
 
    'ページを縦に
    With ActivePresentation.PageSetup
        .SlideSize = ppSlideSizeOnScreen
        .FirstSlideNumber = 1
        .SlideOrientation = msoOrientationVertical
        .NotesOrientation = msoOrientationVertical
    End With
    
    'wav音声の追加
    ActivePresentation.Slides(1).Shapes.AddMediaObject2 _
    (FileName:="D:\2022\TEST.wav", Left:=0, Top:=0).Select

End Sub

マクロ記録からF1のヘルプで公式に飛ぶと便利です。
Presentations.Add メソッド (PowerPoint)
https://docs.microsoft.com/ja-jp/office/vba/api/powerpoint.presentations.add

Presentation.PageSetup プロパティ (PowerPoint)
https://docs.microsoft.com/ja-jp/office/vba/api/powerpoint.presentation.pagesetup

Shapes.AddMediaObject メソッド (PowerPoint)
https://docs.microsoft.com/ja-jp/office/vba/api/powerpoint.shapes.addmediaobject
＞重要
＞PowerPoint 2013で廃止されました。 Shapes.AddMediaObject2 メソッド (PowerPoint)を参照してください。 メディア オブジェクトを作成します。 新しいメディア オブジェクトを表す Shape オブジェクトを返します。

Shapes.AddMediaObject2 メソッド (PowerPoint)
https://docs.microsoft.com/ja-jp/office/vba/api/powerpoint.shapes.addmediaobject2

下記、マクロ記録で記録されたコード

Sub Macro2()
'
' マクロ記録日: 2022/5/18 ユーザー名: Ken3           O
'

    Presentations.Add WithWindow:=msoTrue
    ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).SlideIndex
    ActiveWindow.Selection.SlideRange.Layout = ppLayoutBlank
End Sub

Sub Macro3()
'
' マクロ記録日: 2022/5/18 ユーザー名: Ken3           O
'

    With ActivePresentation.PageSetup
        .SlideSize = ppSlideSizeOnScreen
        .FirstSlideNumber = 1
        .SlideOrientation = msoOrientationVertical
        .NotesOrientation = msoOrientationVertical
    End With
End Sub

Sub Macro4()
'
' マクロ記録日: 2022/5/18 ユーザー名: Ken3           O
'

    ActiveWindow.Selection.SlideRange.Shapes.AddMediaObject(FileName:="G:\0-新規プロジェクト.wav", Left:=258, Top:=348).Select
End Sub