継ぎ接ぎの資料を、一瞬で「プロの品質」へ。スライドマスターを掌握するフォント強制統一アーキテクチャ
現場の自動化担当者が直面する、最も泥臭く、かつ最も回避不能な問題。それは「継ぎ接ぎ（パッチワーク）で作られたプレゼンテーションの崩壊」だ。
異なるテンプレートからスライドをコピー＆ペーストし続け、フォントが「游ゴシック」「MS Pゴシック」「Arial」と混在し、スライドマスターも、レイアウトも、個別のテキストボックスも、すべてがバラバラの意志を持っている。このような資料を「見た目だけ」整えても、それはプロの仕事ではない。次に新しいスライドを追加した瞬間、再び混沌が再来するからだ。
本記事では、単なる「文字の置換」ではない。PowerPointのオブジェクトモデルの階層構造を理解し、「スライドマスター」「カスタムレイアウト」「個別のスライド」の全レイヤーに対して、フォント定義を強制的に上書き・統制する、堅牢なプロダクションレベルの設計手法を伝授する。
1. なぜ「スライドのテキスト」だけを変えてはいけないのか
多くの初級者は、`ActivePresentation.Slides` をループして、全シェイプのフォントを書き換えるコードを書く。しかし、それは「表面的な化粧」に過ぎない。
PowerPointのフォント仕様は、以下の「継承の連鎖」によって決まる。
1. Slide Master (スライドマスター): 全体のデザインの根幹。
2. Custom Layout (カスタムレイアウト): マスターに紐づく、特定のレイアウト（タイトルスライド、コンテンツ等）。
3. Slide (スライド): レイアウトを適用した実体。
4. Shape (シェイプ): スライド上に配置された個別の要素。
もし、マスターやレイアウトのフォント定義を放置したまま、スライド上の文字だけを書き換えた場合、ユーザーが「新しいスライド」を追加した瞬間に、意図しないフォントが爆誕する。これは自動化ツールとしての「欠陥」だ。
真に堅牢なツールは、オブジェクトのライフサイクル（生成から破棄まで）を見据え、設計の根源である「マスター」から順に制圧しなければならない。
2. 設計戦略：トップダウン・フォント・クレンジング
我々が実装すべきは、「Top-Down Approach（トップダウン・アプローチ）」である。
戦略のステップ
1. Master Layer: 全スライドの親である `SlideMaster` のフォントを統一。
2. Layout Layer: 各マスターに紐づく `CustomLayout` のフォントを統一。
3. Slide Layer: 各スライド内の `Shape`（プレースホルダー、テキストボックス、グループ化された図形）を走査し、フォントを強制。
4. Clean Save: 変更を確定させた後、メタデータが汚染されないようクリーンに保存。
3. プロダクション・コード：フォント強制統一エンジン
以下に、実務でそのまま利用可能な、エラーハンドリングと保守性を考慮した設計のコードを示す。単なるコピペで終わらせず、なぜこの構造なのかを読み解いてほしい。
Option Explicit
' ==============================================================================
' Module: FontStandardizationEngine
' Description: スライドマスターからスライド個別のシェイプに至るまで、
' フォント定義を強制的に社内標準へ統一する。
' ==============================================================================
' 設定定数：ここを書き換えるだけで、全ロジックが制御される
Private Const TARGET_FONT_NAME As String = "Yu Gothic UI" ' 社内標準フォント
Private Const TARGET_FONT_SIZE As Single = 18 ' 必要に応じてサイズも制御可能
''' <summary>
''' メイン実行ルーチン
''' </summary>
Public Sub StandardizePresentationFonts()
Dim pres As Presentation
Set pres = ActivePresentation
On Error GoTo ErrorHandler
' 画面更新を停止（劇的なパフォーマンス向上とちらつき防止）
' ※PowerPointにはExcelのようなScreenUpdatingはないが、
' 処理の重い操作を最小限にする設計思想を持つ。
Debug.Print "--- フォント統一プロセス開始 ---"
' 1. スライドマスターの制圧
Debug.Print "Step 1: Standardizing Slide Masters..."
ProcessMasterLayer pres
' 2. 各スライドの制圧
Debug.Print "Step 2: Standardizing Individual Slides..."
ProcessSlideLayer pres
' 3. 保存処理
Debug.Print "Step 3: Saving Clean Version..."
SaveAsCleanVersion pres
MsgBox "フォントの統一が完了しました。" & vbCrLf & "標準フォント: " & TARGET_FONT_NAME, vbInformation
Exit Sub
ErrorHandler:
MsgMsgBox "致命的なエラーが発生しました。" & vbCrLf & _
"Error No: " & Err.Number & vbCrLf & _
"Description: " & Err.Description, vbCritical
End Sub
''' <summary>
''' マスターおよびレイアウト層のフォントを統一する
''' </summary>
Private Sub ProcessMasterLayer(ByRef pres As Presentation)
Dim mstr As SlideMaster
Dim lay As CustomLayout
For Each mstr In pres.SlideMasters
' マスター自体のフォント設定
ApplyFontToShapes mstr.Shapes
' マスターに紐づく各レイアウトを走査
For Each lay In mstr.CustomLayouts
ApplyFontToShapes lay.Shapes
Next lay
Next mstr
End Sub
''' <summary>
''' 各スライド層のフォントを統一する
''' </summary>
Private Sub ProcessSlideLayer(ByRef pres As Presentation)
Dim sld As Slide
For Each sld In pres.Slides
ApplyFontToShapes sld.Shapes
Next sld
End Sub
''' <summary>
''' シェイプ集合を再帰的に走査し、テキストを持つシェイプにフォントを適用する
''' </summary>
''' <param name="shpRange">対象のShapesコレクション</param>
Private Sub ApplyFontToShapes(ByRef shpRange As Shapes)
Dim shp As Shape
Dim i As Integer
For Each shp In shpRange
' 1. グループ化された図形への再帰処理（重要！）
If shp.Type = msoGroup Then
ApplyFontToShapes shp.GroupItems
' 2. テキストボックス、プレースホルダー、表などの処理
Else
If shp.HasTextFrame Then
If shp.TextFrame.HasText Then
With shp.TextFrame.TextRange.Font
.Name = TARGET_FONT_NAME
' 必要に応じて、フォントサイズや色もここで統制する
' .Size = TARGET_FONT_SIZE
End With
End If
End If
' 3. 表(Table)内のテキスト処理（Shapeのプロパティでは拾えないため個別処理）
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
With shp.Table.Cell(r, c).Shape.TextFrame.TextRange.Font
.Name = TARGET_FONT_NAME
End With
Next c
Next r
End If
End If
Next shp
End Sub
''' <summary>
''' ファイルを別名で安全に保存する
''' </summary>
Private Sub SaveAsCleanVersion(ByRef pres As Presentation)
Dim newName As String
newName = pres.Path & "\" & Left(pres.Name, InStrRev(pres.Name, ".") - 1) & "_Standardized.pptx"
' 上書き防止のため、一度保存してから実行することを推奨
pres.SaveCopyAs newName
Debug.Print "Saved: " & newName
End Sub4. アーキテクトの視点：なぜこのコードは「強い」のか
このコードを単なるスクリプトとして片付けてはいけない。以下の3つの設計思想が組み込まれている。
① 再帰的走査（Recursive Traversal）
`shp.Type = msoGroup` の判定に注目してほしい。プロフェッショナルが作った資料には、必ず「グループ化された図形」が存在する。単純な `For Each shp In Slide.Shapes` では、グループの中に入り込んだテキストは見落とされる。`ApplyFontToShapes` を再帰的に呼び出すことで、階層の深さに関わらず、全てのテキストを捕捉する。
② 表（Table）への対応
PowerPoint VBAにおいて、`Table` オブジェクトは `Shape` の一種だが、その内部のセルは独自の階層を持っている。`shp.HasTable` の分岐を設けることで、表の中に潜む「異種フォント」という名の時限爆弾を確実に処理している。
③ 責務の分離（Separation of Concerns）
`StandardizePresentationFonts`（オーケストレーター）、`ProcessMasterLayer`（マスター担当）、`ApplyFontToShapes`（最小単位の実行担当）と、役割を明確に分けている。これにより、「表のフォントだけ変えたい」「グループ化された図形だけ除外したい」といった将来の仕様変更に対し、最小限の修正で対応できる。
5. 実務への実装における注意点
このツールをプロダクション環境（社内配布用など）に投入する際は、以下のリスクを管理せよ。
1. フォントの可用性: `TARGET_FONT_NAME` に指定するフォントが、実行環境（クライアントのPC）にインストールされていない場合、PowerPointは勝手に代替フォントを選択する。これは「自動化の失敗」に直結する。必ず、標準インストールされているフォントを指定すること。
2. SmartArt の壁: SmartArt はオブジェクトモデルが特殊であり、上記コードでは完全に制御できない場合がある。SmartArt を多用する環境では、別途 `msoSmartArt` 用のハンドリングが必要になるが、これは実装の複雑性を劇的に高めるため、まずは「マスターとスライド」の統制に集中することを推奨する。
3. バックアップの徹底: `SaveCopyAs` を使用しているが、実行前に必ずオリジナルをバックアップするフローをユーザーに徹底させること。自動化は、時に「破壊的」な側面を持つ。
結論
プロフェッショナルな自動化エンジニアとは、単に「動くもの」を作る人間ではない。「例外が起きない構造」を設計し、「システムの整合性」を担保する人間のことだ。
スライドマスターを掌握し、継承の連鎖をコントロールする。この視点を持ったとき、君の書くコードは単なる便利ツールから、組織の品質を支える「インフラ」へと昇華する。
