【プロフェッショナル】Presentation.SaveAsでPDF出力する際、特定の「非公開」タグ（Slide.Tags）が設定されたスライドを一時的に非表示にし、出力後に自動で元に戻す「社外配布用PDF自動フィルタリングシステム」
VBAによるOfficeオートメーションの現場において、最も恐れられる事故の筆頭は「情報漏洩」だ。
社内検討用の生々しい数値、経営層向けの機密情報、あるいは次期製品のロードマップなど、マスタープレゼンテーションには「社外不出」のデータが混在している。これを手動でスライドの削除や非表示設定を行ってPDF化し、戻し忘れてそのまま社外へ送信してしまう……このヒューマンエラーは、組織にとって致命傷となり得る。
本稿では、PowerPointのオブジェクトモデルの挙動、`Slide.Tags`によるメタデータ管理、そして不意の強制終了すらをも想定した堅牢なエラーハンドリングを組み合わせ、「非公開タグを検知して自動でPDFフィルタリングを行い、確実に元の状態へ復元する」プロフェッショナル向け自動化システムの全貌を解説する。
—
1. パフォーマンスとオブジェクトモデルの極限の知見
実務レベルのコードに入る前に、PowerPoint VBAが抱える固有の構造的特性を理解しておかねばならない。
`Slide.Tags` との正しい付き合い方
PowerPointの `Tags` コレクションは、各スライド（およびプレゼンテーション全体）に Key-Value のメタデータを付与できる極めて強力な機能である。
セル単位で管理するExcelのコメントやカスタムプロパティとは異なり、スライドオブジェクトに直接内包されるため、ファイル構造を汚さずに機密フラグを持たせることができる。しかし、文字列検索やループ処理において、無駄なオブジェクト生成はメモリリークやパフォーマンス低下を招く。
画面描画の抑制（ScreenUpdatingの罠）
Excel VBA（`Application.ScreenUpdating = false`）とは異なり、PowerPointの `Application` オブジェクトには直接画面描画を完全に凍結するプロパティが存在しない。
スライドの表示状態（`Slide.ShowInSlideShow` や ウィンドウの切り替え）を操作すると、UIスレッドが強制的に反応し、数千枚規模のスライドを持つ巨大なマスターファイルでは描画のチラつきや実行速度の低下を引き起こす。
これを最小限に抑えるためには、不要なビューの切り替えを行わず、データモデル側（オブジェクトのプロパティ）を直接操作し、最後に一度だけ同期させるアーキテクチャが必須となる。
—
2. 実装コード：社外配布用PDF自動フィルタリングシステム
以下のコードは、単に動くだけのスクリプトではない。
- 例外安全（Exception Safety）: 途中でエラーが発生しても、確実にスライドの表示状態が元通りに復元される構造。
- 状態のシリアライズ: 処理前のスライドの表示状態（`SlideShowTransition.Hidden`）をメモリ上に正確に退避。
- 厳密なオブジェクト参照管理: 参照の解放を意識した記述。
標準モジュールに以下のコードを実装せよ。
Option Explicit
‘ ==============================================================================
‘ módulo名: ｍ_SecurePDFExporter
‘ 概要: 「非公開」タグを検知して一時的にスライドを非表示にし、安全にPDF出力を行う
‘ ==============================================================================
Public Sub ExportFilteredPDF()
Dim targetPres As Presentation
Dim sld As Slide
Dim originalStates() As Boolean
Dim totalSlides As Long
Dim i As Long
Dim outputFilePath As String
Dim fso As Object
‘ アクティブなプレゼンテーションを対象とする
Set targetPres = ActivePresentation
totalSlides = targetPres.Slides.Count
If totalSlides = 0 Then
MsgBox “スライドが存在しません。”, vbExclamation, “システムエラー”
Exit Sub
End If
‘ 出力先パスの動的生成（デスクトップに元のファイル名_Public.pdfを出力）
Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim baseName As String
baseName = fso.GetBaseName(targetPres.Name)
If targetPres.Path = “” Then
‘ 未保存の新規ファイルの場合はデスクトップを強制指定
outputFilePath = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”) & “\” & baseName & “_Public.pdf”
Else
outputFilePath = targetPres.Path & “\” & baseName & “_Public.pdf”
End If
‘ 状態退避用配列の動的確保（1始まり）
ReDim originalStates(1 To totalSlides)
‘ ==========================================================================
‘ Phase 1: 状態のシリアライズ（現在の表示状態を退避）とフィルタリング実行
‘ ==========================================================================
On Error GoTo ErrorHandler ‘ 予期せぬエラー時も必ず復元処理へジャンプさせる
Application.Cursor = ppCursorWait
For i = 1 To totalSlides
Set sld = targetPres.Slides(i)
‘ 現在の状態を保存
originalStates(i) = sld.SlideShowTransition.Hidden
‘ 「非公開」タグ（大文字小文字を区別せず、あるいは厳密に）の判定
‘ 例: Tag名 “SecurityLevel” の値が “Confidential” または “Hidden” の場合
Dim tagValue As String
On Error Resume Next
tagValue = sld.Tags.Item(“PublishStatus”)
On Error GoTo ErrorHandler
If LCase(tagValue) = “confidential” Or LCase(tagValue) = “hidden” Then
‘ スライドを非表示に設定 (msoTrue = 非表示)
sld.SlideShowTransition.Hidden = msoTrue
End If
Next i
‘ ==========================================================================
: Phase 2: PDF出力の実行
‘ ==========================================================================
‘ SaveAsによるPDF出力
‘ ppSaveAsPDF = 32
targetPres.SaveAs _
FileName:=outputFilePath, _
FileFormat:=ppSaveAsPDF, _
EmbedTrueTypeFonts:=msoTrue
Application.Cursor = ppCursorDefault
‘ ==========================================================================
‘ Phase 3: 状態のリストア（正常終了時）
‘ ==========================================================================
For i = 1 To totalSlides
targetPres.Slides(i).SlideShowTransition.Hidden = originalStates(i)
5 Next i
MsgBox “社外配布用PDFの生成が完了しました。” & vbCrLf & “保存先: ” & outputFilePath, vbInformation, “処理完了”
Exit Sub
ErrorHandler:
‘ ==========================================================================
‘ Exception Safety: 異常終了時の確実な状態リストア
‘ ==========================================================================
Application.Cursor = ppCursorDefault
‘ エラー発生時でも、配列にデータが格納されている範囲で復元を試みる
If Not targetPres Is Nothing Then
On Error Resume Next
For i = 1 To totalSlides
targetPres.Slides(i).SlideShowTransition.Hidden = originalStates(i)
Next i
On Error GoTo 0
End If
MsgBox “エラーが発生したため、処理を中断しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
—
3. チーフアーキテクトが解説するコードの急所
このコードが「プロフェッショナル仕様」たる所以を、アーキテクチャの観点から深掘りする。
1. 例外安全性（Exception Safety）の担保
VBAにおける最大の悪習は、エラーハンドラー（`On Error GoTo`）を記述せず、途中でエラーが起きた際にファイルが「非公開スライドが消えた（非表示になった）まま保存・放置される」ことだ。
本コードでは、処理の最初に全スライドの元の状態を `originalStates()` 配列へ完全に退避（シリアライズ）し、`ErrorHandler` ラベル内でも必ず復元ループを回す構造をとっている。これにより、ランタイムエラーやユーザーによる強制中断が発生しても、マスターデータが破損した状態で保存されるリスクを根絶している。
2. タグ設計の柔軟性 (`Slide.Tags`)
スライドの識別にはファイル名やインデックス番号ではなく、`Slide.Tags` を採用している。
運用上、スライドの順序が入れ替わったり、新しいスライドが挿入されたりすることは日常茶飯事である。インデックス依存のハードコーディングは破綻の元だが、メタデータ（Tag）による判定であれば、スライドがどこに移動しようとも「非公開」の意思表示は維持される。
3. オブジェクトの明示的解放とスコープ管理
ローカル変数として宣言した `targetPres` や `sld` はプロシージャ終了時に自動解放されるが、特に `CreateObject` で生成したシェルやファイルシステムオブジェクト（`fso`）は、メモリの肥大化を防ぐために不要になった時点で即座に Nothing 代入を行うか、スコープを最小限に絞るべきだ。
—
4. エンタープライズ環境への展開とシステム間連携
このVBAマクロを単なる「個人の作業効率化ツール」で終わらせてはならない。社内システム管理者やインフラエンジニアであれば、これをさらに上位のシステムへと統合する視点を持つべきだ。
- RPA / Power Automate Desktop (PAD) との連携:
デスクトップ版 Power Automate からこのVBAプロシージャ（`ExportFilteredPDF`）をトリガー実行することで、毎晩深夜のバッチ処理として「最新のマスター資料から自動的に社外秘をマスクしたPDFを生成し、SharePointの特定フォルダへ自動同期する」といった完全自動パイプラインを構築できる。
- ファイル属性の保護:
出力されたPDFに対して、必要に応じて外部のコマンドラインツール（例: `pdftk` や セキュリティ制御API）をShell関数から呼び出してパスワード保護や印刷制限をかける拡張性も、このVBA基盤の上であれば容易にアドオン可能だ。
総括
VBAはレガシーな言語と揶揄されることもあるが、Officeアプリケーションの深部を直接叩き、ミリ秒単位の制御を行える強力なインターフェースであることにかわりはない。
セキュリティと自動化の境界線上で、ヒューマンエラーを技術の力で完全に封じ込めること――それこそが、プロフェッショナルな業務自動化エンジニアに課された使命である。
