腐った資産を救い出せ：PowerPoint VBAによる「ActiveX/アドイン破壊」の強制検知と修復アーキテクチャ
現場のシニアエンジニア諸君。君たちが管理する数百のレガシーなプレゼンテーション資産の中で、開いた瞬間にPowerPointが「死の宣告（強制終了）」を下すファイルがいくつある？
原因の多くは明確だ。過去の環境で埋め込まれたサードパーティ製ActiveXコントロール、あるいは存在しないアドインへの参照。これらがロードされる際、PowerPointのレンダリングエンジンがメモリ整合性を保てず、アクセス違反（Access Violation）を引き起こす。
今日は、GUIすら開けない「呪われたファイル」を、VBAの深層から安全に修復し、現代の環境へ適合させる「救命スクリプト」の設計思想を伝授する。
—
1. 破壊のメカニズム：なぜPowerPointは死ぬのか
PowerPointのファイル形式（.pptx）は本質的にZIP圧縮されたXMLの集合体だが、ActiveXや埋め込みオブジェクトは`oleObject`としてバイナリレベルで制御されている。
起動時にこれらがロードされる際、`ProgID`や`CLSID`がレジストリで見つからない、あるいはバージョン不整合によるメモリのオフセット異常が発生すると、Officeの保護機能が即座にプロセスを殺す。UI経由で開こうとすれば100%クラッシュする。 だからこそ、UIをバイパスし、外部からDOMを操作する「セーフモード・ロード」の概念が必要なのだ。
—
2. 実装の核心：セーフモード・ロードとオブジェクトのクリーンアップ
以下のコードは、対象ファイルを「読み取り専用」かつ「イベント抑制」状態で開き、ActiveXのロードによるクラッシュを未然に防ぐためのシェルとなる。
強制修復・安全ロード用スクリプト
‘ 伝説のアーキテクトによる「セーフロード」の実装
Public Sub RescueCorruptPresentation(ByVal targetPath As String)
Dim pptApp As Application
Dim targetPres As Presentation
Dim shp As Shape
‘ 1. COMのイベントを遮断して「ロード時の自動実行」を無効化
Set pptApp = New Application
On Error GoTo ErrorHandler
‘ 2. 読み取り専用で開く（メタデータの変更を即座にコミットさせない）
Set targetPres = pptApp.Presentations.Open( _
FileName:=targetPath, _
ReadOnly:=msoTrue, _
Untitled:=msoFalse, _
WithWindow:=msoFalse) ‘ UI非表示でメモリ消費を抑制
‘ 3. ActiveXコントロールの検知と削除
‘ レガシーなActiveXはShapesコレクションのOLEFormatから特定する
Dim i As Long
For Each sld In targetPres.Slides
For i = sld.Shapes.Count To 1 Step -1
Set shp = sld.Shapes(i)
If shp.Type = msoOLEControlObject Then
Debug.Print “検知: ” & shp.OLEFormat.ProgID
‘ ここで特定のブラックリスト(ProgID)に合致すれば削除する
If IsLegacyControl(shp.OLEFormat.ProgID) Then
shp.Delete
End If
End If
Next i
Next sld
‘ 4. 安全な別名保存
targetPres.SaveAs targetPath & “.recovered.pptx”
Cleanup:
‘ 5. メモリの明示的解放（VBAのGCを待たない）
If Not targetPres Is Nothing Then targetPres.Close
Set targetPres = Nothing
pptApp.Quit
Set pptApp = Nothing
Exit Sub
ErrorHandler:
MsgBox “回復不能な致命的エラー: ” & Err.Description
Resume Cleanup
End Sub
Private Function IsLegacyControl(progID As String) As Boolean
‘ 廃止されたActiveXのProgIDを定義
Dim blackList As Variant
blackList = Array(“OldChart.Control.1”, “Legacy.Form.Input”)
‘ … 判定ロジック
End Function
—
3. シニアエンジニアが意識すべき「メモリの重み」
このスクリプトにおいて、最も重要なのは `WithWindow:=msoFalse` である。
PowerPointはウィンドウを表示する際、グラフィックスドライバを通じてActiveXの描画処理を試みる。これがクラッシュの最大の引き金だ。ウィンドウを生成せず、DOM（Document Object Model）ツリーのみをメモリ上に展開することで、描画フェーズをスキップする。これが「死なない」ための唯一の解法だ。
運用上の注意点
- COMオブジェクトの解放: `Set Object = Nothing` を怠るな。PowerPointのプロセスは非常に執念深く、ゾンビプロセスとしてメモリに残り続ける。タスクマネージャーで「POWERPNT.EXE」が消滅していることを確信せよ。
- Windows APIとの連携: もしそれでもクラッシュするような重度の破損がある場合、`FindWindow` APIを使用して、背後で立ち上がった「エラーダイアログ」をハンドリングし、`SendMessage`で「閉じる」コマンドを送りつける必要がある。
—
4. 結び：技術の真髄は「守り」にある
新しい機能を追加するのは誰にでもできる。しかし、過去のエンジニアたちが積み上げた「負債」を、その火を消すことなく現代の環境へ移行させることこそが、真のアーキテクトの仕事だ。
ActiveXの不整合は、単なるエラーではなく「技術の移行期に潜む亡霊」だ。君たちがこのコードを理解し、現場に適用した瞬間、これまで「ゴミ箱行き」になるはずだった数千時間の労働成果が救われる。
コードを書くとき、常に「なぜここでメモリが確保されるのか」「なぜイベントを止める必要があるのか」を自問自答せよ。その先には、どんな環境でも揺るがない、強靭な自動化の地平が広がっている。
健闘を祈る。
