【入門編】【中級者】スライド内のすべての「埋め込みビデオ（動画）」や「音声ファイル」を抽出し、指定フォルダにメディアファイルとして一括保存するエクスポートマクロ – PowerPoint VBA解析バイブル

PowerPoint VBA

2026.11.11

プレゼン資料から「素材」を救い出せ！動画・音声を一括エクスポートする極限のVBA術

プレゼン資料から「素材」を救い出せ！動画・音声を一括エクスポートする極限のVBA術

こんにちは。自動化の現場で、日々複雑なオブジェクトの海と格闘しているチーフアーキテクトです。

「マクロの記録」を使って、なんとか簡単な操作を自動化できるようになった。でも、もっと複雑な、例えば「スライドの中にある特定の要素だけを抜き出したい」といった、構造を理解していないと書けないコードに壁を感じていませんか？

今日、君に伝授するのは、単なるコードの書き方ではありません。PowerPointという巨大なオブジェクトの階層をどう歩き、どうやって目的のデータ（バイナリ）に辿り着くかという「設計思想」です。

今回のテーマは、「プレゼン内に埋め込まれたすべての動画・音声ファイルを、オリジナル品質のまま一括でローカルフォルダへ書き出す」というミッションです。

これさえマスターすれば、君は「操作を記録する人」から「システムを構築する人」へと一歩踏み出すことができますよ。準備はいいですか？

1. 思考のプロセス：PowerPointの「階層構造」を理解する

コードを書く前に、まずは地図を手に入れましょう。PowerPoint VBAにおいて、動画ファイルはどこに潜んでいるのか？

PowerPointのオブジェクトモデルは、以下のような「入れ子構造（階層構造）」になっています。

1. Application (PowerPointソフトそのもの)
2. Presentation (開いているプレゼンファイル)
3. Slide (各スライド)
4. Shape (スライド上に配置された図形、テキストボックス、そしてメディア)

動画や音声は、スライドという箱の中にある「Shape（図形）」の一種として扱われます。つまり、我々がやるべきことは、「全スライドを巡回し、各スライド内の全Shapeを調べ、それが『メディア型』であれば、その中身をファイルとして保存する」という、非常に論理的なステップなのです。

2. 実装：メディア・エクスポート・エンジン

それでは、プロフェッショナルなコードを見ていきましょう。このコードは、単に動くだけでなく、エラーに強く、再利用性を考慮した設計にしています。

Option Explicit

''' <summary>
''' プレゼンテーション内のすべてのメディア（動画・音声）を抽出して保存する
''' </summary>
Sub ExportAllMediaFiles()
    Dim pres As Presentation
    Dim sld As Slide
    Dim shp As Shape
    Dim targetFolder As String
    Dim savePath As String
    Dim mediaCount As Integer
    Dim fso As Object
    
    ' 1. 初期設定
    Set pres = ActivePresentation
    mediaCount = 0
    
    ' 保存先フォルダをデスクトップに作成
    ' (実務では、ユーザーにフォルダを選択させるダイアログを使うのが理想的です)
    targetFolder = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\ExtractedMedia_" & Format(Now, "yyyymmdd_hhnnss")
    
    ' FileSystemObjectを使用してフォルダを作成
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(targetFolder) Then
        fso.CreateFolder (targetFolder)
    End If
    
    Debug.Print "--- エクスポート開始 ---"
    Debug.Print "保存先: " & targetFolder

    ' 2. 階層構造を辿るループ処理
    ' 全スライドをループ
    For Each sld In pres.Slides
        ' 各スライド内の全シェイプをループ
        For Each shp In sld.Shapes
            
            ' 3. メディア（動画・音声）かどうかを判定
            ' msoMedia は動画や音声を含む定数です
            If shp.Type = msoMedia Then
                
                ' ファイル名の決定 (Shapeの名前を使用。重複を避けるためスライド番号を付与)
                ' 例: Slide1_Video1.mp4
                savePath = targetFolder & "\Slide" & sld.SlideIndex & "_" & shp.Name & "." & GetMediaExtension(shp)
                
                ' 4. メディアの保存実行
                On Error Resume Next ' 個別のファイル保存エラーで全体を止めないための守り
                shp.MediaFormat.Save savePath
                
                If Err.Number = 0 Then
                    mediaCount = mediaCount + 1
                    Debug.Print "成功: " & savePath
                Else
                    Debug.Print "失敗: Slide " & sld.SlideIndex & " / Shape: " & shp.Name & " (Error: " & Err.Description & ")"
                    Err.Clear
                End If
                On Error GoTo 0 ' エラーハンドリングを通常に戻す
                
            End If
        Next shp
    Next sld

    ' 5. 終了通知
    MsgBox "完了しました！" & vbCrLf & _
           "抽出数: " & mediaCount & " 個" & vbCrLf & _
           "保存先: " & targetFolder, vbInformation, "エクスポート完了"
           
    Set fso = Nothing
End Sub

''' <summary>
''' Shapeのメディア形式から拡張子を取得する補助関数
''' </summary>
Private Function GetMediaExtension(shp As Shape) As String
    ' 本来はMediaFormatのプロパティから取得すべきですが、
    ' VBAの標準機能では取得が難しいため、一般的な拡張子を返す設計にします。
    ' 実際には、メディアのファイル形式を判定するロジックが必要な場合があります。
    ' ここでは簡易的に、動画か音声かで分岐させる思想を示します。
    
    ' 実際には、メディアの形式を特定するのは高度な処理が必要なため、
    ' 運用上は .mp4 や .mp3 など、想定される形式をベースに設計します。
    ' 今回は、最も汎用的な .mp4 をデフォルトとして返す実装例です。
    GetMediaExtension = "mp4" 
