こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押して「動いたはいいけれど、中身がごちゃごちゃしていて改造できない……」と悩んでいませんか？
大丈夫、ここをクリアすればPowerPoint VBAの基本はバッチリですよ。今日は、実務の現場で「おっ、分かってるね！」と言われるような、プロのテンプレート運用術を伝授します。
手動でやると「あ、うっかり元のマスターファイルを上書き保存しちゃった……！」という悲劇を完全に防ぐ、極上のテクニックです。さあ、一緒に扉を開けましょう！
—
1. 実務の現場でよくある「やっちゃった」エラー
毎月使う定型のプレゼンテーション資料、あなたはどうやって作成していますか？
1. 元となるテンプレートファイル（`.potx` や `.pptx`）をエクスプローラーからダブルクリックして開く。
2. 資料を作成・編集する。
3. うっかり「上書き保存（Ctrl + S）」を押してしまう、あるいは「名前を付けて保存」を忘れて元のマスターを汚してしまう。
……これ、業務自動化の現場では絶対に避けたい人災です。
VBAを使って「テンプレートを指定して開く」コードを書くとき、何も考えずに `Presentations.Open` メソッドを使うと、マスターファイルそのものが開いてしまい、同じ罠にハマります。
ここで登場するのが、今回マスターする魔法の引数 `Untitled:=msoTrue` です。
—
2. 秘密兵器 `Untitled:=msoTrue` とは？
PowerPointのオブジェクトモデルにおいて、`Presentations.Open` メソッドは非常に強力です。しかし、そのままでは「ファイルを指定して開く」ことしかできません。
そこで、引数に `Untitled:=msoTrue` を指定します。これの意味は、文字通り「このファイル、まだ名前がついていません（新規未保存状態）として開きなさい」という命令です。
これを使うと、元のファイル構造を完全に保護したまま、メモリ上に「そのコピー（無題のプレゼンテーション）」を安全に展開できます。ユーザーがうっかり上書き保存しようとしても、PowerPoint側が「名前を付けて保存」ダイアログを強制的に出してくれるため、マスターファイルを汚すリスクがゼロになるのです。
—
3. 実践！元ファイルを守りながら新規生成するVBAコード
それでは、実際に動かせる実用的なコードを見ていきましょう。
以下のコードは、特定のテンプレートファイルを読み込み、安全に新しいプレゼンテーションとして展開するプロシージャです。
Sub CreateNewPresentationFromTemplate()
‘ =================================================================
‘ 処理概要: 指定したテンプレートファイルを汚さない形で、新規プレゼンテーションを開く
‘ 執筆者: チーフアーキテクト
‘ =================================================================
Dim targetPath As String
Dim newPres As Presentation
‘ 1. テンプレートファイルのパスを指定してください
‘ ※ご自身の環境に合わせてパス書き換えてください（例: C:\Templates\master.pptx）
targetPath = ThisWorkbook.Path & “\master_template.pptx”
‘ エラーハンドリングの基本：ファイルの存在確認
If Dir(targetPath) = “” Then
MsgBox “指定されたテンプレートが見つかりません。” & vbCrLf & targetPath, vbCritical, “ファイルエラー”
Exit Sub
End If
On Error GoTo ErrorHandler
‘ 2. 【核心】Untitled:=msoTrue を使って、未保存の新規ファイルとして開く
‘ これにより、元ファイルが上書きされる事故を物理的に防ぎます
Set newPres = Presentations.Open(FileName:=targetPath, Untitled:=msoTrue)
‘ 3. 開いたプレゼンテーションに対する初期処理（例としてタイトルスライドを追加）
‘ ※テンプレート側にあらかじめスライドがある場合はこの処理は不要です
Dim targetSlide As Slide
Set targetSlide = newPres.Slides.Add(1, ppLayoutTitle)
targetSlide.Shapes.Title.TextFrame.TextRange.Text = “自動生成されたレポート”
targetSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = “作成日: ” & Format(Date, “YYYY年MM月DD日”)
‘ 4. ユーザーへ完了の合図
MsgBox “テンプレートからの展開が完了しました！” & vbCrLf & _
“※このファイルはまだ保存されていません。作業後は必ず名前を付けて保存してください。”, _
vbInformation, “処理成功”
Exit Sub
ErrorHandler:
‘ 予期せぬエラーが発生した際の安全装置
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
End Sub
コードのポイント解説
- `ThisWorkbook.Path` の活用: もしこのマクロを書いたExcelファイルやアドインと同じ階層にテンプレートを置く場合、パスをハードコーディング（固定）せずに相対パスで取得できます。現場でよく使われるスマートな書き方です。
- `Untitled:=msoTrue`: これが今回の主役です。バックグラウンドで安全なクローンをメモリ上に召喚します。
—
4. 陥りやすい罠とエラー回避の知見
実務でこのコードを組み込む際、初心者がつまずきやすいポイントを先回りして解説しておきます。
トラブル①：`msoTrue` で「変数が定義されていません」と言われる
VBAのコード内で `msoTrue` を使うには、Microsoft PowerPoint Object Library が参照設定されている必要があります。
もしエラーが出る場合は、VBAエディタのメニューから [ツール] ＞ [参照設定] を開き、`Microsoft PowerPoint xx.x Object Library` にチェックが入っていることを確認してください。
（※どうしても参照設定に頼りたくない場合は、`msoTrue` の代わりに `True` や `-1` と書いても動作します）
トラブル②：パスの区切り文字（バックスラッシュ）迷子
Windows環境ではお馴染みの `\`（円マーク）ですが、VBAの文字列結合では抜けてしまったり重複したりしがちです。パスを結合する際は、必ずファイル名の直前に `\` が入っているか `Dir` 関数などでデバッグする習慣をつけましょう。
—
おわりに：エンジニアとしての第一歩
いかがでしたでしょうか？
今回紹介した `Untitled:=msoTrue` は、単なるテクニックではなく、「システムやデータを守るための防衛的プログラミング（Defensive Programming）」の第一歩です。
マクロの記録から脱却し、こうしたオブジェクトの細かい挙動や引数を理解できるようになると、あなたの業務効率化のスキルは一気にプロの領域へと昇華します。
ここをクリアしたあなたなら、もうPowerPoint VBAの基礎はバッチリです！自信を持って、日々の業務の自動化に挑戦してくださいね。それでは、次のステージでお会いしましょう！
