こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押すだけの自動化から一歩抜け出し、「真に実用的な業務システム」を自分の手で組み上げたいと思っているあなたへ。
今回は、現場でめちゃくちゃ需要が高い「社外配布用PDF自動フィルタリングシステム」の作り方を解説します。
「社内用のマスター資料には、ノウハウや未公開の数字がぎっしり。でも、クライアントに渡すときは、特定の『非公開』スライドだけをサクッと除外してPDFにしたい……！」
そんなとき、毎回手作業でスライドを非表示にして、PDFを書き出して、元に戻して……なんてやっていたら、ミスも起きるし時間も溶けますよね。これをVBAで一撃、かつ安全に自動化してみましょう。
ここをクリアすれば、PowerPointのオブジェクトモデルの操り方は完全にあなたのものです。さあ、いってみましょう！
—
1. PowerPoint VBAの心臓部：「オブジェクトモデル」を理解する
PowerPointのVBAをマスターするうえで絶対に外せないのが、「どの階層の、何を操作しているのか」というオブジェクトのツリー構造です。
今回のシステムで主役になるのは、以下の3つの階層です。
Application (PowerPointアプリ全体)
┗ Presentation (開いているプレゼンテーションファイル)
┗ Slide (個々のスライド)
┣ Tags (スライドに隠し持つ付箋のようなデータ)
┗ SlideShowTransition / 状態フラグ (表示・非表示の切り替え)
私たちはVBAを使って、「Presentationの中にあるすべてのSlideを1枚ずつめくり、Tags（付箋）をチェックし、非公開なら一時的に隠して、PDF出力後に何食わぬ顔で元に戻す」という一連のライフサイクルをコントロールします。
—
2. 陥りがちな罠：なぜ「単純なループ」では失敗するのか？
プログラミング初心者がやりがちなミスがこれです。
「スライドを非表示にしながらループを回す」――実はこれ、PowerPoint VBAではご法度です。
スライドの表示状態（`ShowInSlideShow`）をいじると、コレクションのインデックスがズレたり、予期せぬ挙動を引き起こしたりします。プロフェッショナルなエンジニアなら、以下のような「二段階の守り」を実装します。
1. 退避フェーズ: 処理前のスライドの表示状態（あるいは「非公開」かどうかのフラグ）をメモリ上に完璧に記憶しておく。
2. 加工＆出力フェーズ: 条件に合致するスライドだけ一時的に非表示にし、最高品質でPDF出力する。
3. 完全復元フェーズ: エラーが起きようとも、必ず元の状態に戻す（トランザクション的思考）。
この「安全確実な設計思想」をコードに落とし込んでいきましょう。
—
3. 実装コード：社外配布用PDF自動フィルタリングシステム
以下のコードを、PowerPointのVBAエディタ（`Alt + F11` で起動）の標準モジュールに貼り付けてください。
Option Explicit
‘ ==============================================================================
‘ 処理名: ExportFilteredPdfForClient
‘ 概要 : 「非公開」タグがついたスライドを一時的に非表示にしてPDFを出力し、
‘ 出力完了後に元の表示状態を確実に復元するプロフェッショナルマクロ
‘ ==============================================================================
Sub ExportFilteredPdfForClient()
‘ 1. 変数の宣言とオブジェクトのバインド
Dim targetPres As Presentation
Set targetPres = ActivePresentation
Dim sld As Slide
Dim pdfPath As String
Dim hiddenCount As Long
‘ スライドごとの「元の表示状態（True/False）」を記憶するための動的配列
Dim originalStates() As Boolean
Dim totalSlides As Long
totalSlides = targetPres.Slides.Count
ReDim originalStates(1 To totalSlides)
‘ エラーハンドリングの準備（途中でマクロが中断しても復元処理を通すため）
On Error GoTo ErrorHandler
‘ 2. 【退避フェーズ】現在の表示状態をメモリに完全記憶
Dim i As Long
For i = 1 To totalSlides
originalStates(i) = targetPres.Slides(i).SlideShowTransition.Hidden
Next i
‘ 3. 【フィルタリングフェーズ】「非公開」タグを検知して非表示に
hiddenCount = 0
For i = 1 To totalSlides
Set sld = targetPres.Slides(i)
‘ スライドに「Status」という名前のタグがあり、その値が「非公開」か判定
‘ ※Tags.Itemを使うことで、エラーを出さずに安全に存在チェックができます
If sld.Tags(“Status”) = “非公開” Then
‘ すでに非表示でなければ、一時的に非表示化
sld.SlideShowTransition.Hidden = msoTrue
hiddenCount = hiddenCount + 1
End If
Next i
‘ 4. 【出力フェーズ】PDFとして保存
‘ ※保存先は、元のプレゼンテーションと同じフォルダに自動設定
pdfPath = GetPdfSavePath(targetPres)
If pdfPath = “” Then GoTo Cleanup ‘ キャンセルされた場合は出力スキップ
‘ PowerPointの標準機能であるスライドのエクスポート機能を使用
‘ Range.ExportAsFixedFormat を使うことで、非表示スライドを除外したPDFが生成されます
targetPres.ExportAsFixedFormat _
Path:=pdfPath, _
FixedFormatType:=ppFixedFormatTypePDF, _
Intent:=ppFixedFormatIntentPrint, _
SlideShowType:=ppFixedFormatShowAll ‘ 非表示スライドをスキップする設定
MsgBox “社外配布用PDFの出力が完了しました！” & vbCrLf & _
“除外された非公開スライド数: ” & hiddenCount & “枚” & vbCrLf & _
“保存先: ” & pdfPath, vbInformation, “自動化完了”
Cleanup:
‘ 5. 【完全復元フェーズ】（正常終了時）元の表示状態へ戻す
For i = 1 To totalSlides
targetPres.Slides(i).SlideShowTransition.Hidden = originalStates(i)
Next i
Exit Sub
ErrorHandler:
‘ 予期せぬエラーが発生した場合の安全装置
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
‘ エラー時でも必ずスライドの状態を元に戻す（無限に隠れっぱなしになるのを防ぐ）
If Not targetPres Is Nothing Then
For i = 1 To totalSlides
targetPres.Slides(i).SlideShowTransition.Hidden = originalStates(i)
Next i
End If
End Sub
‘ ==============================================================================
‘ 補助関数: 保存先パスを自動生成する（同名で拡張子を.pdfにする）
‘ ==============================================================================
Function GetPdfSavePath(pres As Presentation) As String
Dim fso As Object
Dim dirPath As String, baseName As String
‘ まだ保存されていない新規プレゼンテーションの場合はデスクトップへ
If pres.Path = “” Then
GetPdfSavePath = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”) & “\社外配布資料.pdf”
Exit Function
End If
Set fso = CreateObject(“Scripting.FileSystemObject”)
dirPath = pres.Path
baseName = fso.GetBaseName(pres.Name)
‘ 同一階層に「ファイル名_社外秘.pdf」として出力パスを構築
GetPdfSavePath = dirPath & “\” & baseName & “_社外配布用.pdf”
End Function
—
ジグソーパズルのピースが綺麗にかみ合うように、このコードにはプロならではの工夫が詰まっています。
- `Slide.Tags` の活用: スライドに目に見えない「付箋（タグ）」を貼り付ける機能です。今回は `Status` というキーに `非公開` という文字が入っているかを判定しています（※VBAエディタから手動、または別マクロで事前に付与しておきます）。
- エラーハンドリング（`On Error GoTo ErrorHandler`）: 万が一PDFの書き出し中にディスク容量が足りなくなったり、ファイルが競合してエラーが起きたとしても、「スライドが隠れたまま元に戻らない」という最悪の事故を防ぐため、必ず復元処理を通す構造にしています。
—
4. 使い方と現場での運用ポイント
1. タグの付け方:
PowerPoint側で、非公開にしたいスライドを選択した状態で、イミディエイトウィンドウなどで以下を実行してタグを仕込みます（※専用のUIマクロをさらに作ると完璧です）。
ActiveWindow.View.Slide.Tags.Add “Status”, “非公開”
2. マクロの実行:
マスター版のパワポを開き、作成した `ExportFilteredPdfForClient` を実行するだけ。
瞬時に「非公開」スライドだけが除外されたキレイなPDFが、元のファイルと同じ場所に生成されます。
—
まとめ：ここをクリアすれば、もう初心者ではない！
今回紹介したコードは、単なる「コードのコピペ」を超えて、実務で絶対に求められる「データの安全性」「エラーへの耐性」「ユーザーへの親切なフィードバック」を網羅しています。
「状態を覚えて、加工して、出力して、元に戻す」。
この一連の流れ（ライフサイクル管理）を自分のものにできたあなたは、もうマクロの記録から卒業した立派な自動化エンジニアです。
日々の退屈な手作業をコードで駆逐し、よりクリエイティブな仕事に時間を使いましょう。それでは、また次の極限の知見でお会いしましょう！
