VBAの「負の遺産」を断ち切る：PPTMからマクロを完全消去するセキュリティエンジニアリング
こんにちは。現場で泥臭く、しかし誰よりもエレガントに自動化を追求するエンジニアです。
今日は、業務自動化の最前線で多くの人が一度は悩む「セキュリティ」の壁に挑みます。組織のポリシーで「マクロ付きファイル（.pptm）は持ち込み禁止」とされているのに、手元にはマクロ満載のPPTMしかない……。そんな時、皆さんはどうしていますか？ 手作業でコピー＆ペースト？ いいえ、それではオブジェクトのプロパティやメタデータに潜むリスクを完全には排除できません。
今日は、VBAを熟知した者だけが知る、「PPTMからVBAプロジェクトを物理的にパージ（削除）し、クリーンなPPTXとして再保存する」ための極限の手法を伝授します。
—
なぜ「名前を付けて保存」だけでは不十分なのか？
多くの人が「ファイル」→「名前を付けて保存」でPPTX形式を選べばマクロが消えると信じています。しかし、これは半分正解で半分間違いです。
PPTMは、Open XML形式のZIPパッケージです。その中には `vbaProject.bin` というバイナリファイルが含まれています。単純な保存処理では、稀にこのバイナリの残滓がメタデータとして残り、セキュリティスキャンに引っかかるケースがあるのです。
我々が目指すのは、「プログラムの力で、このバイナリ構造そのものを破壊・再構築する」というアプローチです。
—
プログラムの設計図：PPTXクレンジングの核心
PowerPoint VBAのオブジェクトモデルには、残念ながら「VBAプロジェクトを削除する」という直接的なメソッドは存在しません。しかし、「プレゼンテーションの全スライドを新しいプレゼンテーションにインポートし、保存する」という手法を採ることで、VBAプロジェクトを含まないクリーンなパッケージを強制的に生成できます。
実装コード：CleanPresentation.bas
以下のコードを、作業用の別ファイル（マクロ付きの空ファイルなど）に記述して実行してください。
Sub PurgeVbaProjectAndSaveAsPptx()
Dim sourcePres As Presentation
Dim targetPres As Presentation
Dim sourcePath As String
Dim targetPath As String
‘ 1. 対象ファイルのパス（適宜書き換えてください）
sourcePath = “C:\Temp\Sensitive_Data.pptm”
targetPath = “C:\Temp\Clean_Data.pptx”
‘ 2. ソースファイルを非表示で開く（バックグラウンド処理の基本）
Set sourcePres = Presentations.Open(sourcePath, WithWindow:=msoFalse)
‘ 3. 空のプレゼンテーションを生成（これがクリーンな入れ物になります）
Set targetPres = Presentations.Add(WithWindow:=msoFalse)
‘ 4. スライドを一つずつインポート（VBAプロジェクトはコピーされません）
‘ ※デザインテンプレートやスライドマスターも引き継ぐための工夫
Dim i As Long
For i = 1 To sourcePres.Slides.Count
sourcePres.Slides(i).Copy
targetPres.Slides.Paste
Next i
‘ 5. PPTX形式で保存（ここが重要：ppSaveAsOpenXMLPresentationを指定）
targetPres.SaveAs targetPath, ppSaveAsOpenXMLPresentation
‘ 6. 後始末（メモリリークを防ぐための鉄則）
targetPres.Close
sourcePres.Close
MsgBox “クレンジング完了！安全なPPTXが保存されました。”, vbInformation
End Sub
—
知っておくべき「落とし穴」とパフォーマンスの極意
このコードは強力ですが、現場で使う際には以下の点に注意してください。
1. スライドマスターの継承: 上記のコードはスライド単位のコピーです。もしスライドマスターが複雑な場合、マスターデザインが正しく反映されないことがあります。その場合は `targetPres.SlideMaster` に対して `ApplyTemplate` メソッドを用いるなどの工夫が必要です。
2. イベントハンドラの消滅: 当然ですが、PPTM内に記述されていた `SlideShowBegin` などのイベントハンドラは、この処理を通すと完全に消滅します。動作しなくなるのではなく「存在しなくなる」点に注意してください。
3. ActiveXコントロールの扱い: フォームコントロールやActiveXコントロールはコードと密接に関連しているため、パージ後に配置が崩れる可能性があります。クレンジング後は、必ず一度目視でレイアウト確認を行ってください。
—
最後に：エンジニアとしての一歩先へ
「マクロを消す」という行為は、一見すると破壊的な行為に思えるかもしれません。しかし、これは「情報を守るために、器をリセットする」という、極めてクリエイティブで守備的なエンジニアリングです。
VBAは、単に自動化するだけの道具ではありません。ファイルの構造を理解し、そのライフサイクルを支配する――これこそが、VBAを掌握するということです。
ここをクリアしたあなたは、もう「マクロの記録」に頼る初心者ではありません。次は、このロジックを応用して、フォルダ内の全PPTMを一括変換するバッチツールに拡張してみてください。
あなたの自動化ライフが、より安全で、より知的なものになることを願っています。何か行き詰まったら、いつでもまた聞きに来てくださいね。
