こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押すだけの世界から一歩踏み出し、「自分でコードを書きこなして業務を完全に自動化したい」と思っているあなたへ。
今回は、PowerPoint VBAの基礎とオブジェクトモデルの核心に迫りながら、現場で誰もが一度は頭を抱える「古い `.ppt` ファイルの互換性問題」をスマートに解決する極上のテクニックを授けましょう。
ここをクリアできれば、PowerPoint VBAの「オブジェクトの親子関係」や「バージョンの違いを吸収する思考法」が手に取るように分かります。さあ、一緒に扉を開けましょう！
—
1. なぜ「タイトルマスター」でつまずくのか？（背景と問題の核心）
あなたがもし、社内に眠る数年前、あるいは十数年前の古いプレゼンテーション資料（`.ppt` 形式）を、最新のPowerPoint（`.pptx`）で自動処理しようとしたなら、こんなエラーや絶望に直面したことがあるはずです。
- 「レイアウトがおかしくなった…」
- 「コードでスライドのレイアウトを指定しても、なぜか想定外のデザインが適用される…」
その原因は、PowerPoint 2007以前のアーキテクチャに存在した「タイトルマスター（TitleMaster）」という亡霊にあります。
古典的 `.ppt` とモダンな `.pptx` の決定的な違い
- 古い `.ppt` の世界:
通常のスライド用マスターとは別に、「タイトルスライド専用」の独立した空間として `TitleMaster` オブジェクトを持っていました。
- モダンな `.pptx` の世界:
タイトルマスターという独立概念は廃止され、すべてが一統された `SlideMaster` の中の「カスタムレイアウト（`CustomLayouts`）」の一つとして統合・管理されています。
VBAでこれを無視してモダンなプロパティ操作を行うと、古い `.ppt` ファイルを開いた瞬間にオブジェクトの参照が迷子になり、デザインが崩壊するか、容赦なく実行時エラー（Runtime Error）が吐き出されます。
プロのエンジニアとしての腕の見せ所は、「今読み込んでいるファイルが古い遺物を抱えているか」をプログラム自身に見極めさせ、安全にモダンなマスタ構造へとマッピング（橋渡し）することです。
—
2. PowerPoint VBAの心臓部：「オブジェクトモデル」の階層構造を理解する
コードを書く前に、PowerPointのオブジェクトがどういうピラミッド構造になっているかを頭に叩き込みましょう。ここがPowerPoint VBAの基本にして最重要ポイントです。
Application （PowerPoint アプリケーション）
└── Presentations （開いているプレゼンテーションのコレクション）
└── Presentation （個別のファイル）
├── SlideMasters （スライドマスターのコレクション） ※ここで世代が変わる！
│ └── SlideMaster
│ └── CustomLayouts （レイアウトのコレクション）
└── Slides （通常スライドのコレクション）
└── Slide
このピラミッドの中で、古い `.ppt` ファイルには、通常の `SlideMaster` とは別に、かつて独立していた `TitleMaster` がぶら下がっています。
—
3. 【実践】古いタイトルマスターを検知し、安全にモダンレイアウトへ移行するVBAコード
それでは、現場で即座に使える実用コードを公開します。
このコードは、アクティブなプレゼンテーションを走査し、古い「タイトルマスター」を持っているスライドを検出した場合は、モダンな「カスタムレイアウト（タイトル用レイアウト）」へ安全に付け替える（マッピングする）スクリプトです。
Sub MigrateLegacyTitleMaster()
Dim prs As Presentation
Dim sld As Slide
Dim targetLayout As CustomLayout
Dim convertedCount As Long
‘ 1. 現在アクティブなプレゼンテーションを取得
Set prs = ActivePresentation
convertedCount = 0
On Error GoTo ErrorHandler
‘ 2. モダンなスライドマスターから「タイトル用レイアウト」をあらかじめ特定しておく
‘ （通常、マスター内のレイアウト番号(1)や名前で「タイトル」を判定します）
Set targetLayout = prs.SlideMasters(1).CustomLayouts(ppLayoutTitle)
‘ 3. プレゼンテーション内の全スライドを巡回
For Each sld in prs.Slides
‘ 【重要】古い「タイトルマスター」を持っているスライドか判定する
‘ HasTitleMaster プロパティは古い .ppt 互換モードでのみ真価を発揮します
If sld.HasTitleMaster Then
Debug.Print “古いタイトルマスターを検知: スライド番号 ” & sld.SlideIndex
‘ 4. 古いタイトルマスターの存在を切り離し、モダンなカスタムレイアウトへ安全にマッピング
‘ これにより、最新の .pptx のレイアウト構造に強制同化させます
Set sld.CustomLayout = targetLayout
‘ ※もし古いタイトルマスター独自の図形やテキストを引き継ぎたい場合は、
‘ このタイミングで sld.TitleMaster 内のシェイプをコピーする処理を追加します。
convertedCount = convertedCount + 1
End If
Next sld
‘ 5. 完了報告
MsgBox “移行処理が完了しました！” & vbCrLf & _
“モダンレイアウトへ再マッピングしたスライド数: ” & convertedCount, _
vbInformation, “互換性維持システム”
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
End Sub
コードの解説ポイント
1. `sld.HasTitleMaster` の活用:
このプロパティこそが、古い `.ppt` ファイルの遺物を暴くための鍵です。これが `True` を返すスライドだけを狙い撃ちして処理します。
2. `CustomLayouts(ppLayoutTitle)` へのマッピング:
古い独立したマスター空間に依存していたデザインを、モダンな `CustomLayout`（カスタムレイアウト）の枠組みへと綺麗に流し込みます。これにより、最新のOfficeテーマやフォント設定が正常に継承されるようになります。
—
4. 陥りやすいエラーと、プロが教える回避の極意
初心者がこの領域のコードを書くとき、必ずと言っていいほど以下の罠にハマります。
罠1: 「オブジェクトが見つからない（Run-time error ‘-2147188160’）」
- 原因:
モダンな `.pptx` で新規作成されたスライドに対し、古い `.ppt` 専用のプロパティ（`TitleMaster` や `HasTitleMaster`）を無理やり呼び出そうとした場合や、レイアウトのインデックス番号（例: `CustomLayouts(2)` など）をハードコーディングしていて環境によって数が違う場合に発生します。
- 回避策:
必ず `HasTitleMaster` で存在確認（ガード条件）を入れてからプロパティにアクセスしてください。また、レイアウトを指定する際はインデックス番号だけでなく、定数（`ppLayoutTitle` など）やレイアウト名（`Name` プロパティ）で名前解決するように心がけましょう。
罠2: マスターの階層構造（`SlideMasters` vs `TitleMaster`）の混同
- 原因:
PowerPoint 2007以降、マスターは複数持つことができます（複数テーマの混在）。`prs.SlideMasters(1)` と指定すべきところを間違えると、意図しないマスターのレイアウトを書き換えてしまいます。
- 回避策:
大規模な資料を扱う場合は、マスターが何枚あるか (`prs.SlideMasters.Count`) を事前にループで確認するデバッグコードを挟むと、予期せぬ事故を防げます。
—
まとめ：ここをクリアすれば、PowerPoint VBAは怖くない！
今回は、少しマニアックでありながら実務で猛威を振るう「古いタイトルマスターのモダン化・マッピング」について解説しました。
- 古い `.ppt` には独立した `TitleMaster` がいる。
- モダンな `.pptx` は `CustomLayouts` でレイアウトを管理している。
- `HasTitleMaster` をガードマンにして、安全にプロパティを書き換える。
この一連のロジックが頭に入っていれば、どんなに古い社内資産の整理であっても、あなたの手にかかれば一瞬でクリーンな最新プレゼンに生まれ変わらせることができます。
「マクロの記録」の向こう側にある、オブジェクトを意のままに操る快感——。
ここをクリアしたあなたなら、もう立派なPowerPoint自動化エンジニアです。日々の業務をコードの力で劇的にラクにしていきましょう！
