こんにちは！Visio VBAの世界へようこそ。
マクロの記録ボタンを押すだけの自動化から一歩抜け出し、「自分の手でVisioを完全につかみ取りたい！」と思っているあなたなら、きっと今日のテーマにワクワクするはずです。
今回は、現場のエンジニアなら誰もが一度は恐怖する「図面の破損（VSDX corruption）」に立ち向かう、少しディープで極限まで実用的なお話をします。
「せっかく何時間もかけて自動生成した図面が、朝出社したら開かなくなっている……」
そんな悪夢をプログラムの力で未然に防ぎ、あるいは検知して自動で修復する。そんな「守りのアーキテクチャ」を一緒に作っていきましょう。
ここをクリアすれば、単に「Visioの操作を自動化できる」だけでなく、ファイル構造そのものを手玉にとるワンランク上のエンジニアになれますよ。それでは、扉を開けましょう！
—
なぜVSDXは「開かなくなる」のか？（その正体を知る）
まず、Visioの標準ファイル形式である`.vsdx`の正体を知っていますか？
実はこれ、中身はただのZIPファイルです。拡張子を `.zip` に書き換えて解凍してみてください。中には `visio/document.xml` や `visio/pages/` といったXMLファイルや画像が、綺麗にフォルダ構造で収められているのが分かります。
しかし、ここにリスクが潜んでいます。
- 巨大なマクロやCADデータのインポート中にVBAが強制終了した
- ネットワークドライブの切断中にファイルを上書き保存してしまった
こんなことが起きると、ZIPのインデックスが壊れたり、中のXMLのタグが途中でプツッと途切れたりして、Visioが「このファイルは破損しています」と冷たく突き放してくるわけです。
プログラミング初学者のうちは「エラーが出たら諦める」しかありませんが、上級者なら「開けなくなる前に構造をチェックし、怪しければバックアップから復元する」という防衛策を組むべきです。
—
破損検知と自動修復の全体像
今回目指すロジックは以下の3ステップです。
1. ZIP構造の整合性チェック: VSDXファイルをVBAからZIPとして扱い、最低限必要なファイル（例: `[Content_Types].xml` など）が正常に存在するかを検査する。
2. Visioのセーフオープン: `Workbooks.Open` や `Documents.Open` を実行する前に、ファイルがクラッシュ要因を孕んでいないか確認する。
3. 自動フォールバック: 万が一破損を検知した場合、直近の正常なバックアップ（`.bak`）に自動で切り替えて処理を継続する。
では、実際のコードを見ていきましょう。開発現場でそのままコピペして使えるように、たっぷりコメントを入れています。
—
実装コード：堅牢なVSDXチェッカー＆ローダー
以下のコードは、指定したVSDXファイルのZIPとしての健全性を簡易チェックし、安全にVisio図面としてロード、あるいはバックアップからの復元を試みる実用的なVBAモジュールです。
Option Explicit
‘ =========================================================================
‘ 模範的プロフェッショナルコード: VSDX整合性チェック＆自動修復ローダー
‘ =========================================================================
Public Sub SafeOpenVsdxWithRecovery(ByVal targetFilePath As String)
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 1. ファイルの存在確認
If Not fso.FileExists(targetFilePath) Then
MsgBox “指定されたファイルが存在しません: ” & targetFilePath, vbCritical, “致命的エラー”
Exit Sub
End If
‘ 2. VSDX（ZIP構造）としての健全性チェック
If Not IsVsdxStructureValid(targetFilePath) Then
MsgBox “警告: VSDXファイルの内部構造に破損の兆候を検知しました！”, vbExclamation, “構造異常”
‘ バックアップからの復元を試みる
Dim backupPath As String
backupPath = targetFilePath & “.bak”
If fso.FileExists(backupPath) Then
If MsgBox(“直近のバックアップから復元しますか？” & vbCrLf & backupPath, vbYesNo + vbQuestion, “自動修復の確認”) = vbYes Then
‘ 壊れたファイルをリネーム退避し、バックアップをコピー
Name targetFilePath As targetFilePath & “.corrupt_” & Format(Now, “yyyymmdd_hhnnss”)
fso.CopyFile backupPath, targetFilePath, True
MsgBox “バックアップからの復元が完了しました。ファイルを開き直します。”, vbInformation, “復元成功”
Else
Exit Sub
End If
Else
MsgBox “有効なバックアップが見つかりませんでした。手動での修復が必要です。”, vbCritical, “復元失敗”
Exit Sub
End If
End If
‘ 3. 通常オープン処理
Dim targetDoc As Visio.Document
On Error GoTo OpenError
Set targetDoc = Documents.Open(targetFilePath)
‘ ここから先で通常の自動化処理を行う
MsgBox “図面が正常に読み込まれました: ” & targetDoc.Name, vbInformation, “成功”
Exit Sub
OpenError:
MsgBox “Visioのオープン中に予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“詳細: ” & Err.Description, vbCritical, “オープン失敗”
End Sub
‘ =========================================================================
‘ 内部関数: VSDXのZIP構造（必須XMLの存在）を簡易検証する
‘ =========================================================================
Private Function IsVsdxStructureValid(ByVal filePath As String) As Boolean
Dim zipApp As Object
Dim srcFolder As Object
Dim fso As Object
Dim tempDir As String
Dim requiredFile As String
IsVsdxStructureValid = False
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 一時フォルダのパスを作成
tempDir = fso.GetSpecialFolder(2) & “\” & fso.GetTempName()
fso.CreateFolder tempDir
On Error GoTo CleanUp
‘ VSDXを一時的にZIPとして解凍を試みる（FileSystemObjectのCopyHereを使用）
‘ ※拡張子を一時的に.zipに偽装して安全に展開
Dim tempZipPath As String
tempZipPath = tempDir & “\temp.zip”
fso.CopyFile filePath, tempZipPath, True
Dim shellApp As Object
Set shellApp = CreateObject(“Shell.Application”)
Dim zipFile As Object
Set zipFile = shellApp.NameSpace(tempZipPath)
If zipFile Is Nothing Then
‘ ZIPとして認識すらできない＝完全に破損
GoTo CleanUp
End If
‘ VSDXに絶対不可欠なルートの [Content_Types].xml が存在するかチェック
Dim item As Object
Dim found As Boolean
found = False
For Each item in zipFile.Items
If LCase(item.Name) = “[content_types].xml” Then
found = True
Exit For
End If
Next item
If found Then
IsVsdxStructureValid = True
End If
CleanUp:
‘ 一時ファイルのクリーンアップ（ゴミを残さないのはプロの基本）
On Error Resume Next
If fso.FileExists(tempZipPath) Then fso.DeleteFile tempZipPath, True
If fso.FolderExists(tempDir) Then fso.DeleteFolder tempDir, True
Set fso = Nothing
Set shellApp = Nothing
End Function
—
コードの解説：ここがエンジニアの腕の見せ所
上記のコードで、初学者がつまずきやすいポイントや、アーキテクチャ上の重要ポイントを解説します。
1. 「拡張子の裏の顔」を利用する
VSDXはZIPそのものです。コード内では、ファイルを安全に検査するために一時フォルダへコピーし、内部の `[Content_Types].xml` を探しています。これが読めないということは、ZIPとしてのインデックスが破壊されている＝Visioでも絶対に開けないファイル、と断定できます。
2. クラッシュ時の「上書き破壊」を防ぐ
壊れたファイルをそのまま上書き保存してさらに傷口を広げるのではなく、破損ファイルを `.corrupt_yyyymmdd` としてリネーム退避させてからバックアップを戻す設計にしています。これにより、原因究明のための「証拠」が必ず手元に残ります。
3. リソースの確実な解放（クリーンアップ）
`FileSystemObject` や `Shell.Application` などのCOMオブジェクトをVBAで生成すると、メモリや一時ファイルが残りがちです。`CleanUp` ラベルを用意し、エラーが起きようとも確実にゴミを掃除する仕組み（RAII的な思想）を組み込んでいます。
—
陥りやすいエラーと注意点
- セキュリティソフトや権限によるブロック
一時フォルダ（`Environ(“TEMP”)` など）への書き込みや、ZIPの展開・削除を行う際、社内のセキュリティポリシーでブロックされることがあります。実行時エラーが出る場合は、環境に応じた一時パスを指定してください。
- 巨大なVSDXでのパフォーマンス
ファイルが数十MBある場合、ZIPの全アイテム走査にわずかに時間がかかります。頻繁に呼び出すのではなく、「日次バッチの開始時」や「重要処理の直前」に絞って実行するのがスマートです。
—
ここをクリアすれば、Visio VBAの基本はバッチリですよ！
お疲れ様でした！今回はVSDXのバイナリ（ZIP）構造に踏み込み、プログラムで図面の健康状態を診断するという、少しマニアックで最高に実用的なテクニックをご紹介しました。
「画面を操作するだけのマクロ」から、「ファイルシステムと対話する堅牢な自動化スクリプト」へ。この視点を持てば、あなたの作るVisioツールは、現場で絶対に信頼される「プロの成果物」へと生まれ変わります。
ぜひご自身の開発環境に組み込んで、その強靭さを試してみてくださいね。それでは、次のステップでお会いしましょう！
