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