【入門編】【中級者】Excelの構成表（スライドタイトル、使用テンプレート、セクション名）を読み込み、完全自動で骨子となる新規プレゼンテーションを構築・保存するマクロ – PowerPoint VBA解析バイブル

【脱・マクロ記録】Excelの構成案からプレゼンテーションを「自動召喚」する技術：設計思想と実装の極意

こんにちは。自動化の世界へようこそ。

「マクロの記録」を使って、ボタン一つで作業を終わらせる。それは素晴らしい第一歩です。しかし、もしあなたが「もっと複雑な、人間が頭を使って考えているような作業を自動化したい」と願うなら、そこには「オブジェクトの階層構造」という、プログラミングの真理が立ちはだかります。

今日は、単なるコードの書き方ではありません。「Excelに書かれた構成案（設計図）を読み込み、PowerPointというキャンバスに、一瞬でプレゼンテーションを構築する」という、実戦的なアーキテクチャを伝授します。

これをマスターすれば、あなたは「スライドを作る作業員」から「自動化システムを設計するエンジニア」へと進化できるはずですよ。

1. 思考のフレームワーク：Excelは「脳」、PowerPointは「身体」

自動化を成功させるコツは、プログラムを書く前に「役割分担」を明確にすることです。

今回の仕組みでは、以下のような役割を持たせます。

• Excel (The Brain / Controller):

構成案（どのセクションに、どのタイトルのスライドを、どのレイアウトで置くか）という「意思」を管理します。

• PowerPoint (The Body / Engine):

Excelから送られてくる指示に従い、実際にスライドという「形」を作り上げます。

この「データ（Excel）」と「表現（PowerPoint）」を切り離す考え方は、プロフェッショナルな開発における基本中の基本です。

2. 核心を突く：PowerPointオブジェクトモデルの理解

コードを書く前に、PowerPointの「階層」を脳内にインストールしてください。ここを理解していないと、エラーの迷宮に迷い込むことになります。

PowerPointの階層構造:
1. `Application`（PowerPointというアプリそのもの）
2. 　┗ `Presentations`（開いているプレゼン資料の集合）
3. 　　┗ `Presentation`（今操作したい特定の資料）
4. 　　　┗ `Sections`（セクション。スライドのグループ化）
5. 　　　┗ `Slides`（スライドの集合）
6. 　　　　┗ `Slide`（個々のスライド）
7. 　　　　　┗ `CustomLayouts`（スライドの「型」。タイトル、コンテンツなど）

私たちがやるべきことは、「Excelの行をループしながら、Presentationの中にSlideを生成し、そのSlideにCustomLayoutを適用し、Titleを流し込む」という作業です。

3. 実装：構成案からスライドを自動生成するマスターコード

それでは、具体的なコードを見ていきましょう。
このコードは、ExcelのVBAエディタに記述することを想定しています。

事前準備

ExcelのVBA画面（Alt + F11）で、メニューの [ツール] -> [参照設定] を開き、「Microsoft PowerPoint 16.0 Object Library」（バージョンは環境により異なります）にチェックを入れてください。これによって、PowerPointのオブジェクトを直接、高速かつ強力に操作できるようになります。

Excel構成案のイメージ

Excelのシート（Sheet1）を以下のように作成してください。

ソースコード

Option Explicit

