【PowerPoint VBA】レガシー資産の「時限爆弾」を解除せよ：ActiveX・アドイン互換性リカバリ・アーキテクチャ
現場で十数年使い回されている `.pptm` を開こうとして、PowerPointが沈黙する。あるいは「予期せぬエラー」で強制終了する。その原因の多くは、環境が変化したにもかかわらず、埋め込まれた古のActiveXコントロールや、存在しないアドインへの参照が「地雷」として機能していることにあります。
本記事では、ただファイルを操作するだけでなく、「壊れたプレゼンテーションを安全に修復し、無害化して保存する」という、極めて高度なリカバリツールの設計指針を伝授します。
—
1. なぜ「そのまま開く」のが危険なのか？
PowerPointはファイルを読み込む際、スライド内のオブジェクトをインスタンス化しようと試みます。ここでActiveXのCLSID（クラスID）がレジストリで見つからない、あるいはバージョンが不整合を起こすと、Officeの描画エンジンが例外を吐き、そのままプロセスごとクラッシュします。
これを防ぐには、「GUIを介さない外部からのメタデータ診断」が必要です。PowerPointを「アプリケーションとして起動」させるのではなく、まずは「非表示・修復モード」の文脈で制御する必要があります。
—
2. リカバリツールの設計思想
1. 分離実行（Isolation）： メインプロセスから分離した監視環境でファイルを開く。
2. 不整合の断定（Detection）： `OLEFormat` プロパティにアクセスし、ProgIDやGUIDが解決可能かを確認。
3. 安全な無効化（Neutralization）： 壊れたオブジェクトを削除し、代替の静的画像に変換するか、あるいは単純にコンテナを削除する。
4. 整合性保存（Sanitization）： 最後にクリーンな状態で別名保存する。
—
3. 実践：ActiveX不整合検知・修復コード
以下のコードは、スライド内の全オブジェクトを走査し、ActiveXコントロールのProgIDを確認、存在しない（または壊れている）場合に削除を行うロジックです。
Option Explicit
‘ ———————————————————
‘ プレゼンテーション内の壊れたActiveXコントロールをパージする
‘ ———————————————————
Public Sub SafeRecovery_ActiveX(targetFilePath As String)
Dim pptApp As Object
Dim pres As Presentation
Dim sld As Slide
Dim shp As Shape
‘ PowerPointを非表示でインスタンス化（バックグラウンド処理）
Set pptApp = CreateObject(“PowerPoint.Application”)
‘ 読み取り専用で開き、イベントを抑制して挙動を安定させる
Set pres = pptApp.Presentations.Open(targetFilePath, ReadOnly:=True)
On Error Resume Next
For Each sld In pres.Slides
For Each shp In sld.Shapes
‘ ActiveXコントロールであるか判定
If shp.Type = msoOLEControlObject Then
‘ ProgIDにアクセスを試みることで、オブジェクトの生存を確認
Dim progID As String
progID = shp.OLEFormat.ProgID
If Err.Number <> 0 Then
Debug.Print “検知: 破損または未登録のコントロールを発見 – ” & shp.Name
‘ 安全のため削除
shp.Delete
Err.Clear
End If
End If
Next shp
Next sld
On Error GoTo 0
‘ 修復後の保存
Dim savePath As String
savePath = Replace(targetFilePath, “.pptm”, “_recovered.pptm”)
pres.SaveAs savePath
pres.Close
pptApp.Quit
MsgBox “修復完了: ” & savePath, vbInformation
End Sub
—
4. 開発者が押さえるべき「極限の知見」
① `On Error Resume Next` の正しい使い方
VBAで「不整合を検知する」唯一の方法は、あえてエラーを発生させて `Err.Number` を捕捉することです。ただし、これを広範囲に書くとバグの温床になります。上記のように、「対象プロパティへのアクセス直前」に限定して配置するのが鉄則です。
② 非表示インスタンスの終了処理
`pptApp.Quit` を忘れると、バックグラウンドにゾンビプロセスが残り、次回起動時に「ファイルが使用中です」というエラーを誘発します。必ず `Set pptApp = Nothing` までセットで行ってください。
③ データベース連携の注意点
もしこの修復処理を大量のファイルに対してバッチで行う場合、ファイルパスをテキストやExcelで管理するのではなく、SQLiteやAccessを介して「処理済みフラグ」を管理してください。ループ処理中に強制終了した場合のリカバリ（再開位置の特定）が容易になります。
—
最後に：自動化の真髄
優秀な自動化エンジニアは、「コードが動くこと」ではなく「コードが失敗したときに、いかにシステムを安全な状態に戻すか」に心血を注ぎます。
今回紹介した手法は、レガシー資産という「地雷原」を歩くための防護服です。これをベースに、貴社の環境に合わせて、特定のアドインのみを無効化するリストを追加するなど、カスタマイズを加えてください。
技術は、管理してこそ価値がある。あなたの自動化ツールが、現場のストレスを一つでも多く消し去ることを期待しています。
