こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押して「動いた！」と喜んでいた時期を通り越し、そろそろ「もっと現場で役立つ、泥臭くて強力な自動化をしたい」「手に負えないエラーを自分のコードでねじ伏せたい」と感じている頃ではないでしょうか。
今回は、そんなあなたへ贈る、PowerPoint VBAの枠を完全に超越した「超上級・ハイブリッド救出スクリプト」の解説です。
通常のPowerPointの画面（UI）からは「ファイルが破損しています」「修復できません」と冷たく突き放されて開くことすらできないPPTXファイル。絶望的な状況に見えますが、エンジニアの知恵を使えば救出の道は残されています。
そう、PPTXの正体は「ZIPアーカイブ」であり、中身はただの「XMLファイルの集合体」に過ぎないからです。
今回は、VBAから外部のシェルやファイルシステムを駆使し、壊れた内部XMLを直接書き換えて蘇らせる、極限のテクニックを伝授します。ここをクリアすれば、あなたのVBAスキルは間違いなく本物の「チーフアーキテクト」の領域に到達します。一緒にマスターしていきましょう！
—
1. なぜUIで直せないファイルが、VBAで直せるのか？
PowerPointのファイル（`.pptx`）の拡張子を `.zip` に書き換えて解凍したことはありますか？
中を見ると、`ppt/presentation.xml` や `ppt/slides/slide1.xml` といったXMLファイルや、画像フォルダが整然と並んでいます。
PowerPointがファイルを開くとき、この内部XMLの構造（OpenXML規格）を上から順番に読み込んでメモリ上に展開していきます。もし、スライドマスターの関連付け（`presentation.xml.rels` など）が一部でも壊れていると、PowerPointの親切なエラーチェック機能が働き、「ファイルが壊れています」と強制終了させられてしまうのです。
しかし、人間（あるいは私たちの書くVBA）が直接XMLの不正な記述を削除したり、正しい構造に書き換えて再びZIPに固め直（再パッキング）してあげれば、PowerPointは「お、正常なファイルだな」と勘違いして何食わぬ顔で開いてくれるようになります。
今回は、この一連のプロセス（展開 ➔ XML解析・修正 ➔ 再圧縮）を、すべてVBAから自動実行する仕組みを作ります。
—
2. 開発の前提と必要な環境
このスクリプトを動かすには、以下の要素が必要です。
- Windows環境（Windows標準の `Shell.Application` および `Scripting.FileSystemObject` を使用します）
- VBAの参照設定（不要ですが、FSOやShellオブジェクトをバインドするために、今回は分かりやすく早期バインディングの手法も交えて解説します）
- ZIP/UNZIPの仕組み：Windowsの標準機能でZIPの展開・圧縮を行うため、外部の専用ツール（WinRARや7-Zipなど）のインストールは不要です。
—
3. 実装コード：破損PPTX強制救出マクロ
以下のコードは、デスクトップにある「broken.pptx」という致命的に壊れたファイルを一時フォルダに展開し、マスターの読み込みエラーを引き起こしている特定の不正タグを強制的に除去した上で、安全なファイルとして再構築するサンプルです。
Option Explicit
‘ =====================================================================
‘ 【超上級】PowerPoint 破損スライドマスター強制救出スクリプト
‘ =====================================================================
Sub EmergencyRescuePPTX()
Dim fso As Object
Dim shellApp As Object
Dim targetPath As String
Dim workDir As String
Dim rescuePath As String
Dim presentationXmlPath As String
‘ 1. パスの設定（環境に合わせて変更してください）
targetPath = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”) & “\broken.pptx”
rescuePath = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”) & “\rescued_presentation.pptx”
workDir = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”) & “\PPT_TempWork\”
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 事前チェック
If Not fso.FileExists(targetPath) Then
MsgBox “対象のファイルが見つかりません: ” & targetPath, vbCritical
Exit Sub
End If
On Error GoTo ErrorHandler
‘ 2. 作業用一時フォルダの作成（既存なら削除）
If fso.FolderExists(workDir) Then
fso.DeleteFolder workDir, True
End If
fso.CreateFolder workDir
‘ 3. PPTXをZIPとして展開する（ファイル名義を.zipに変更してコピー）
Dim zipPath As String
zipPath = workDir & “archive.zip”
fso.CopyFile targetPath, zipPath, True
Set shellApp = CreateObject(“Shell.Application”)
‘ Windows標準機能でZIPを解凍
Dim sourceFolder As Object
Dim destFolder As Object
Set sourceFolder = shellApp.NameSpace(zipPath)
Set destFolder = shellApp.NameSpace(workDir)
‘ 非同期処理対策として少し待機を挟みつつ解凍
destFolder.CopyHere sourceFolder.Items, &H14& ‘ &H14& = 画面表示なし＋上書き
‘ 少しウェイトを入れてファイルシステムの書き込みを確実にする
Application.Wait Now + TimeValue(“0:00:02”)
‘ 4. 内部XML（例: presentation.xml や関連ファイル）の直接書き換え・修復処理
presentationXmlPath = workDir & “ppt\presentation.xml”
If fso.FileExists(presentationXmlPath) Then
Call FixPresentationXml(presentationXmlPath)
Else
MsgBox “致命的なエラー: presentation.xml が見つかりません。”, vbCritical
GoTo Cleanup
End If
‘ 5. 再びZIPに圧縮し、拡張子を .pptx に戻す
‘ 既存のレスキューファイルがあれば削除
If fso.FileExists(rescuePath) Then fso.Kill rescuePath
‘ 空のZIPファイルを作成 (ヘッダ書き込み)
Dim stream As Object
Set stream = CreateObject(“ADODB.Stream”)
stream.Type = 1 ‘ binary
stream.Open
stream.Write ChrB(80) & ChrB(75) & ChrB(5) & ChrB(6) & String(18, ChrB(0))
stream.SaveToFile rescuePath, 2 ‘ 2 = 上書き保存
stream.Close
‘ 解凍した中身をすべて新しいZIPへ圧縮格納
Dim targetZip As Object
Set targetZip = shellApp.NameSpace(rescuePath)
Dim item As Object
For Each item in sourceFolder.Items
‘ 注意: アーカイブ自体のzipファイルは除外する
If LCase(item.Name) <> “archive.zip” Then
targetZip.CopyHere item
End If
Next
‘ 圧縮処理の完了を待つ
Application.Wait Now + TimeValue(“0:00:03”)
‘ 拡張子を .pptx に確定 (コピー時にすでにpptxだが念のため)
Name rescuePath As Left(rescuePath, InStrRev(rescuePath, “.”)) & “pptx”
MsgBox “救出作戦が成功しました！デスクトップの ‘rescued_presentation.pptx’ を確認してください。”, vbInformation
Cleanup:
‘ 6. 一時フォルダのクリーンアップ
If fso.FolderExists(workDir) Then
fso.DeleteFolder workDir, True
End If
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical
Resume Cleanup
End Sub
‘ =====================================================================
‘ サブプロシージャ: XMLの不正な記述をテキスト置換で強制修復する
‘ =====================================================================
Private Sub FixPresentationXml(xmlFilePath As String)
Dim fso As Object
Dim ts As Object
Dim xmlContent As String
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ XMLファイルをテキストとして読み込み
Set ts = fso.OpenTextFile(xmlFilePath, 1, False, -1) ‘ -1 = Unicode (UTF-16) の場合もあるが通常はASCII/UTF-8
xmlContent = ts.ReadAll
ts.Close
‘ — 【ここにマスター修復のコアロジックを記述】 —
‘ 例：特定の壊れたスライドマスターへの参照タグ（例: id=”rId99″）を検知して削除または書き換える
‘ ※実際の破損箇所に合わせて置換文字列は調整してください
If InStr(xmlContent, “badAttributeName”) > 0 Then
xmlContent = Replace(xmlContent, “badAttributeName=””true”””, “”)
End If
‘ 例：スライドマスターの順序がおかしくなっている場合にタグを強制整形するなど
‘ —————————————————-
‘ 修復した文字列を再度XMLファイルに書き戻す
Set ts = fso.CreateTextFile(xmlFilePath, True, False)
ts.Write xmlContent
ts.Close
End Sub
—
4. コードの深掘り解説：ここがエンジニアの腕の見せ所
このコードの肝となるポイントを、いくつかピックアップして解説します。
① Windowsシェルを通したZIPの透過操作
`Shell.Application` オブジェクトを使うことで、VBAから直接Windowsのエクスプローラーと同等のZIP解凍・圧縮機能を利用できます。
特に `CopyHere` メソッドを使う際、フラグに `&H14&`（進捗ダイアログを表示せず、上書き確認もしない）を指定することで、バックグラウンドで高速に処理を完結させています。
② ADODB.Streamによる空ZIPの動的生成
VBAから新しくZIPファイルを作る際、単に空のファイルを置くだけではZIPの書庫ヘッダーが欠けてしまい、エクスプローラーが「中身が壊れている」と判断します。
コード内の `ADODB.Stream` を使った部分は、「PK\x05\x06」というZIPファイルの終端シグネチャ（空のZIPの最小構造）をバイナリで直接ファイルに書き込むという、極めてマニアックかつ確実なテクニックです。これにより、外部ツールなしで純粋なVBAのみから空のZIPコンテナを錬成できます。
③ テキストストリームによるXMLの直接加工
`Scripting.FileSystemObject` の `OpenTextFile` を使い、XMLを丸ごとテキストとしてメモリ上に読み込みます。
PowerPointのXML構造は一見複雑ですが、特定の要素（タグ）が破損原因である場合、`Replace` 関数や正規表現（`VBScript.RegExp`）を組み合わせることで、ピンポイントで癌細胞を切除するように壊れた属性を消し去ることができます。
—
5. 陥りやすい罠と現場の注意点
- 非同期（Async）の罠
WindowsのシェルによるZIPの解凍・圧縮は、非同期に近い挙動をすることがあります。コードが次の行に進んだ瞬間にまだファイルの書き込みが終わっていなくて「ファイルが見つからないエラー」が起きがちです。サンプルコード内に入れている `Application.Wait` は、実務ではおまじないではなく命綱になります。
- 文字コード（UTF-8 / UTF-16）の爆弾
OpenXMLの内部ファイルは通常 UTF-8（BOMなし）で保存されています。VBAからテキストファイルを読み書きする際、文字コードが化けるとXMLパーサーが完全に壊れるため、ファイルストリームのオープン時は文字コードの扱いに十分注意してください（必要に応じて `ADODB.Stream` を使った厳密な文字コード指定読み込みにアップグレードするのがプロの作法です）。
—
まとめ：PowerPoint VBAの限界を超えるために
今回は、PPTXの内部構造であるZIPとXMLに直接メスを入れ、通常では復元不可能なファイルを力技で蘇らせるハイブリッドVBAをご紹介しました。
「たかがマクロ、されどVBA」。
画面のボタンをポチポチ押すだけの自動化から一歩踏み出し、ファイルシステムの裏側やデータ構造（OpenXML）まで理解してコードを書けるようになると、あなたのエンジニアとしての戦闘力は圧倒的に跳ね上がります。
「このエラー、もしかして中身のテキストを書き換えれば直るんじゃないか？」——そう閃いた瞬間から、あなたを悩ませるファイルエラーに怖いものなどなくなります。
ぜひご自身の環境でも安全に配慮しながら試して、VBAの奥深い醍醐味を味わってみてください。ここをクリアできれば、あなたのPowerPoint VBAのスキルは、まぎれもなく本物の「チーフアーキテクト」レベルです！
