Visio VBAを掌握する極限の知見：Documentオブジェクト完全攻略 — 複数図面横断一括処理のアーキテクチャ
Visio VBAにおける開発の成否は、`Application`から`Shape`に至るオブジェクトツリーの「重み」をいかに理解し、制御しているかにかかっている。特に、複数の図面ファイル（`.vsd` / `.vdx` / `.vsdm`）をメモリ上にロードし、横断的に一括処理するシーンにおいて、素朴なコードはたちどころにメモリリークやCOM例外、そしてパフォーマンスの劣化という破綻を迎える。
本稿では、`Documents`コレクションの深層構造を暴き、実務の現場で耐えうる堅牢性と極限のパフォーマンスを兼ね備えた「複数図面横断一括処理マクロ」の設計思想と実装コードを提示する。
—
1. Visioオブジェクトモデルの残酷な真実
多くのVBAプログラマは、`.Open` メソッドや `ActiveDocument` という言葉の響きに酔い、背後で稼働するCOMコンポーネントのライフサイクルを無視する。
Documentsコレクションの裏側
Visioインスタンス（`Application`）が保持する `Documents` コレクションは、単なる配列ではない。開かれたすべての図面データ、ステンシル、テンプレートがメモリ上のCOMオブジェクトとして管理されている。
ここで重要なのは、「何を開き、いつ解放（Close）するか」のライフサイクル管理を誤ると、Visioのプロセスがゾンビ化し、最悪の場合はデスクトップヒープを枯渇させるという事実である。
横断処理における3つの大罪
1. 暗黙のActiveDocument依存: `ActiveDocument` や `ActivePage` をコード内で多用すること。UIのフォーカスに依存したコードは、バックグラウンド処理やマルチドキュメント環境で必ず破綻する。
2. オブジェクトの解放漏れ: 変数に格納した `Document` や `Page` オブジェクトを `Nothing` に明示的に代座させず、ガベージコレクション（VBAの場合はCOM参照カウントのデクリメント）を怠ること。
3. 画面描画とイベントの抑制不足: ファイルを1つ開くたびにUIが再描画され、形状変更のたびにイベントが発火する。これが実行時間を何倍にも膨れ上がらせる。
—
2. アーキテクチャ設計：堅牢な一括処理の要件
複数の図面ファイルを安全に走査・変更・保存するためには、以下の防衛的プログラミングが不可欠である。
- ScreenUpdating と EventEnabled の完全制御: 処理速度の向上と意図しないイベント連鎖の防止。
- エラーハンドリングの局所化と大域化: 1つのファイルの破損やオープン失敗が、全体のバッチ処理全体を止めない構造。
- ReadOnly / ReadWrite の厳密な制御: 不要な排他ロックを回避し、必要な時だけ書き込み権限で開く。
—
3. 実装コード：複数図面横断一括プロパティ変更・保存エンジン
以下のコードは、指定したディレクトリ内のすべてのVisioファイルをサイレントに走査し、特定のカスタムプロパティ（図形データ）の値を一括置換した上で、強制上書き保存または別名保存を行う実務仕様のプロシージャである。
Option Explicit
‘ ==============================================================================
‘ 処理名: BatchProcessVisioDocuments
‘ 概要: 指定フォルダ内の全Visio図面を開き、メタデータの一括更新と保存を行う
‘ 備考: シニアエンジニア向け実務対応版（エラー耐性・パフォーマンス最適化実装）
‘ ==============================================================================
Public Sub BatchProcessVisioDocuments()
‘ — 定数定義 —
Const TARGET_FOLDER As String = “C:\VisioWorkSpace\TargetDocs\”
Const TARGET_PROP_NAME As String = “CostCenter”
Const NEW_PROP_VALUE As String = “CC-9999”
‘ — 変数宣言 —
Dim fso As Object
Dim targetFolderObj As Object
Dim fileItem As Object
Dim targetPath As String
Dim targetDoc As Visio.Document
Dim targetPage As Visio.Page
Dim targetShape As Visio.Shape
Dim processedCount As Long
Dim errorCount As Long
‘ — パフォーマンス＆安全性向上のための環境退避 —
Dim originalScreenUpdating As Boolean
Dim originalEventEnabled As Boolean
originalScreenUpdating = Application.ScreenUpdating
originalEventEnabled = Application.EventEnabled
On Error GoTo ErrorHandler
‘ 画面描画とイベントの完全停止（爆発的な高速化の要）
Application.ScreenUpdating = False
Application.EventEnabled = False
‘ FileSystemObjectによる堅牢なファイル列挙
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FolderExists(TARGET_FOLDER) Then
MsgBox “指定されたフォルダが存在しません: ” & TARGET_FOLDER, vbCritical, “パス異常”
GoTo Finally
End If
Set targetFolderObj = fso.GetFolder(TARGET_FOLDER)
processedCount = 0
errorCount = 0
‘ フォルダ内走査
For Each fileItem In targetFolderObj.Files
‘ 拡張子が Visio (.vsd, .vsdx, .vsdm) のものだけを対象とする
If LCase(fso.GetExtensionName(fileItem.Path)) Like “vsd” Then
targetPath = fileItem.Path
‘ ドキュメントを非表示（あるいは通常）でオープン
‘ ※Visioでは完全なBackgroundOpenはドキュメントオブジェクトの制約があるため、
‘ ScreenUpdating Off と組み合わせることで描画を完全に隠蔽する
On Error Resume Next
Set targetDoc = Application.Documents.Open(targetPath)
On Error GoTo ErrorHandler
If Not targetDoc Is Nothing Then
‘ 読み取り専用チェック（必要に応じてスキップ判定）
If targetDoc.ReadOnly = True Then
Debug.Print “スキップ (Read-Only): ” & targetPath
targetDoc.Close
Else
‘ ——————————————————————
‘ 実処理セクション：全ページ・全シェイプの走査とプロパティ書換
‘ ——————————————————————
Dim pIdx As Long, sIdx As Long
For pIdx = 1 To targetDoc.Pages.Count
Set targetPage = targetDoc.Pages(pIdx)
For sIdx = 1 To targetPage.Shapes.Count
Set targetShape = targetPage.Shapes(sIdx)
‘ シェイプが指定したカスタムプロパティ（Prop.xxx）を持っているか検証
If targetShape.CellExists(TARGET_PROP_NAME, Visio.VisExistsFlags.visExistsAnywhere) Then
targetShape.Cells(TARGET_PROP_NAME).FormulaU = “””” & NEW_PROP_VALUE & “”””
End If
Set targetShape = Nothing
Next sIdx
Set targetPage = Nothing
Next pIdx
‘ 変更を保存して閉じる
targetDoc.Save
targetDoc.Close
processedCount = processedCount + 1
Debug.Print “成功: ” & targetPath
End If
Set targetDoc = Nothing
Else
errorCount = errorCount + 1
Debug.Print “オープン失敗: ” & targetPath
End If
End If
Next fileItem
‘ — 終了処理 —
Application.ScreenUpdating = originalScreenUpdating
Application.EventEnabled = originalEventEnabled
MsgBox “一括処理が完了しました。” & vbCrLf & _
“成功件数: ” & processedCount & vbCrLf & _
“失敗件数: ” & errorCount, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ 異常終了時のフォールバック：COM環境の復旧
Application.ScreenUpdating = originalScreenUpdating
Application.EventEnabled = originalEventEnabled
‘ 開きっぱなしのドキュメントがあれば解放を試みる
If Not targetDoc Is Nothing Then
On Error Resume Next
targetDoc.Close visSaveChangesDiscard
Set targetDoc = Nothing
End If
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error # ” & Err.Number & “: ” & Err.Description, vbCritical, “致命的エラー”
Finally:
Set fso = Nothing
Set targetFolderObj = Nothing
End Sub
—
4. チーフアーキテクトが解説するコードの急所
A. なぜ `ScreenUpdating = False` だけでは不十分で `EventEnabled = False` が必要なのか？
Visioの図面ファイルを開く際、サードパーティ製のアドインやVBAの `Document_DocumentOpened` などのイベントハンドラが動作している場合がある。一括処理中にこれらが発火すると、予期せぬ外部ファイルアクセスや無限ループ、あるいは処理速度の著しい低下を招く。`Application.EventEnabled = False` によってVisioのイベント駆動系を完全にミュートすることが、プロフェッショナルなバッチ処理の絶対条件である。
B. COMオブジェクトの明示的破棄（`= Nothing`）の哲学
VBAはガベージコレクション言語ではなく、参照カウント方式をとっている。
ループ内で `Set targetShape = targetPage.Shapes(sIdx)` と代用し、ループの終端で `Set targetShape = Nothing` を明示しない場合、COMオブジェクトの参照がメモリ上に残り続け、数千個のシェイプを処理する過程でメモリリーク（メモリフットプリントの肥大化）を引き起こす。
「取得したオブジェクト変数は、スコープの抜け際あるいは用済みになった瞬間に必ず `Nothing` を代入して参照を切る」。これがVisio VBAの生命線である。
C. プロパティ書き換えにおける `FormulaU` の優位性
シェイプシートのセルに値を代入する際、`Formula` ではなく `FormulaU`（Universal Formula）を使用している点に注目してほしい。
`Formula` はローカライズされた言語設定（日本語版Visioなら「数式」など）に依存するため、英語環境や他言語環境のPCで実行された瞬間に構文エラー（Type Mismatch または Syntax Error）を引き起こす。実務システムにおいて `FormulaU` 以外の文字列代入はバグの温床でしかない。
—
5. 総括
複数図面の横断処理は、単なるVBAの文法知識の応用ではない。Visioという巨大なCOMサーバーの内部挙動、メモリ管理、そして例外処理のライフサイクルを完全に掌握した者だけが実装できる領域である。
本稿で示した設計パターンをベースに実装を行えば、数百・数千ファイル規模の図面アセットであっても、人間が手作業で行う何日もの労力を数分に圧縮し、かつヒューマンエラーを完全に排除することが可能となる。プロフェッショナルとして、コードの背後にある「システム全体の振る舞い」を常に意識し、強靭な自動化基盤を構築してほしい。
