PowerPointVBA Shapes.AddMediaObject

PowerPoint2003マクロ記録で
挿入
ビデオとサウンド
ファイルからサウンド
操作を記録した。
記録したコードは概要欄・コメント欄を見てください。

youtu.be

#PowerPointVBA #マクロ記録 #Shapes #AddMediaObject #デバッグ

.AddMediaObject は 2013で廃止され、
.AddMediaObject2 を使用する感じです。

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

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

マクロ記録からF1のヘルプで公式に飛ぶと便利です。
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

関連動画:
パワポ 縦スライドにwavファイルを追加 PowerPoint2003で記録したマクロを修正してみた
https://www.youtube.com/watch?v=6KOtib8Isfg

---

ken3memo.hatenablog.com