【PowerPoint VBA】極上のPDFを出力せよ：`ExportAsFixedFormat`を掌握するアクセシビリティの極意
こんにちは。自動化の深淵へようこそ。
普段、何気なく「名前を付けて保存」からPDFを出力していませんか？
ビジネスの現場において、PDFは単なる「紙の代わり」ではありません。特に昨今では、アクセシビリティ（誰にとっても読みやすいこと）や、長期保管のための規格（PDF/A）が、企業のデジタルガバナンスにおける「必須要件」になりつつあります。
今回は、PowerPoint VBAの最強メソッドの一つ、`ExportAsFixedFormat`を使いこなし、「タグ付きPDF」や「PDF/A」といった高品質なドキュメントを一瞬で生成する技術を伝授します。
マクロの記録では到達できない、プロフェッショナルな領域へ踏み込みましょう。
—
1. なぜ「ただの保存」ではいけないのか？
PowerPointの標準的なPDF保存機能は、実は「見た目」を優先するあまり、文書の構造情報（見出しや読み上げ順序など）を捨ててしまうことがあります。
- タグ付きPDF: スクリーンリーダーが文書構造を理解できるように、メタデータが付与されたPDF。アクセシビリティの生命線です。
- PDF/A: フォントの埋め込みや色空間を制限し、10年後、20年後も同じ見た目で開けることを保証する長期保存規格。
これらをVBAで制御することで、手作業のミスをゼロにし、組織の文書品質を統一できます。
—
2. 核心を突くコード：ExportAsFixedFormat
このメソッドは、引数（パラメータ）を理解することがすべてです。まずは、最も汎用的で高品質なエクスポートを行うコードをご覧ください。
Sub ExportHighQualityPDF()
‘ プレゼンテーションオブジェクトを定義
Dim pres As Presentation
Set pres = ActivePresentation
‘ 保存先のパス（環境に合わせて変更してください）
Dim outputPath As String
outputPath = Environ(“USERPROFILE”) & “\Desktop\Accessibility_Doc.pdf”
‘ エクスポート実行
‘ ppFixedFormatTypePDF: PDF形式を指定
‘ ppPrintOutputSlides: スライドをそのまま出力
‘ ppPrintHandoutBestFit: レイアウトの最適化
pres.ExportAsFixedFormat _
PathName:=outputPath, _
FixedFormatType:=ppFixedFormatTypePDF, _
Intent:=ppPrintOutputIntentPrint, _
FrameSlides:=msoTrue, _
IncludeDocProperties:=msoTrue, _
KeepIRMSettings:=msoTrue, _
DocStructureTags:=msoTrue, _ ‘ ★ここが重要：タグ付きPDFにするための鍵
BitmapMissingFonts:=msoFalse, _
UseISO19005_1:=msoTrue ‘ ★ここが重要：PDF/A準拠にするための鍵
MsgBox “アクセシビリティ対応PDFの出力が完了しました！”, vbInformation
End Sub
—
3. 知らなきゃ損する「引数」の正体
コードの中で特に重要な二つの引数を解説します。ここが「ただのPDF」と「プロ仕様のPDF」の分岐点です。
① `DocStructureTags:=msoTrue`
これを`msoTrue`にすると、PowerPointは「構造タグ」をPDFに埋め込みます。これにより、視覚障害を持つ方がスクリーンリーダーで閲覧する際に、スライドの論理的な読み上げ順序が正しく保持されます。現代のビジネス文書における最低限のマナーと言っても過言ではありません。
② `UseISO19005_1:=msoTrue`
これがPDF/A（ISO 19005-1）への準拠フラグです。これを有効にすると、PDF作成時に「フォントがすべて埋め込まれているか」や「リンク先が正当か」などのチェックが行われます。ただし、フォントのライセンスによってはエラーになることもあるため、必ず環境内でテストしてください。
—
4. 陥りやすい罠と対策
罠：ファイルが使用中です
`ExportAsFixedFormat`は、出力先のファイルが既に開かれているとエラーを吐きます。
対策: 保存前にファイルを閉じる処理を入れるか、タイムスタンプをファイル名に含めて重複を避けるのがエンジニアの流儀です。
‘ サンプル：現在時刻を付与して重複を回避
Dim fileName As String
fileName = “Report_” & Format(Now, “yyyymmdd_hhnnss”) & “.pdf”
罠：エラーハンドリングがない
自動化において、エラーを無視するのは禁物です。`On Error GoTo` を活用し、PDF変換に失敗したときに通知が来るようにしましょう。
—
5. まとめ：ここをクリアすれば、もう怖くない
今日学んだことを整理しましょう。
1. `ExportAsFixedFormat`はPDF生成の心臓部。
2. `DocStructureTags`でアクセシビリティ（タグ付け）を確保する。
3. `UseISO19005_1`で長期保存（PDF/A）に対応させる。
この3点を押さえるだけで、あなたの作る資料は「単なるスライド」から「誰にでも届く構造化されたデジタル資産」へと昇華されます。
VBAは、単なる事務作業の効率化ツールではありません。あなたの作った仕組みが、組織全体の品質を底上げする。そんなエンジニアを目指して、ぜひこのコードをあなたの武器に加えてください。
何か分からないことがあれば、いつでも聞いてくださいね。あなたの自動化の旅を、これからも応援しています！
