こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押すだけの世界から一歩踏み出し、自分の手でプレゼンテーションを自在にコントロールしたいと思っているあなたへ。
今回は、実務で最も頻繁に使う「社内指定のテンプレート（.potx）を読み込んで、新しいプレゼンテーションを自動作成する基本マクロ」を徹底解説します。
ここをクリアすれば、PowerPoint VBAのオブジェクトの概念と、ファイルの扱い方の基本はバッチリです。難しく考えず、優しく紐解いていくので、一緒にマスターしていきましょう！
—
1. なぜ「テンプレートからの自動作成」なのか？
毎朝出社して、定例会議の資料を作るために、社内の共通テンプレートを開き、タイトルを書き換え、レイアウトを整える……。そんなルーティン作業にうんざりしていませんか？
PowerPoint VBAを使えば、この「テンプレートを読み込んで新しくファイルを開く」という最初のステップを一瞬で自動化できます。
しかも、手動でテンプレートファイルをダブルクリックすると、うっかり大元の `.potx` ファイルを上書きしてしまうという恐怖の事故が起きがちですが、VBAなら安全に「新しい無名のプレゼンテーション」として立ち上げることができます。
—
2. 魔法の呪文：`Presentations.Add` メソッドを知る
PowerPoint VBAで新しいファイルを作るための主役は、`Presentations` コレクションの `Add` メソッド です。
まずは、一番シンプルな「白紙の新規作成」のコードを見てみましょう。
Sub CreateNewPresentation()
‘ 新しいプレゼンテーションオブジェクトを変数に格納する
Dim prs As Presentation
Set prs = Presentations.Add
‘ これだけで、新しいパワーポイントが画面に立ち上がります！
End Sub
これだけでも動きますが、実務では「会社のテンプレート」を使わなければ意味がありませんよね。ここで登場するのが、テンプレートファイルを指定するオプションです。
—
3. 【実践】テンプレートを指定して新規作成するマクロ
それでは、実務でそのまま使える完成版のコードをお見せします。
ご自身の環境に合わせて、コード内の `TemplatePath`（テンプレートファイルの保存場所）のパス書き換えて使ってみてください。
Sub CreateFromTemplate_Sample()
‘ =====================================================================
‘ テーマ：テンプレート（.potx）を指定して新規プレゼンテーションを自動作成する
‘ =====================================================================
Dim templatePath As String
Dim newPrs As Presentation
‘ 1. 社内テンプレート（.potx）のフルパスを指定する
‘ ※ご自身の環境のパスに書き換えてください
templatePath = “C:\Users\YourUserName\Documents\OfficeTemplates\CorporateTemplate.potx”
‘ エラーハンドリング（ファイルが存在するかチェックする親切設計）
If Dir(templatePath) = “” Then
MsgBox “指定されたテンプレートが見つかりません。” & vbCrLf & _
“パスを確認してください：” & vbCrLf & templatePath, _
vbCritical, “ファイルエラー”
Exit Sub
End If
On Error GoTo ErrorHandler
‘ 2. Presentations.Add メソッドを使ってテンプレートから新規作成する
‘ WithWindow:=msoTrue で、画面に新ウィンドウを表示させます
Set newPrs = Presentations.Add(WithWindow:=msoTrue)
‘ 【重要】ここでテンプレートのデザインを適用する
‘ ※厳密には、ApplyTemplateメソッドを使って後から適用します
newPrs.ApplyTemplate templatePath
‘ 3. 成功メッセージ
MsgBox “テンプレートからの新規作成が完了しました！”, vbInformation, “処理成功”
Exit Sub
ErrorHandler:
‘ 予期せぬエラーが発生した時の処置
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “予期せぬエラー”
End Sub
コードのここがポイント！
1. `Dir()` 関数による存在チェック
パスが間違っているとVBAは容赦なくエラーで止まります。事前にファイルが存在するかチェックするひと手間で、マクロの品質がグッとプロっぽくなります。
2. `ApplyTemplate` メソッド
実は `Presentations.Add` の引数で直接 `.potx` を指定する方法もありますが、Officeのバージョンやセキュリティ設定によって挙動が不安定になることがあります。一度新しく開いてから `ApplyTemplate` でテンプレートを適用する手法が、最も堅牢（ロバスト）で実務的です。
—
4. 初学者がハマりやすい「3大トラップ」と対策
PowerPoint VBAを書き始めたばかりの頃、誰もが一度は通る壁があります。ここで先回りしてクリアしておきましょう。
トラップ①：「パスの区切り文字」で迷う
Windowsのファイルパス（`C:\Folder\file.potx`）をVBAの文字列として扱うとき、円マーク（`\`）が特殊文字として扱われて文字化けやエラーの原因になることがあります。基本的にはそのままダブルクォーテーションで囲めば動きますが、もし挙動がおかしい場合はパスが正しいか `MsgBox` などで確認する癖をつけましょう。
トラップ②：変数の型を間違える
PowerPoint VBAでは、
- アプリケーション全体 ＝ `Application`
- 開いているファイル群 ＝ `Presentations`
- 個別のファイル（1つのパワーポイント） ＝ `Presentation` （複数形ではなく単数形！）
- 個別のスライド ＝ `Slide`
この「単数形と複数形」の区別がオブジェクト指向の肝です。新規作成したファイルを受け取る変数は必ず `Presentation` 型にしましょう。
トラップ③：マクロ有効形式で保存し忘れる
VBAを書いたファイルは、拡張子を通常の `.pptx` ではなく、`.pptm`（PowerPoint マクロ有効プレゼンテーション） として保存する必要があります。せっかく書いたコードが「保存したら消えた！」という悲劇を防ぐためにも、最初から `.pptm` で保存する習慣をつけましょう。
—
5. おわりに：ここから広がる自動化の世界
お疲れ様でした！これで「テンプレートを指定して新しいスライドを立ち上げる」という、プレゼンテーション自動化の第一歩を完全にマスターできました。
この土台さえできれば、次は以下のような発展形にスムーズに進むことができます。
- 作成したスライドの1枚目に、自動で今日の年月日や会議名タイトルを流し込む
- エクセルからデータを読み込んで、一気にスライドを量産する
「ここをクリアすれば、PowerPoint VBAの基本はバッチリですよ！」
ぜひご自身の業務用のテンプレートに書き換えて、マクロを実行してみてください。あなたの毎日の手作業が、ワンクリックで終わる爽快感をぜひ味わってくださいね。
それでは、次回の応用編でお会いしましょう！
