こんにちは！ PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押したはいいものの、生成された暗号のようなコードを目の前にして「一体どう直せばいいんだ……」と途方に暮れていませんか？
大丈夫、安心してください。今日ここでお話しする「テンプレートからプレゼンテーションを動的生成し、正しいレイアウトを指定してスライドを量産する技術」をマスターすれば、あなたのPowerPoint作業は劇的に変わります。企業のブランドガイドラインを死守しながら、一瞬で美しい資料の骨組みを作り上げる――そんなプロの技を、一緒に紐解いていきましょう。
ここをクリアすれば、PowerPoint VBAの基本はバッチリですよ！
—
1. なぜ「テンプレート（potx）」からの動的生成なのか？
実務でPowerPointを使うとき、一番面倒なのが「デザインの統一」です。白紙からスライドを作ると、フォントサイズがバラバラになったり、謎の位置にタイトルボックスが配置されたりして、ブランドガードラインの担当者に怒られてしまいますよね。
ここで登場するのが `potx` ファイル（PowerPointテンプレート） です。
テンプレートには、あらかじめフォント、配色、そして「タイトルとコンテンツ」「比較」といったカスタムレイアウト（CustomLayout）の設計図が詰まっています。
VBAの役割は、この設計図（テンプレート）をペロッとめくり、決まったレイアウトを指定して「はい、ここにスライドを追加！」と自動で命令していくことなのです。
—
2. 押さえておくべきオブジェクトの階層構造
PowerPoint VBAのオブジェクトモデルは、ロシアの民芸品「マトリョーシカ」によく似ています。一番外側から順番に中身を開けていくイメージです。
Application （PowerPointアプリ全体）
┗ Presentations （開いている、または新しく作るファイルたち）
┗ Presentation （個別のファイル）
┗ Slides （スライドの束）
┗ Slide （個別のスライド）
┗ CustomLayouts （スライドのレイアウトの束）
┗ CustomLayout （特定のレイアウト設計図）
この階層構造さえ頭に入っていれば、「今、自分はどこを操作しているのか」を見失うことがなくなります。
—
3. 【実践】テンプレートからスライドを自動生成するコード
お待たせしました。それでは実際のコードを見ていきましょう。
デスクトップ等に企業のブランド用テンプレート（例: `CompanyTemplate.potx`）があるという前提で、新規プレゼンテーションを生成し、指定したレイアウトでスライドを2枚追加するスクリプトです。
VBAエディタ（Alt + F11）を開き、標準モジュールに以下を貼り付けて実行してみてください。
Sub GeneratePresentationFromTemplate()
‘ 変数の宣言（型を明確にすることでメモリ効率と可読性を爆上げします）
Dim targetPres As Presentation
Dim templatePath As String
Dim targetLayout As CustomLayout
Dim newSlide As Slide
‘ 1. テンプレートファイルのパスを指定
‘ ※環境に合わせてパスを書き換えてください（例: “C:\Templates\CompanyTemplate.potx”）
templatePath = Environ(“USERPROFILE”) & “\Desktop\CompanyTemplate.potx”
‘ エラー対策：テンプレートが存在するか簡易チェック
If Dir(templatePath) = “” Then
MsgBox “指定されたテンプレートが見つかりません：” & vbCrLf & templatePath, vbCritical, “ファイルエラー”
Exit Sub
End If
‘ 2. テンプレートを基にして【新規プレゼンテーション】を動的生成する
‘ Add([Template], [NewWindow])
‘ ※msoFalseを指定すると、裏画面で新規ファイルとして立ち上がります
Set targetPres = Presentations.Add(templatePath, msoFalse)
‘ — 1枚目のスライド追加：タイトルレイアウトを指定 —
‘ テンプレート内のレイアウト名（日本語環境なら “タイトル” や “白紙” など）を指定
On Error Resume Next
Set targetLayout = targetPres.SlideMaster.CustomLayouts(1) ‘ 通常、1番目は「タイトルスライド」であることが多いです
On Error GoTo 0
If targetLayout Is Nothing Then
MsgBox “指定されたレイアウトが見つかりませんでした。”, vbCritical
Exit Sub
End If
‘ スライドの追加 (インデックス番号, レイアウトオブジェクト)
Set newSlide = targetPres.Slides.Add(1, targetLayout.Type)
‘ タイトルに文字を流し込む（プレースホルダーのインデックスを指定）
‘ ※プレースホルダー＝文字を入れられる枠のことです
newSlide.Shapes.Placeholders(1).TextFrame.TextRange.Text = “PowerPoint VBA 自動生成レポート”
newSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = “～テンプレートからの華麗なる脱却～”
‘ — 2枚目のスライド追加：コンテンツレイアウトを指定 —
‘ 2番目のレイアウト（例: “タイトルとコンテンツ”）を取得
Set targetLayout = targetPres.SlideMaster.CustomLayouts(2)
‘ 2枚目の位置（一番最後尾）にスライドを追加
Set newSlide = targetPres.Slides.Add(targetPres.Slides.Count + 1, targetLayout.Type)
‘ 本文エリアに文字を流し込む
newSlide.Shapes.Placeholders(1).TextFrame.TextRange.Text = “本日のアジェンダ”
newSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = “1. オブジェクトモデルの理解” & vbCrLf & _
“2. テンプレートの動的生成” & vbCrLf & _
“3. 実務への応用とエラー回避”
‘ 完了メッセージ
MsgBox “ブランドガイドラインに準拠したプレゼンテーションの生成が完了しました！”, vbInformation, “処理成功”
End Sub
—
4. 現場でよくある「罠」と回避のテクニック
このコードを書いて動かしていると、実務ならではの壁にぶつかります。先輩エンジニアとして、よくあるエラーとその回避策を先回りしてお伝えしておきますね。
罠その1：「レイアウトの名前が変わっていてエラーになる」
日本語版のPowerPointと英語版のPowerPoint、あるいはOfficeのバージョンによって、レイアウトの名前（「タイトルとコンテンツ」など）が微妙に異なることがあります。名前で指定すると、環境が変わった瞬間にマクロがクラッシュします。
【解決策】
名前（String型）ではなく、レイアウトの順番（インデックス番号）や、あらかじめ用意されている定数（`ppLayoutTitle`, `ppLayoutText`など）を活用するか、以下のようにループを回して目的のレイアウトを「型（Type）」で探すロジックを組み込むのが堅牢です。
Dim lyt As CustomLayout
For Each lyt in targetPres.SlideMaster.CustomLayouts
If lyt.Name = “狙いのレイアウト名” Then
Set targetLayout = lyt
Exit For
End If
Next lyt
罠その2：「プレースホルダーの番号（Index）が分からない」
`Shapes.Placeholders(1)` と書きましたが、「えっ、1番がタイトルで2番が本文なの？逆じゃない？」と迷うことが多々あります。
【解決策】
プレースホルダーの `PlaceholderFormat.Type` を確認することで、それが「タイトル」なのか「本文」なのかを判定できます。迷ったら、イミディエイトウィンドウにプレースホルダーの情報をすべて出力するデバッグ用コードを1行挟むクセをつけましょう。
‘ デバッグ用：各プレースホルダーのタイプとインデックスを調べる
Dim shp As Shape
For Each shp in newSlide.Shapes
If shp.Type = msoPlaceholder Then
Debug.Print “ID: ” & shp.PlaceholderFormat.Index & ” / Type: ” & shp.PlaceholderFormat.Type
End If
Next shp
—
5. おわりに：ここから先の世界へ
お疲れ様でした！
今回は「テンプレートから新規プレゼンテーションを生み出し、正しいレイアウトでスライドを量産する」という、実務自動化の最もコアで美しい部分を解説しました。
この基本さえ押さえておけば、あとはExcelの表データを読み込ませてループ文（`For`や`Do While`）でスライドを何百枚も自動生成することも、社内ニッチなツールを数分で作ることも自由自在です。
「マクロの記録」というトレーニングウエイトを外して、自分の手でオブジェクトを自在に操る楽しさを、ぜひ今日の業務で実感してみてください。あなたのVBAライフが、よりスマートで創造的なものになりますように！
