PowerPoint VBAを掌握する：動画・音声を自在に操る「AddMediaObject2」の極意
こんにちは。現場で泥臭い自動化を積み重ねてきたエンジニアです。
皆さんは、数百枚のスライドに動画や音声を一つずつ手作業で埋め込み、再生設定をポチポチと設定した経験はありませんか？ もしそうなら、今日でその苦行とはおさらばです。
今回は、PowerPoint VBAの中でも特に強力な武器である `Slide.Shapes.AddMediaObject2` を使った、マルチメディア制御の深淵を解説します。「マクロの記録」では決して辿り着けない、プロの自動化領域へ案内しましょう。
—
1. なぜ「AddMediaObject2」なのか？
PowerPoint VBAにおいて、メディアを挿入するメソッドはいくつか存在しますが、現代のPowerPoint環境で最も信頼性が高く、かつ柔軟なのが `AddMediaObject2` です。
このメソッドを使う最大のメリットは、「挿入と同時に、再生設定のプロパティをプログラムで完全制御できる」 点にあります。GUIでマウスをガチャガチャ動かす必要はもうありません。
—
2. 実践：動画・音声を動的に埋め込むコード
まずは、特定の動画ファイルをスライドに挿入し、自動再生・ループ設定を施すためのコードを見てみましょう。
Sub InsertAndConfigureMedia()
Dim pptSlide As Slide
Dim pptShape As Shape
Dim mediaPath As String
‘ 挿入したいファイルのフルパスを指定
mediaPath = “C:\Users\Public\Videos\PresentationVideo.mp4”
‘ アクティブなスライドを取得
Set pptSlide = ActiveWindow.View.Slide
‘ 1. メディアオブジェクトを挿入（左上座標(100, 100)、幅300, 高さ200）
Set pptShape = pptSlide.Shapes.AddMediaObject2(mediaPath, msoFalse, msoTrue, 100, 100, 300, 200)
‘ 2. メディアフォーマットの設定（ここが腕の見せ所）
With pptShape.MediaFormat
.AutoPlay = msoTrue ‘ スライド表示時に自動再生
.LoopPlay = msoTrue ‘ ループ再生
.Volume = msoMediaVolumeHigh ‘ 音量を最大に
End With
‘ 3. アニメーション設定（必要に応じて再生トリガーを制御）
‘ ※AddMediaObject2で挿入したメディアには、自動的に再生トリガーが設定されます
MsgBox “メディアの埋め込みと設定が完了しました。”
End Sub
コードの解説
- `AddMediaObject2(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)`:
- `LinkToFile`: ファイルをリンクするか埋め込むか。今回は配布前提なので `msoFalse`（埋め込み）にします。
- `SaveWithDocument`: `msoTrue` でファイル内にデータを保持します。
- `pptShape.MediaFormat`: ここが今回の肝です。動画の再生挙動はこのオブジェクトを通じて制御します。
—
3. プロが教える「陥りやすい罠」と対策
現場では、コードが動くだけでは不十分です。以下のポイントを抑えておかないと、プレゼン当日に恥をかくことになります。
① パスの絶対指定と環境依存
コード内に `C:\Users\…` と書くと、他人のPCで動かした瞬間にエラーになります。
対策: `Environ(“USERPROFILE”)` を使用してユーザーディレクトリを動的に取得するか、`Application.FileDialog(msoFileDialogFilePicker)` でユーザーにファイルを選ばせる設計にしましょう。
② メディアの読み込み完了を待つ
巨大な動画ファイルを連続して挿入する場合、PowerPointが描画を完了する前に次のコードが走り、エラーになることがあります。
対策: `DoEvents` を挟むか、処理の合間にごく短いウェイトを置くのが「現場の知恵」です。
③ 「クリック時再生」と「自動再生」の衝突
`AutoPlay = msoTrue` にしても、スライドのアニメーション設定で「クリック時」が優先される場合があります。
対策: 確実に自動再生させたい場合は、`pptSlide.TimeLine.MainSequence` を操作して、メディアの再生タイミング（Trigger）を「直前の動作と同時（With Previous）」に設定する処理を追加してください。
—
4. さらなる高みへ：エンジニアとしてのアドバイス
「マクロの記録」で生成されるコードは、あくまで「その時あなたが操作した内容」をトレースしているに過ぎません。
今回紹介した `AddMediaObject2` のようなオブジェクトモデルを直接叩く手法を覚えると、「100枚のスライドに動画を挿入し、それぞれ動画の長さに合わせてスライドの切り替え時間を自動設定する」 といった、人間業では不可能なレベルの自動化が可能になります。
まずはこのコードをコピペして、自分のPCの動画ファイルで試してみてください。エラーが出たら、それがあなたの成長の糧です。オブジェクトモデルの階層（Application > Presentation > Slide > Shape）を理解すれば、PowerPointはあなたの最高の相棒になります。
ここをクリアしたあなたは、もう初心者ではありません。次は、スライドのプロパティを自在に操る「自動プレゼン生成ツール」への挑戦を待っていますよ。
—
何か不明点や、さらに踏み込んだ技術的な相談があれば、いつでも聞いてくださいね。頑張ってください！
