プレゼンテーションのフォント埋め込み状態を完全掌握せよ：外部配布時の文字化けリスクを「ゼロ」にする事前スキャン・チェック機構
PowerPointファイルを社外や別環境のクライアントPCへ配布した際、意図したデザインが完全に崩壊し、トーン＆マナーが台無しになる――。業務自動化の現場において、この「フォントの文字化け・置換問題」ほど不毛で、かつビジネス上の致命傷になり得るトラブルはない。
原因は明白だ。宛先のPCに該当のフォント（特にTrueType/OpenTypeの商用フォントやカスタムフォント）がインストールされておらず、PowerPointの「フォントの埋め込み」が適切に行われていない、あるいはライセンス制限によって埋め込み自体が拒絶されているためだ。
GUIによる手動チェックなど、何十、何百とファイルを扱うシステム管理者や情シス部門にとってナンセンスである。今回は、PowerPoint VBAの深層に踏り込み、プレゼンテーション内のすべての埋め込みフォントのライセンス状態や埋め込み可否をプログラムレベルで完全スキャンし、リスクを自動排除する「プロ仕様の品質保証（QA）エンジン」を解説する。
—
1. PowerPointフォント管理の闇：なぜオブジェクトモデルだけでは不十分なのか
一般的に、VBAでフォントを操作する場合、`Presentation.Fonts` コレクションを参照する。しかし、ここには重大な設計上の罠がある。
`Presentation.Fonts` は「プレゼンテーション内で使用されているフォントの一覧」を返すに過ぎない。つまり、「そのフォントがシステムにインストールされているか」「ファイル内に埋め込まれているか」「さらに、そのフォントが第三者への配布（埋め込み）を許可しているライセンスフラグを持っているか」の厳密な状態までは、標準のオブジェクトプロパティだけでは完全にハンドリングできない領域が存在する。
特に、Officeのバージョン（Office 2013以降から導入された「編集用のみ埋め込み」「すべての文字を埋め込み」の区別など）や、OpenTypeフォント（OTF）のType 1/CFFアウトラインの差異によって、サイレントに埋め込みが失敗・制限されるケースが後を絶たない。
これをコードで完全制御するためには、プレゼンテーションの保存状態、フォントの埋め込みプロパティ（`EmbedTrueTypeFonts`）、そして必要に応じてWindows APIやレジストリ、ファイルストリーム解析の知見を総動員する必要がある。
—
2. 実装：埋め込みフォント自動スキャン＆リスク排除エンジン
以下のVBAコードは、アクティブなプレゼンテーション内のフォント使用状況を走査し、埋め込み設定の有無、および安全な配布が可能かを判定、さらにリスクがある場合は自動で警告・修正を試みるプロフェッショナル向けのマクロである。
Option Explicit
‘ —————————————————————-
‘ módulo: ModFontQualityAssurance
‘ 概要: プレゼンテーション内のフォント埋め込み・ライセンス状態スキャン機構
‘ —————————————————————-
Public Type FontAuditResult
FontName As String
IsUsed As Boolean
IsEmbedded As Boolean
RiskLevel As String ‘ “SAFE”, “WARNING”, “CRITICAL”
Message As String
End Type
Sub ExecuteFontQualityAssurance()
Dim targetPres As Presentation
Set targetPres = ActivePresentation
Dim auditResults() As FontAuditResult
Dim reportText As String
Dim criticalCount As Long
on Error GoTo ErrorHandler
‘ 1. プレゼンテーションのフォント埋め込み設定の強制有効化
‘ ※すべての文字を埋め込む設定 (EmbedTrueTypeFonts = msoTrue)
targetPres.EmbedTrueTypeFonts = msoTrue
‘ 2. 使用フォントの走査と監査実行
criticalCount = AuditPresentationFonts(targetPres, auditResults)
‘ 3. 監査結果に基づくレポート生成とアクション
reportText = GenerateAuditReport(targetPres.Name, auditResults, criticalCount)
‘ 4. 結果の出力（イミディエイトウィンドウおよびメッセージボックス）
Debug.Print reportText
If criticalCount > 0 Then
MsgBox “【警告】外部配布リスクのあるフォントが検出されました。” & vbCrLf & _
“詳細はイミディエイトウィンドウを確認してください。”, vbCritical, “フォントQAエンジン”
Else
MsgBox “【合格】すべてのフォントは安全に埋め込まれています。”, vbInformation, “フォントQAエンジン”
End If
CleanUp:
‘ オブジェクトの明示的解放（メモリリーク防止）
Set targetPres = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
Resume CleanUp
End Sub
‘ —————————————————————-
‘ フォント監査コアロジック
‘ —————————————————————-
Private Function AuditPresentationFonts(pres As Presentation, ByRef results() As FontAuditResult) As Long
Dim fItem As Font
Dim fontCount As Long
Dim i As Long, j As Long
Dim sld As Slide
Dim shp As Shape
Dim criticalCnt As Long
criticalCnt = 0
‘ プレゼンテーション内で定義されているフォントコレクションを取得
On Error Resume Next
fontCount = pres.Fonts.Count
On Error GoTo 0
If fontCount = 0 Then
AuditPresentationFonts = 0
Exit Function
End If
ReDim results(1 To fontCount)
i = 1
For Each fItem In pres.Fonts
results(i).FontName = fItem.Name
results(i).IsUsed = True
‘ 簡易的なライセンス・埋め込み可否判定のシミュレーション
‘ ※実務ではここでWindowsのFontファイル（C:\Windows\Fonts等）の
‘ OS/2テーブル（fsType）をAPI等で解析し、埋め込みフラグを確認する
Dim risk As String
Dim msg As String
Call EvaluateFontEmbeddingRights(fItem.Name, risk, msg)
results(i).RiskLevel = risk
results(i).Message = msg
If risk = “CRITICAL” Then
criticalCnt = criticalCnt + 1
End If
i = i + 1
Next fItem
AuditPresentationFonts = criticalCnt
End Function
‘ —————————————————————-
‘ フォントの権利・埋め込み可否の評価ロジック
‘ —————————————————————-
Private Sub EvaluateFontEmbeddingRights(fontName As String, ByRef riskLevel As String, ByRef message As String)
‘ 標準フォントのホワイトリスト判定（例）
Select Case LCase(fontName)
Case “メイリオ”, “meiryo”, “lr osvb”, “游ゴシック”, “游明朝”, “arial”, “calibri”, “segoe ui”
riskLevel = “SAFE”
message = “標準的またはシステムインストール済みフォントです。”
Case Else
‘ 商用フォントや特殊フォントの場合、埋め込み制限（No Embedding等）の可能性があるため警告
‘ ※OS/2テーブルの fsType 判定の代替として、カスタム判定ロジックをここに挿入
riskLevel = “WARNING”
message = “カスタムフォントです。相手先PCに存在しない場合、埋め込みが必要です。”
‘ ※もし厳格に「配布不可（Restricted License）」なフォントを検知した場合は “CRITICAL” に昇格させる
‘ 例: 特定の有料DTPフォント等
End Select
End Sub
‘ —————————————————————-
‘ レポート生成
‘ —————————————————————-
Private Function GenerateAuditReport(presName As String, results() As FontAuditResult, criticalCnt As Long) As String
Dim report As String
Dim i As Long
report = “==========================================” & vbCrLf
report = report & ” PowerPoint フォント品質監査レポート” & vbCrLf
report = report & ” 対象ファイル: ” & presName & vbCrLf
report = report & ” 検出クリティカル数: ” & criticalCnt & vbCrLf
report = report & “==========================================” & vbCrLf
On Error Resume Next
For i = LBound(results) To UBound(results)
report = report & “[” & results(i).RiskLevel & “] ” & results(i).FontName & vbCrLf
report = report & ” -> ” & results(i).Message & vbCrLf
Next i
On Error GoTo 0
report = report & “==========================================”
GenerateAuditReport = report
End Function
—
3. チーフアーキテクトが教える：実運用における極限の最適化と注意点
上記のコードは単なる一例に過ぎない。エンタープライズ環境や大規模なCI/CDパイプライン（PowerPoint自動生成サーバーなど）に組み込む場合、さらに以下のアーキテクチャ上の配慮が必要となる。
A. オブジェクトのライフサイクルとメモリリークの断ち切り
VBAにおける `Presentation`, `Slide`, `Shape` などのCOMオブジェクトは、参照カウント方式で管理されている。特に `For Each` ループ内でオブジェクト変数を暗黙的に生成・破棄させると、背後でCOMの参照が残留し、Excel/PowerPointプロセスがメモリ上にゾンビとして残り続ける（プロセス肥大化・フリーズの原因）。
必ずループ変数を明示的に定義し、処理の終了時には `Set obj = Nothing` を徹底すること。
B. OS/2テーブル（fsType）のバイナリ解析による完全ライセンス判定
Windowsのフォントファイル（`.ttf` / `.otf`）には、TrueType仕様に基づき `OS/2` テーブルというヘッダ領域が存在する。ここに含まれる `fsType` フィールドこそが、そのフォントのライセンス状態（埋め込み可能か、プレビュー/印刷のみか、完全禁止か）を決定する絶対的なフラグである。
真のプロフェッショナルシステムを目指すのであれば、VBAからWindows API（`GetFontData` 等）を呼び出すか、外部の軽量なC#/VB.NET製COMコンポーネント（DLL）を呼び出してこのバイナリレベルのフラグを検証するラッパーを構築すべきだ。
C. 保存処理（SaveAs）時のサイレント失敗の回避
`targetPres.EmbedTrueTypeFonts = msoTrue` を設定して保存を行っても、フォント側のライセンスが「埋め込み禁止（Restricted License）」である場合、PowerPointはエラーダイアログを出さずに「勝手に埋め込みをスキップして保存」することがある。
これが「サーバーで自動変換したPDFやPPTXを配布したら、なぜか文字化けしていた」という最悪の現象の正体である。
そのため、プログラム側で事前に埋め込み可否を判定し、リスクのあるフォントが含まれている場合は保存を中断するか、安全なフォント（メイリオや游ゴシック等）へ動的に置換するロジックを必ずセットで実装しなければならない。
—
結言
業務自動化における真の価値は、「作業の効率化」ではなく「リスクの完全排除（ゼロ・ディフェクト）」にある。
今回解説したフォント事前スキャン・チェック機構をあなたのPowerPoint自動化基盤に組み込むことで、属人化しがちなデザイン崩壊のリスクをシステム的にハックし、常に完璧な品質のプレゼンテーションを外部へ送り出すことが可能になる。
妥協なきアーキテクチャで、VBAの限界を突破せよ。
