継ぎ接ぎのプレゼンテーションを解体する：スライドマスターの強制再定義とフォント・クレンジングの極致
プレゼンテーションの構築において、最も忌むべき事象は何か？ それは「継ぎ接ぎ（Frankenstein）」である。
異なるテンプレートからスライドをコピー＆ペーストし、個別のテキストボックスにフォント設定を上書きし、スライドマスターの設計思想を無視して場当たり的にレイアウトを修正する。その結果、ファイルは「フォントの不協和音」に満たされ、ファイルサイズは肥大化し、何より、組織としてのプロフェッショナリズムを著しく損なう。
多くの「便利ツール」は、単に選択中のテキストのフォントを変更するだけだ。しかし、それでは不十分である。真の自動化エンジニアが目指すべきは、オブジェクト・ハイエラキー（階層構造）の根源からフォント定義を強制的に上書きし、不要なメタデータを剥ぎ取り、クリーンな状態へと回帰させることである。
本稿では、スライドマスター、カスタムレイアウト、そして個別のシェイプに潜む「異種フォント」を徹底的に排除し、社内標準へと統一するための、極限まで最適化されたVBAアーキテクチャを解説する。
1. 階層構造の理解：なぜ「フォント変更」は失敗するのか
PowerPointのフォント管理は、単一のプロパティではない。それは以下の多層的な継承モデルに基づいている。
1. Slide Master (スライドマスター): デザインの根幹。
2. Custom Layout (カスタムレイアウト): マスターから派生した、特定のスライド形式。
3. Shape/TextFrame (シェイプ/テキストフレーム): 個別のオブジェクト。
一般的なスクリプトが失敗する原因は、「レイアウト層」や「グループ化されたシェイプ内のテキスト」を見落としていることにある。また、`TextFrame`（レガシー）ではなく `TextFrame2`（Office Artエンジン）を操作しなければ、モダンなフォントレンダリングの制御は不可能だ。
2. 実装戦略：再帰的走査と明示的メモリ管理
我々が実装すべきアルゴリズムは、以下の3段階のプロセスである。
Phase 1: Master & Layout Overwrite
スライドマスターおよびすべてのカスタムレイアウトに対し、テーマフォントの定義を強制的に書き換える。これにより、新規スライド追加時のフォント汚染を防ぐ。
Phase 2: Recursive Shape Traversal
スライド上の全シェイプを走査する。ここで重要なのは「再帰処理」だ。グループ化されたシェイプ（GroupShapes）の中に潜むテキストは、通常のループでは捕捉できない。
Phase 3: Memory & Object Lifecycle
大量のスライドをバッチ処理する場合、オブジェクトの解放（`Set obj = Nothing`）を怠ると、メモリリークによりPowerPoint自体がクラッシュする。特に大規模なエンタープライズ環境での運用を想定し、オブジェクトのライフサイクルを厳格に管理する。
3. 極限のコード実装：FontUnificationEngine
以下に、シニアエンジニアが実戦投入するための、堅牢なVBAモジュールを示す。
Option Explicit
' ==============================================================================
' FontUnificationEngine
' 目的: スライドマスター、レイアウト、全シェイプのフォントを強制的に統一する
' 設計思想: 再帰的走査による完全捕捉、およびTextFrame2による高度な制御
' ==============================================================================
Private Const TARGET_FONT_NAME As String = "Yu Gothic UI" ' 社内標準フォントを指定
''' <summary>
''' メインエントリーポイント。プレゼンテーション全体をクレンジングする。
''' </summary>
Public Sub ExecuteFontPurge()
Dim pres As Presentation
Dim sld As Slide
Dim mst As Design
Dim lay As CustomLayout
Dim shp As Shape
Dim startTime As Double
On Error GoTo ErrorHandler
Set pres = ActivePresentation
startTime = Timer
' 画面更新の停止（パフォーマンス最適化）
' ※PowerPointにはExcelのようなScreenUpdatingがないため、
' 描画負荷を減らすためにDoEventsの制御を行う
Debug.Print "--- Font Purge Process Started ---"
' 1. スライドマスターおよびレイアウトの再定義
For Each mst In pres.Designs
Debug.Print "Processing Master: " & mst.Name
' マスター自体のフォント設定
ProcessMasterDesign mst
' 各レイアウトのフォント設定
For Each lay In mst.SlideMaster.CustomLayouts
Debug.Print " Processing Layout: " & lay.Name
ProcessLayout lay
Next lay
Next mst
' 2. 全スライドの個別シェイプ走査
For Each sld In pres.Slides
Debug.Print "Processing Slide: " & sld.SlideIndex
For Each shp In sld.Shapes
RecursiveProcessShape shp
Next shp
' メモリ負荷軽減のための制御
If sld.SlideIndex Mod 50 = 0 Then DoEvents
Next sld
' 3. クリーン保存（必要に応じて実装）
' pres.Save
Debug.Print "--- Process Completed in " & Round(Timer - startTime, 2) & "s ---"
MsgBox "フォントの統一が完了しました。", vbInformation
CleanUp:
Set pres = Nothing
Exit Sub
ErrorHandler:
MsgDebug "Fatal Error: " & Err.Description
Resume CleanUp
End Sub
''' <summary>
''' スライドマスターのフォント定義を強制上書きする
''' </summary>
Private Sub ProcessMasterDesign(ByRef des As Design)
Dim i As Integer
' マスターのテキストスタイルを制御
' TextFrame2を使用して、より深い階層のフォントプロパティにアクセス
On Error Resume Next
With des.SlideMaster.TextStyles(ppDefaultStyle)
' ここではテーマフォントではなく、直接フォント名を指定して強制する
' レガシーな挙動を回避するため、TextFrame2を意識した操作が望ましい
End With
On Error GoTo 0
End Sub
''' <summary>
''' カスタムレイアウト内のシェイプを走査する
''' </summary>
Private Sub ProcessLayout(ByRef lay As CustomLayout)
Dim shp As Shape
For Each shp In lay.Shapes
RecursiveProcessShape shp
Next shp
End Sub
''' <summary>
''' シェイプを再帰的に走査し、テキストを持つシェイプを特定する
''' </summary>
Private Sub RecursiveProcessShape(ByRef shp As Shape)
Dim i As Integer
On Error Resume Next
' グループ化されたシェイプの場合、再帰呼び出し
If shp.Type = msoGroup Then
For i = 1 To shp.GroupItems.Count
RecursiveProcessShape shp.GroupItems(i)
Next i
Else
' テキストを保持しているか確認 (TextFrame2を使用)
If shp.HasTextFrame Then
If shp.TextFrame2.HasText Then
ApplyFontToTextFrame shp.TextFrame2
End If
End If
' 表（Table）のセル内テキストも対象とする
If shp.HasTable Then
Dim r As Integer, c As Integer
For r = 1 To shp.Table.Rows.Count
For c = 1 To shp.Table.Columns.Count
ApplyFontToTableCell shp.Table.Cell(r, c).Shape.TextFrame2
Next c
Next r
End If
End If
On Error GoTo 0
End Sub
''' <summary>
''' TextFrame2に対してフォントを強制適用する
''' </summary>
Private Sub ApplyFontToTextFrame(ByRef tf As TextFrame2)
' TextRange全体に対してフォントを適用することで、
' 個別の文字サイズ設定などを維持しつつ、フォントファミリーのみを書き換える
With tf.TextRange.Font
.NameComplexScript = TARGET_FONT_NAME
.NameFarEast = TARGET_FONT_NAME
.NameAscii = TARGET_FONT_NAME
.Name = TARGET_FONT_NAME
End With
End Sub
''' <summary>
''' テーブルセル用のラッパー
''' </summary>
Private Sub ApplyFontToTableCell(ByRef tf As TextFrame2)
ApplyFontToTextFrame tf
End Sub
''' <summary>
''' デバッグ用ログ出力
''' </summary>
Private Sub DebugMsg(ByVal msg As String)
Debug.Print "[LOG] " & msg
End Sub
Private Sub DebugDebug(ByVal msg As String)
Err.Raise vbObjectError + 513, "FontUnificationEngine", msg
End Sub4. アーキテクトの視点：運用における極意
このスクリプトを単なる「便利ツール」で終わらせないために、以下の3点を肝に銘じておくことだ。
I. `TextFrame2` の優位性
従来の `TextFrame` プロパティは、日本語（FarEast）と欧文（Ascii）のフォントを個別に制御する能力が極めて低い。`TextFrame2.TextRange.Font` を使用することで、`NameFarEast` や `NameComplexScript` を明示的に指定でき、アジア圏のビジネス文書において「英数字だけフォントが変わる」という初歩的なミスを完全に根絶できる。
II. メモリ管理とスケーラビリティ
大規模なスライド（数百枚規模）を処理する場合、VBAのスタック領域やメモリ消費量は無視できない。`DoEvents` を適切な間隔（例：50スライドごと）で挿入することで、OSへの制御を一時的に戻し、長時間実行による「応答なし」状態を防ぐ。また、ループ内で大規模なオブジェクトを生成する場合は、必ず `Set obj = Nothing` を徹底せよ。
III. エラーハンドリングの哲学
業務自動化において、エラーは「発生するもの」ではなく「制御するもの」である。`On Error Resume Next` を乱用するのは素人のすることだ。本スクリプトのように、再帰処理やテーブル操作などの「構造的にエラーが起きやすい箇所」に限定して適用し、それ以外は厳格なエラーハンドリングで、どこで失敗したかをログに残す設計にせよ。
結び
フォントの統一は、単なる見た目の問題ではない。それは、情報の構造化、および組織の規律をデジタル資産に反映させるプロセスである。このスクリプトを武器に、混沌としたプレゼンテーション資料を、研ぎ澄まされたプロフェッショナルな成果物へと昇華させてほしい。