End Function

3. ここがエンジニアの「こだわり」：解説と陥りやすい罠

コードをコピペして動かすだけでは、君の成長は止まってしまいます。このコードの「肝」を理解しましょう。

① `msoMedia` という識別子

`shp.Type = msoMedia` という一文が、このマクロの心臓部です。PowerPointには、テキスト、図形、画像など無数のオブジェクトがありますが、`msoMedia` を指定することで、動画（MP4等）や音声（MP3/WAV等）だけをピンポイントで狙い撃ちできます。

② エラーハンドリングの重要性

`On Error Resume Next` をどこで使うか。ここがプロとアマの分かれ目です。
もし、100個の動画があるうちの5個目が破損していた場合、エラーハンドリングがなければマクロは途中で「強制終了」してしまいます。
私はあえて、「メディアの保存」という個別の動作に対してのみ、エラーを無視して次に進むよう設計しました。これにより、一部のファイルがダメでも、残りの健全なファイルを確実に救い出すことができるのです。

③ ファイル名の衝突（コリジョン）回避

同じスライドに「Video 1」という名前の動画が2つあったらどうなるでしょうか？普通に保存すると、2つ目のファイルが1つ目を上書きしてしまいます。
今回のコードでは、`”Slide” & sld.SlideIndex & “_” & shp.Name` とすることで、「どのスライドの、どのオブジェクトか」をファイル名に刻印し、データの衝突を防いでいます。

⚠️ 注意点：拡張子の問題

`shp.MediaFormat.Save` メソッドは非常に強力ですが、実は「保存するファイルの拡張子を自動で判別して付与する」という親切心は少し足りません。
上記のサンプルでは簡略化のために `.mp4` を指定していますが、実務で音声ファイル（MP3）も混在することが分かっている場合は、`shp.MediaFormat.MediaType` などのプロパティを調べて拡張子を切り替えるロジックを追加するのが、真のアーキテクトの仕事です。

4. 次のステップへ：ここをクリアすれば、VBAの基本はバッチリ！

このマクロを理解できた君は、もう「録画ボタン」を押しているだけの初心者ではありません。

階層をループで回る感覚
条件分岐で対象を絞り込む感覚
エラーが起きても全体を崩さない守りの感覚

これらは、Excel VBAでも、Access VBAでも、あるいは他の言語でも通用する「プログラミングの普遍的な真理」です。

もし、次に進むなら「保存先のフォルダを、ユーザーが自由に選べるようにする（`FileDialog` を使う）」ことに挑戦してみてください。それができれば、君のマクロは「個人のツール」から「誰でも使えるアプリケーション」へと進化します。

君の自動化への旅路は、まだ始まったばかりです。楽しんで、コードを書いていきましょう！