''' <summary>
''' Excelの構成表に基づき、PowerPointプレゼンテーションを自動生成する
''' </summary>
Sub GeneratePresentationFromExcel()
    ' --- 1. オブジェクトの宣言 ---
    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    Dim pptSlide As PowerPoint.Slide
    Dim pptLayout As PowerPoint.CustomLayout
    
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Dim currentSection As String
    Dim slideTitle As String
    Dim layoutName As String
    Dim foundLayout As Boolean
    
    ' --- 2. 初期設定 ---
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 構成案が書かれたシート名
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 最終行の取得
    
    ' PowerPointの起動（既に開いていればそれを使う、なければ新規起動）
    On Error Resume Next
    Set pptApp = GetObject(Class:="PowerPoint.Application")
    If pptApp Is Nothing Then
        Set pptApp = New PowerPoint.Application
    End If
    On Error GoTo ErrorHandler
    
    ' 新規プレゼンテーションを作成
    Set pptPres = pptApp.Presentations.Add
    pptApp.Visible = msoTrue ' 動作を確認できるよう可視化
    
    ' --- 3. メインループ（Excelの行をスキャン） ---
    For i = 2 To lastRow ' 2行目から開始（1行目はヘッダー想定）
        
        currentSection = ws.Cells(i, 1).Value ' A列: セクション名
        slideTitle = ws.Cells(i, 2).Value     ' B列: タイトル
        layoutName = ws.Cells(i, 3).Value     ' C列: レイアウト名
        
        ' --- A. セクションの作成 ---
        ' 現在のセクションと同じ名前のセクションがなければ作成する
        If Not SectionExists(pptPres, currentSection) Then
            pptPres.Sections.Add currentSection
        End If
        
        ' --- B. レイアウトの探索 ---
        ' 指定された名前のレイアウト（CustomLayout）を探す
        Set pptLayout = Nothing
        foundLayout = False
        For Each pptLayout In pptPres.SlideMaster.CustomLayouts
            If pptLayout.Name = layoutName Then
                foundLayout = True
                Exit For
            End If
        Next pptLayout
        
        ' レイアウトが見つからない場合はデフォルトを使用
        If Not foundLayout Then
            Set pptLayout = pptPres.SlideMaster.CustomLayouts(1)
            Debug.Print "Warning: Layout '" & layoutName & "' not found. Using default."
        End If
        
        ' --- C. スライドの挿入とタイトル流し込み ---
        ' 指定したセクションの直後にスライドを挿入
        Set pptSlide = pptPres.Slides.AddSlide(pptPres.Slides.Count + 1, pptLayout)
        
        ' セクションを割り当て（AddSlideではセクションが自動で付かない場合があるため）
        ' ※簡易化のため、ここではスライド追加後にセクション位置を意識せず追加していますが、
        ' 本来はセクションのIndexを管理するのがベストです。
        
        ' タイトルの書き込み（スライドにタイトルプレースホルダーがある場合）
        If pptSlide.Shapes.HasTitle Then
            pptSlide.Shapes.Title.TextFrame.TextRange.Text = slideTitle
        End If
        
    Next i
    
    ' --- 4. 保存と終了処理 ---
    Dim savePath As String
    savePath = ThisWorkbook.Path & "\Generated_Presentation.pptx"
    
    ' 同名ファイルがある場合のエラーを避けるため、保存処理
    pptPres.SaveAs savePath
    
    MsgBox "プレゼンテーションの生成が完了しました！" & vbCrLf & "保存先: " & savePath, vbInformation
    
    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました。内容を確認してください。" & vbCrLf & _
           "Error Number: " & Err.Number & vbCrLf & _
           "Description: " & Err.Description, vbCritical
End Sub

''' <summary>
''' 指定した名前のセクションが既に存在するか確認する関数
''' </summary>
Function SectionExists(pres As PowerPoint.Presentation, sectionName As String) As Boolean
    Dim s As Integer
    For s = 1 To pres.Sections.Count
        If pres.Sections(s).Name = sectionName Then
            SectionExists = True
            Exit Function
        End If
    Next s
    SectionExists = False
End Function

4. 伝説のエンジニアが教える「ハマりどころ」と回避術

このコードを動かす際、あるいは自分で改造する際に、必ず直面する壁が3つあります。ここをクリアすれば、あなたはもう初心者ではありません。

① レイアウト名の不一致（最大の罠）

`layoutName = “Title and Content”` と指定しても、テンプレートによっては `”タイトルとコンテンツ”` と日本語になっていたり、微妙に名前が違ったりします。

• 対策: `Debug.Print pptLayout.Name` を使って、実際にそのテンプレートが持っているレイアウト名をイミディエイトウィンドウに出力し、正確な名前を確認する癖をつけましょう。

② セクションの管理

PowerPointのセクションは、スライドの「番号（Index）」で管理されるのではなく、スライドの「並び順」に紐付きます。

• 対策: 今回のコードでは、セクションが存在しなければ作成し、スライドを末尾に追加していくシンプルな設計にしています。より複雑な構成（途中にスライドを割り込ませる等）を作る場合は、セクションのIndexを動的に管理するロジックが必要です。

③ オブジェクトの解放（メモリ管理）

大量のスライドを生成する場合、`Set pptApp = Nothing` などで適切にオブジェクトを解放しないと、Excelを閉じてもPowerPointのプロセスが裏で残り続け、PCが重くなる原因になります。

• 対策: プログラムの最後には必ず、使用したオブジェクトを明示的に解放する習慣をつけましょう。

最後に：自動化は「自由」を手に入れるための手段

いかがでしたでしょうか。
「Excelに書けば、スライドができる」。この仕組みが手に入ると、あなたは資料作成の「作業」から解放され、「どんなメッセージを伝えるべきか？」という、人間にしかできないクリエイティブな思考に時間を使えるようになります。

プログラミングは、単なる命令の羅列ではありません。あなたの思考を、コンピュータという力強い相棒に託すための「言語」です。

一歩ずつ、確実に。ここをクリアすれば、PowerPoint VBAの基本はバッチリですよ。
次はもっと高度な、図形描画やグラフの自動生成に挑戦してみましょう。応援しています！