PowerPoint VBAを掌握する極限の知見：マクロ完全消滅 `.pptx` 自動生成アーキテクチャ
業務自動化の現場において、VBAは諸刃の剣である。
とりわけPowerPoint環境におけるマクロ有効プレゼンテーション（`.pptm`）は、高度な動的スライド生成や外部システム連携において圧倒的な力を発揮する一方で、社外秘の資料を他部署やクライアントへ納品・展開する際には「マクロ混入によるセキュリティリスク」という深刻な負債を抱えることになる。
手動による「名前を付けて保存」からの形式変更は、人的ミスの温床だ。
「うっかり`.pptm`のまま送ってしまった」「VBAプロジェクトの残骸が内部に残存していた」——このようなインシデントを防ぐため、我々シニアエンジニアは、「コード自身の手で自らのVBAプロジェクトを完全に剥ぎ取り、純粋な`.pptx`として安全圏へ射出する」完全自動化メカニズムを構築しなければならない。
今回は、Office VBAのオブジェクトモデルの深層と、実行時メモリのライフサイクルを完全に掌握した上で実装する、極限まで洗練されたマクロ除去・別名保存アーキテクチャを提示する。
—
1. アーキテクチャの核心：VBAプロジェクトは「後から消せない」という構造的罠
素朴なプログラマーはこう考える。
「現在開いている`.pptm`をコピーし、VBAコンポーネントをループで `Remove` してから `.pptx` で保存すればよいのではないか？」
ここでPowerPoint VBAの致命的な制約に直面する。
「実行中のコード自体が属するVBAプロジェクトを、実行中にコードから削除・改変することはできない」。これはCOM（Component Object Model）のセキュリティおよびメモリ保護の観点から鉄則である。
さらに、`ActivePresentation.SaveAs` メソッドを用いてファイル形式を `ppSaveAsOpenXMLPresentation`（`.pptx`）に指定して保存した場合、VBAプロジェクト（.vbaプロジェクトストリーム）がそのまま新しいファイルに持ち越されるか、あるいはOfficeのバージョンによっては「マクロを含めることができません」という致命的なオートメーションエラー（実行時エラー）を誘発する。
唯一にして最強の解：別プロセスへの委譲か、デザイン時操作の徹底
真に安全かつクリーンな`.pptx`を生成するためには、以下のいずれかの設計を採用する必要がある。
1. 外部の親VBA（あるいはVBScript/COMオートメーション）から対象ファイルを制御し、コードを除去して保存する
2. 対象ファイル自身に「自分をコピーしてマクロを消すための特攻モジュール」を仕込み、一時起動させた後に自身を葬る
今回は、実運用で最も堅牢かつ保守性が高い、「実行中のプレゼンテーションを指定したパスへ `.pptx` としてコピー保存し、COMオブジェクトを介してVBAプロジェクトの全コンポーネントを完全破壊・消去する」実戦的アプローチを解説する。
—
2. 実装コード：完全なる `.pptx` 自動生成エンジン
以下のコードを、マクロ有効プレゼンテーション（`.pptm`）の標準モジュールに実装せよ。
エラーハンドリング、オブジェクトの明示的解放、そしてファイルシステムの整合性チェックまで、プロフェッショナル・グレードの堅牢性を担保している。
Option Explicit
‘ ==============================================================================
‘ 処理名: ExportAsCleanPptx
‘ 概要: 実行中の.pptmからVBAコードを完全に排除し、安全な.pptxとして別名保存する
‘ 著者: チーフアーキテクト
‘ ==============================================================================
Public Sub ExportAsCleanPptx()
Dim srcPath As String
Dim destPath As String
Dim fso As Object
Dim targetPres As Presentation
Dim savedPres As Presentation
Dim vbComp As Object
Dim isSaved As Boolean
‘ 1. 現在のファイルの保存状態とパスの検証
If ActivePresentation.Path = “” Then
MsgBox “このプレゼンテーションはまだ保存されていません。” & vbCrLf & _
“一度保存してから実行してください。”, vbCritical, “致命的エラー”
Exit Sub
End If
srcPath = ActivePresentation.FullName
‘ 拡張子が .pptm または .ppt であることを強制
If LCase(Right(srcPath, 5)) <> “.pptm” And LCase(Right(srcPath, 4)) <> “.ppt” Then
MsgBox “このマクロはマクロ有効形式（.pptm / .ppt）でのみ実行可能です。”, vbExclamation, “処理中断”
Exit Sub
End If
‘ 2. 出力先パスの動的生成（同一階層に同名の .pptx を作成）
destPath = Left(srcPath, InStrRev(srcPath, “.”) – 1) & “.pptx”
‘ 3. ユーザーへの確認と既存上書きハンドリング
Set fso = CreateObject(“Scripting.FileSystemObject”)
If fso.FileExists(destPath) Then
If MsgBox(“同名のファイルが存在します:” & vbCrLf & destPath & vbCrLf & _
“上書きしますか？”, vbQuestion + vbYesNo, “確認”) = vbNo Then
GoTo Cleanup
End If
‘ 既存ファイルへのアクセス権エラーを防ぐため事前に削除試行
On Error Resume Next
fso.DeleteFile destPath, True
If Err.Number <> 0 Then
MsgBox “出力先ファイルが他のプロセスによってロックされています。” & vbCrLf & _
“ファイルを閉じてから再実行してください。”, vbCritical, “ロックエラー”
GoTo Cleanup
End If
On Error GoTo 0
End If
‘ 4. 現在のドキュメントを明示的に一度上書き保存（整合性確保）
ActivePresentation.Save
‘ 5. ファイルの複製（OSレベルでのバイナリコピー）
‘ ※開いているファイルを直接操作するのではなく、コピーに対してVBA削除を行う
fso.CopyFile srcPath, destPath, True
‘ 6. 複製した .pptx を非表示（またはバックグラウンド）で開く
‘ ※PowerPointのウィンドウチラツキを防ぐため Visible = msoFalse を活用
Set targetPres = Presentations.Open(FileName:=destPath, ReadOnly:=msoFalse, WithWindow:=msoFalse)
‘ 7. 【核心】VBProjectオブジェクトを走査し、全モジュール・フォームを物理削除
‘ ※注意: この操作にはセキュリティセンターの「VBA プロジェクトへのアクセスを信頼する」が必要
On Error GoTo VbaError
If targetPres.VBProject.Protection = 1 Then
Err.Raise 9999, “VBASecurity”, “対象ファイルのVBAプロジェクトが保護されています。パスワードを解除してください。”
End If
For Each vbComp In targetPres.VBProject.VBComponents
‘ Documentモジュール（ThisPresentationやスライド）は削除できないため、コードのみを空にする
‘ 標準モジュール、クラスモジュール、フォームは丸ごと削除する
Select Case vbComp.Type
Case 1, 2, 3 ‘ vbext_ct_StdModule, vbext_ct_ClassModule, vbext_ct_MSForm
targetPres.VBProject.VBComponents.Remove vbComp
Case 100 ‘ vbext_ct_Document
If vbComp.CodeModule.CountOfLines > 0 Then
vbComp.CodeModule.DeleteLines 1, vbComp.CodeModule.CountOfLines
End If
End Select
Next vbComp
On Error GoTo 0
‘ 8. 純粋な .pptx として明示的に再保存
targetPres.Save
targetPres.Close
Set targetPres = Nothing
isSaved = True
‘ 9. 完了通知
MsgBox “マクロの完全除去に成功しました。” & vbCrLf & _
“出力先: ” & destPath, vbInformation, “処理完了”
Cleanup:
‘ 10. メモリの厳密な解放（COMリークの防止）
Set fso = Nothing
If Not targetPres Is Nothing Then
On Error Resume Next
targetPres.Close
Set targetPres = Nothing
On Error GoTo 0
End If
Exit Sub
VbaError:
Dim errDesc As String
errDesc = Err.Description
On Error Resume Next
If Not targetPres Is Nothing Then targetPres.Close: Set targetPres = Nothing
On Error GoTo 0
MsgBox “VBAプロジェクトの操作中にエラーが発生しました。” & vbCrLf & _
“詳細: ” & errDesc & vbCrLf & vbCrLf & _
“【対策】Excel/PowerPointの「ファイル」>「オプション」>「トラストセンター」>” & vbCrLf & _
“「マクロの設定」にある「VBA プロジェクトへのアクセスを信頼する」にチェックが入っているか確認してください。”, _
vbCritical, “セキュリティ例外”
Resume Cleanup
End Sub
—
3. シニアエンジニアが押さえるべき「3つの極限知見」
上記のコードを実運用環境へ投入するにあたり、アーキテクトとして知っておくべき舞台裏の挙動を解説する。
① トラストセンターの壁：「VBAプロジェクトへのアクセス」のプログラム制御
コード内の `targetPres.VBProject.VBComponents.Remove` は、強力なCOMリフレクションを使用している。Officeのデフォルトセキュリティでは、外部プログラムからのVBAプロジェクトへのアクセスは厳しく制限されている。
- 対策: グループポリシー（GPO）または各クライアントのトラストセンターにて「VBA プロジェクトへのアクセスを信頼する（Access to Visual Basic Project safely）」を有効化する必要がある。全社展開するシステムであれば、レジストリ監視またはアドイン（COM Add-in）としての実装を検討すべき領域である。
② COMオブジェクトのライフサイクルとメモリリークの根絶
VBAにおける `CreateObject` や `Presentations.Open` は、背後で重厚長大なCOMサーバー（PowerPointプロセスやFileSystemObject）を立ち上げる。
ここで `Set fso = Nothing` や `Set targetPres = Nothing` を怠ると、VBAのランタイムが終了するまでメモリ上にゾンビプロセスや参照カウンタの残骸が居座り続け、ファイルロックやメモリリークを引き起こす。
上記のコードでは、`Cleanup` ラベルへ確実にジャンプするジャンプ構造（Error Handling Pattern）を採用し、例外発生時であっても確実にCOM参照を破棄する設計としている。
③ Documentモジュール（`vbext_ct_Document`）の特殊性
VBAのコンポーネントには、「標準モジュール」「クラスモジュール」「ユーザーフォーム」の他に、各シートや `ThisDocument` / `ThisPresentation` といった Documentモジュール が存在する。
これらはPowerPointのドキュメント構造と一蓮托生であるため、`Remove` メソッドでオブジェクト自体を削除することはできない（エラーとなる）。
したがって、コード上では `Case 100`（Documentモジュール）を検出し、`DeleteLines` によってコード行を1行目から最終行まで完全に物理消去するというアプローチをとっている。これにより、目に見えないコードの断片すら残さない完全性を実現している。
—
総括
「マクロを剥ぎ取って安全な`.pptx`を作る」という一見シンプルな要件であっても、Office VBAの内部構造、COMのメモリ管理、そしてセキュリティポリシーの壁を正しく理解していなければ、実用に耐えうるシステムは構築できない。
単なるコードのコピペにとどまらず、背後にあるオブジェクトのライフサイクルとセキュリティモデルを掌握すること。それこそが、真に信頼される業務自動化エンジニアの条件である。
