PowerPoint VBAを掌握する極限の知見：無駄な初期レイアウトを駆逐し、社内標準を強制適用する極意
開発プロジェクトの現場において、PowerPointの「新規プレゼンテーション作成」から始まる一連の儀式ほど、エンジニアの時間を無駄に蝕むものはない。
新しいプレゼンテーションを開く。デフォルトで鎮座している、あの鬱陶しい「タイトルとコンテンツ」のテキストボックス群。これをわざわざ全選択して削除し、レイアウトから「白紙」を選択し直す——。
この無駄な手作業を、君は毎回の業務で何回繰り返している？
プロの自動化エンジニアであれば、このような「人間がやるべきではない反復作業」はコードの一撃で屠るべきだ。
今回は、新規作成時に社内規定の標準レイアウト（完全な空白スライド）を強制適用し、秒速で実務に入れる堅牢なファクトリーマクロの設計思想と実装を授けよう。
—
1. なぜ「デフォルトの新規作成」では業務が破綻するのか
素人が書いたVBAコードによくあるアンチパターンを見てみよう。
‘ 【アンチパターン】これだから素人コードは信頼されない
Sub BadNewPresentation()
Dim pptApp As Application
Set pptApp = ActiveApplication ‘ もしくは新規作成の甘い処理
‘ デフォルトで生成されたスライドを触ろうとする
Dim sld As Slide
Set sld = pptApp.ActivePresentation.Slides(1)
‘ 気休めにテキストボックスを消す（泥臭いアプローチ）
‘ ➔ オブジェクトのライフサイクルやレイアウト概念を無視した最悪の設計
End Sub
このアプローチがなぜゴミなのか。理由は明確だ。
PowerPointの `Application.Presentations.Add` メソッドは、デフォルトのテンプレート（またはユーザーの既定の設定）に依存してプレゼンテーションを生成する。そのため、環境によっては不要なタイトルプレースホルダーが最初から埋め込まれていたり、社内規定とは異なるフォントやマスターが適用されたりする。
プロのアーキテクトが目指すべきは、「環境に依存せず、プログラムの実行によって完全に統制されたクリーンな初期状態のドキュメントを生成すること」である。
—
2. 堅牢な設計：FactoryパターンのVBAへの応用
今回のマクロの要件定義は以下の通りだ。
1. 完全な新規プレゼンテーションのインスタンス生成
2. 生成された最初のスライドに対し、レイアウト「白紙（ppLayoutBlank）」の強制適用
3. 不要なプレースホルダーの残骸を一切残さないクリーンナップ
4. エラーハンドリングの完備（予期せぬCOM例外のキャッチ）
これらを網羅した、プロダクションコード（現場でそのまま使える実用コード）を以下に提示する。
—
3. コピペで即戦力：社内標準レイアウト強制適用マクロ
以下のコードを、個人用マクロブック（`Personal.xlsb`）または共通テンプレート（`.potm`）の標準モジュールに実装せよ。
Option Explicit
‘ ==============================================================================
‘ módulo名: ModPresentationFactory
‘ 概要 : 社内標準の完全空白スライドを持つ新規プレゼンテーションを生成する
‘ 著者 : 業務自動化チーフアーキテクト
‘ ==============================================================================
Public Sub CreateStandardBlankPresentation()
‘ エラーハンドリングの宣言
On Error GoTo ErrorHandler
Dim targetPres As Presentation
Dim targetSlide As Slide
‘ 1. 新規プレゼンテーションの生成
‘ Presentations.Add メソッドは、新規プレゼンテーションオブジェクトを返す
Set targetPres = Application.Presentations.Add(WithWindow:=msoTrue)
‘ 2. 初期生成されるスライドのインデックスは常に 1 である
‘ ※環境によってスライド数が0個になることはないが、安全のため存在確認を行う
If targetPres.Slides.Count > 0 Then
Set targetSlide = targetPres.Slides(1)
‘ 3. レイアウトを強制的に「白紙 (ppLayoutBlank)」に変更
‘ これにより、タイトルやサブタイトルのプレースホルダーを根絶する
targetSlide.Layout = ppLayoutBlank
‘ 4. （応用）社内規定の初期設定をここに流し込む
‘ 例: スライドサイズを 16:9 (Widescreen) に確実に固定する
targetPres.PageSetup.SlideWidth = 960 ‘ 4:3なら 720
targetPres.PageSetup.SlideHeight = 540 ‘ 4:3なら 540
targetPres.PageSetup.SlideSizeType = ppSlideSizeCustom
Else
Err.Raise vbObjectError + 1000, “CreateStandardBlankPresentation”, “初期スライドの生成に失敗しました。”
End If
‘ 5. オブジェクトの解放（メモリリーク防止の作法）
Set targetSlide = Nothing
Set targetPres = Nothing
Exit Sub
ErrorHandler:
‘ 予期せぬエラーの捕捉とログ出力（実務ではログ基盤やメッセージボックスへ）
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “PowerPoint Automation Error”
‘ クリーンアップ
Set targetSlide = Nothing
Set targetPres = Nothing
End Sub
—
4. チーフアーキテクトが教える、コードの急所（解説）
このコードが「なぜ現場で通用するのか」、その技術的優位性を解説する。
① `ppLayoutBlank` によるレイアウトの強制
PowerPointのレイアウト定数である `ppLayoutBlank`（値は `12`）を指定することで、マスターに紐づく「完全に汚染されていないキャンバス」を手に入れている。プレースホルダーが物理的に存在しないため、後続の図形描画やテキスト流し込み処理において、`Shape.Delete` などの無駄なゴミ掃除コードを書く必要が一切なくなる。
② スライドサイズのハードコーディング（環境依存の排除）
実務で最も多いトラブルが、「作成者のPCのデフォルト設定（4:3か16:9か）によって、生成される資料のアスペクト比がバラバラになる」という問題だ。
コード内で `PageSetup` を明示的に制御（例: 960×540 pt = 16:9）することにより、どの社員のPCで実行しても完全に統一された規格のドキュメントが爆誕する。これが社内規定の強制適用たる所以だ。
③ 厳格なエラーハンドリングとメモリマネジメント
COMコンポーネントを操作するVBAにおいて、変数の解放（`Set 〇〇 = Nothing`）を怠ると、背後でプロセスが残存しメモリリークやファイルロックの遠因となる。例外発生時も含めて確実なオブジェクト破棄を行う構造にしているため、長時間の稼働でも安定性が保たれる。
—
5. さらなる高みへ：リボンへの組み込みと展開
このマクロを標準モジュールに書いただけで終わらせては、真の自動化エンジニアとは言えない。
社内の他のメンバーに使わせるためには、PowerPointのリボンUIに専用のカスタムボタンとして配置するべきだ。
1. `Office RibbonX Editor` などのツールを使用する。
2. 以下のようなXMLを記述し、リボンに「新規作成（社内標準）」ボタンを追加する。
このボタンをワンクリックするだけで、全社共通のフォーマットに準拠した白紙のプレゼンテーションがあなたの手元に立ち上がる。
結びにかえて
業務効率化とは、単にコードを書くことではない。
「人間が判断し、手を動かす余地（＝ヒューマンエラーの温床）をシステムによって完全に排除すること」である。
今回授けたコードは、そのための最も基礎的でありながら、最も強力な武器だ。今すぐ自社の環境に組み込み、無駄な手作業を過去のものにせよ。
