【入門編】【中級者】Excelで管理された進捗リストと連携し、指定されたステータスに応じた特定のテンプレートを自動適用しながら、複数の新規プレゼンテーションを一括生成・保存するバッチ処理 – PowerPoint VBA解析バイブル

PowerPoint VBA

2026.11.06

Excelを「脳」にし、PowerPointを「手」にする。一括生成バッチ処理の極意

Excelを「脳」にし、PowerPointを「手」にする。一括生成バッチ処理の極意

こんにちは。現場の自動化を設計するチーフアーキテクトです。

「マクロの記録」を使って、ボタン一つで図形の色が変わる。そんな小さな成功体験は素晴らしいものです。しかし、実務の荒波に揉まれる中で、あなたは気づくはずです。「本当に自動化したいのは、一つ一つの操作ではなく、大量のデータの流れそのものだ」ということに。

例えば、Excelの進捗管理表を見て、「あ、この案件は『完了』だから、専用の報告用テンプレートを使って、個別のファイルとして保存しなきゃ……」と、何度もファイルを出し入れして作業していませんか？

それは、あなたが「マクロの書き方」を知らないからではなく、「アプリケーション間のオーケストレーション（指揮）」という概念にまだ触れていないだけなのです。

今日は、Excelを「司令塔（脳）」、PowerPointを「実行部隊（手）」として使い、ステータスに応じて異なるテンプレートを使い分けながら、大量のプレゼン資料を自動生成する「極限のバッチ処理」をマスターしましょう。

ここをクリアすれば、あなたはもう「作業者」ではなく、業務を設計する「エンジニア」へと進化できます。

1. 全体設計：アーキテクチャを理解する

いきなりコードを書き始めてはいけません。一流のエンジニアは、まず「データの流れ」を設計します。今回のシステムは、以下の3つのレイヤーで構成されます。

【設計図：処理のフロー】

1. Input層 (Excel):

「案件名」「担当者」「ステータス（進行中/完了/保留）」「保存先パス」などのデータを持つマスターリスト。

2. Logic層 (PowerPoint VBA):

Excelを読み取り、ループ（繰り返し）処理を行う。
ステータスを判定し、適用する「テンプレート」を決定する。
テンプレートを開き、データを流し込み、名前を変えて保存する。

3. Output層 (File System):

生成された、個別のPowerPointファイル群。

【ここがプロの視点：オブジェクトのライフサイクル】

初心者が最も陥る罠は、「開いたファイルを閉じ忘れること」です。ループの中で大量のプレゼンテーションを開き、適切に `Close` しないと、メモリ上に「幽霊プレゼンテーション」が蓄積され、PCの動作が極端に重くなったり、最終的にクラッシュしたりします。「開いたら、必ず閉じる。そして、オブジェクトを空にする」。これが鉄則です。

2. 実装：魂を込めたプロフェッショナル・コード

それでは、実際に動作するコードを見ていきましょう。今回は、PowerPoint側からExcelを操作するスタイルで記述します。

準備するもの:

`MasterList.xlsx`: A列に案件名、B列にステータス、C列に保存フォルダ名が入っている想定。
`Template_Standard.pptx`: 通常用テンプレート。
`Template_Final.pptx`: 完了報告用テンプレート。

Option Explicit

''' <summary>
''' Excelのリストに基づき、ステータスに応じたテンプレートを使用して
''' プレゼンテーションを一括生成するメインルーチン
''' </summary>
Sub BatchGeneratePresentations()
    ' --- 1. 変数定義 (型を明示するのはエンジニアの嗜み) ---
    Dim xlApp As Object         ' Excel.Application
    Dim xlWB As Object          ' Excel.Workbook
    Dim xlSheet As Object       ' Excel.Worksheet
    Dim i As Long               ' ループカウンタ
    Dim lastRow As Long         ' Excelの最終行
    
    Dim targetPres As Presentation ' 操作対象のプレゼンテーション
    Dim templatePath As String   ' テンプレートのパス
    Dim savePath As String       ' 保存先のパス
    Dim status As String         ' ステータス判定用
    Dim clientName As String     ' 案件名（スライドに流し込むデータ）
    
    ' 定数定義（メンテナンス性を高めるために外に出す）
    Const MASTER_FILE As String = "C:\Work\MasterList.xlsx" ' Excelのフルパス
    Const TEMPLATE_STD As String = "C:\Work\Templates\Template_Standard.pptx"
    Const TEMPLATE_FIN As String = "C:\Work\Templates\Template_Final.pptx"
    Const OUTPUT_DIR As String = "C:\Work\Output\"

    ' --- 2. Excelとの接続 ---
    On Error GoTo ErrorHandler ' エラーハンドリングの開始
    
    ' Excelを起動（Late Bindingにより参照設定不要にする手法）
    Set xlApp = CreateObject("Excel.Application")
    Set xlWB = xlApp.Workbooks.Open(MASTER_FILE)
    Set xlSheet = xlWB.Sheets(1) ' 1番目のシートを指定
    
    ' 最終行を取得
    lastRow = xlSheet.Cells(xlSheet.Rows.Count, 1).End(-4162).Row ' -4162 = xlUp
    
    ' --- 3. メインループ（ここが心臓部） ---
    For i = 2 To lastRow ' 1行目はヘッダーと想定
        
        ' Excelからデータの読み取り
        clientName = xlSheet.Cells(i, 1).Value ' A列: 案件名
        status = xlSheet.Cells(i, 2).Value     ' B列: ステータス
        
        ' ステータスに応じたテンプレートの分岐（Select CaseはIfより読みやすい）
        Select Case status
            Case "完了"
                templatePath = TEMPLATE_FIN
            Case "進行中"
                templatePath = TEMPLATE_STD
            Case Else
                templatePath = TEMPLATE_STD ' デフォルト
        End Select
        
        ' 保存先のパスを生成（案件名.pptx）
        savePath = OUTPUT_DIR & clientName & ".pptx"
        
        ' --- 4. PowerPoint生成プロセス ---
        ' テンプレートを開く
        Set targetPres = Presentations.Open(templatePath, WithWindow:=msoFalse)
        
        ' スライド内の特定のテキストボックスを書き換える例
        ' ※スライド1の、1番目のシェイプに案件名を入れるという想定
        On Error Resume Next ' スライドに指定の図形がない場合のエラー回避
        targetPres.Slides(1).Shapes(1).TextFrame.TextRange.Text = clientName
        On Error GoTo ErrorHandler
        
        ' 名前を付けて保存 (ppSaveAsDefault = 1)
        targetPres.SaveAs savePath
        
        ' 【重要】オブジェクトの解放（ライフサイクル管理）
        targetPres.Close
        Set targetPres = Nothing
        
        Debug.Print "成功: " & clientName & " を作成しました。"
    Next i

    ' --- 5. 後片付け ---
    MsgBox "すべての処理が完了しました！", vbInformation
    
CleanUp:
    ' Excelを安全に閉じる
    If Not xlWB Is Nothing Then xlWB.Close SaveChanges:=False
    If Not xlApp Is Nothing Then xlApp.Quit
    Set xlSheet = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました。行: " & i & vbCrLf & "内容: " & Err.Description, vbCritical
    Resume CleanUp
End Sub

3. エンジニアが教える「陥りやすい落とし穴」と対策

コードは書けました。しかし、実務でこれを使うには、あと一歩の「守り」が必要です。

① 「参照設定」か「Late Binding」か

上記のコードでは `CreateObject(“Excel.Application”)` というLate Binding（遅延結合）を使っています。

Early Binding（事前結合）: 開発時に「参照設定」を行う方法。入力補完が効いて楽ですが、他の人のPCで「参照不可」エラーが出やすい。
Late Binding（遅延結合）: 今回の手法。動作はわずかに遅いですが、配布した際に「動かない！」というトラブルが劇的に減ります。配布用ツールなら、迷わずLate Bindingを選んでください。

② スライド内の「図形（Shape）」の特定

`targetPres.Slides(1).Shapes(1)` という指定は、非常に脆いです。誰かがスライドの順番を変えたり、図形を削除したりした瞬間にエラーになります。
プロの技： テンプレート側の図形に「名前」をつけておきましょう。
PowerPointの「選択ウィンドウ」で図形に `Txt_ClientName` といった名前をつけておけば、コードは `Shapes(“Txt_ClientName”)` と書けます。これだけで、堅牢性は跳ね上がります。

③ ファイルパスの罠

`”C:\Work\Output\”` のように、最後にバックスラッシュ（`\`）を忘れるだけで、ファイル名が `OutputClientA.pptx` のように結合されてしまい、エラーになります。パスの結合には注意を払ってください。

最後に：自動化の先にあるもの

ここまで読んでくれたあなたは、単なる「マクロの記録」の段階を完全に脱却しました。
「データを読み取る」「条件で分岐する」「オブジェクトを管理する」という、プログラムの基本構造を、PowerPointという実務ツールを通じて理解できたはずです。

自動化の本質は、時間を節約することだけではありません。「人間が、より創造的な仕事（資料の中身を考えること）に集中できる環境を作ること」にあります。

次にあなたが作るツールは、もっと複雑で、もっと大きな価値を生むはずです。
さあ、コードを書き換えて、自分だけの最強の武器を完成させてください。応援していますよ。