Visio VBAを掌握する極限の知見：Documentオブジェクトのライフサイクル管理と完全破棄の作法
VisioのVBA開発において、多くの開発者が陥る最初の、そして最も致命的な罠が「オブジェクトのライフサイクル管理の欠如」だ。
特に`Document`オブジェクトは、背後にCOMコンポーネントの重いリソースを抱えている。単に`Set doc = Nothing`と書くだけでメモリが解放されると信じ込んでいるならば、あなたは大規模な自動化処理において、遅かれ早かれ「メモリリーク」と「ゾンビプロセス（Visio.exeの常駐）」の悪夢に直面することになる。
本稿では、単なる入門書の枠を超え、複数図面の同時制御、安全な保存、そして容赦ないリソース破棄に至るまでの全ライフサイクルを、プロフェッショナルの実装パターンとして解説する。
—
1. Visioオブジェクトモデルの暗黒面：なぜ`Document`の管理は難しいのか？
VBAのガベージコレクションは頼りにならない。特にMicrosoft OfficeのCOMオブジェクトモデルは、参照カウント方式（Reference Counting）で動作している。
`Documents.Add`や`Documents.Open`を実行した瞬間、Visioの裏側ではC++レベルのメモリブロックが割り当てられ、VBA側からその参照保持数（Reference Count）がカウントされる。
ここで発生する典型的なバグが以下の2点だ。
1. 解放漏れによるプロセス残留:
VBAの実行が終了しても、`Visio.exe`がタスクマネージャーに残り続ける現象。これは、オブジェクト変数への参照がどこかに残っているか、Visioの内部キャッシュが適切にフラッシュされていないことが原因である。
2. 無言の上書き保存・意図せぬダーティフラグ:
変更を加えたにもかかわらず保存せずに閉じた場合のエラーハンドリングや、逆に意図しない自動保存によるデータの破損。
これらを完全制御するための鉄則はただ一つ。「開く、操作する、保存する（または破棄する）、明示的に解放する」の4フェーズをコード上で完全に同期させることだ。
—
2. Documentライフサイクル管理の完全実装パターン
以下のコードは、新規図面の作成から、シェイプの配置、変更の保存、そして安全なクローズとメモリ解放までのライフサイクルを完璧に網羅した実用モジュールである。
Option Explicit
Public Sub ExecuteDocumentLifecycleSample()
‘ ————————————————————————-
‘ チーフアーキテクトの推奨パターン: Documentライフサイクル管理
‘ ————————————————————————-
Dim vsoApp As Visio.Application
Dim vsoDocs As Visio.Documents
Dim vsoDoc As Visio.Document
Dim vsoPage As Visio.Page
Dim savePath As String
‘ 1. アプリケーション参照の取得（Newの乱用を避け、既存インスタンスまたは安全な生成を行う）
On Error Resume Next
Set vsoApp = GetObject(, “Visio.Application”)
If vsoApp Is Nothing Then
Set vsoApp = New Visio.Application
End If
On Error GoTo 0
If vsoApp Is Nothing Then
MsgBox “Visioのインスタンスを取得できませんでした。”, vbCritical
Exit Sub
End If
‘ 画面描画を停止し、パフォーマンスを極限まで引き上げる（重要）
vsoApp.ScreenUpdating = False
vsoApp.Settings.ShowDevLangs = False ‘ 不要なUI描画抑制
On Error GoTo ErrorHandler
‘ 2. Documentsコレクションの取得と新規ドキュメントの生成
Set vsoDocs = vsoApp.Documents
‘ テンプレートを指定せず、完全に空のメトリック図面を作成
Set vsoDoc = vsoDocs.Add(“”)
‘ アクティブページ（デフォルトのPage-1）の取得
Set vsoPage = vsoDoc.Pages(1)
‘ — 【作業フェーズ】 ————————————————–
‘ ここに業務ロジック（シェイプの生成、データ連携など）を記述する
‘ 例: 簡易的なシェイプ配置
Dim vsoShape As Visio.Shape
Set vsoShape = vsoPage.DrawRectangle(1, 5, 4, 3)
vsoShape.Text = “Lifecycle Managed Shape”
‘ ———————————————————————–
‘ 3. 保存フェーズ
savePath = ThisWorkbook.Path & “\ManagedDrawing_” & Format(Now, “yyyymmdd_hhnnss”) & “.vsdm”
‘ すでに同名ファイルが存在する場合は削除（上書きエラー防止）
If Dir(savePath) <> “” Then
Kill savePath
End If
‘ 保存の実行（ファイル形式を指定して保存）
vsoDoc.SaveAsEx savePath, visSaveAsOpenRO
‘ 4. クローズと破棄フェーズ
‘ 変更フラグ（Savedプロパティ）をTrueに強制し、ダイアログのポップアップを防ぐ
vsoDoc.Saved = True
vsoDoc.Close
‘ オブジェクト変数の即時解放（逆順が望ましい）
Set vsoShape = Nothing
Set vsoPage = Nothing
Set vsoDoc = Nothing
Set vsoDocs = Nothing
vsoApp.ScreenUpdating = True
Set vsoApp = Nothing
MsgBox “ドキュメントのライフサイクル管理が正常終了しました。”, vbInformation
Exit Sub
ErrorHandler:
‘ 異常系ハンドリング：メモリリークとゾンビプロセスの防止
vsoApp.ScreenUpdating = True
If Not vsoDoc Is Nothing Then
On Error Resume Next
‘ 異常終了時は変更を破棄して閉じる
vsoDoc.Saved = True
vsoDoc.Close
Set vsoDoc = Nothing
End If
Set vsoPage = Nothing
Set vsoDocs = Nothing
Set vsoApp = Nothing
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
End Sub
—
3. シニアエンジニアが実践するべき「3つの極限最適化テクニック」
大規模な図面自動生成や、数百ファイルにおよぶバッチ処理を組む場合、上記の基本コードだけでは実用に耐えない。以下の極限知見を実装に組み込むこと。
① `ScreenUpdating` と `UndoEnabled` の完全制御
Visioは、図面にシェイプが1つ追加されるたびに、画面の再描画と「アンドゥ（Undo）バッファ」の構築を行う。これが実行速度を劇的に低下させる原因だ。
ループ処理やバッチ処理を行う前には、必ず以下のようにパフォーマンスチューニングを行え。
‘ 描画停止
vsoApp.ScreenUpdating = False
‘ アンドゥバッファを一時無効化（メモリ消費量を激減させる）
Dim undoScopeID As Long
undoScopeID = vsoApp.BeginUndoScope(“BatchProcess”)
‘ — 大量処理 —
vsoApp.EndUndoScope undoScopeID, True
vsoApp.ScreenUpdating = True
② 複数ファイル同時オープン時のコレクション管理
複数の既存ファイルを同時に開いてデータをマージするようなシステム間連携では、`Documents` コレクション内のインデックス番号に頼ってはならない。ファイル名やパスをキーにして、明示的に `Document` オブジェクトを特定してハンドリングしろ。
Dim targetDoc As Visio.Document
On Error Resume Next
Set targetDoc = vsoApp.Documents(“MasterTemplate.vsdx”)
On Error GoTo 0
If targetDoc Is Nothing Then
‘ 開いていなければ新規に開く
Set targetDoc = vsoApp.Documents.Open(“C:\Templates\MasterTemplate.vsdx”)
End If
インデックス番号（`Documents(1)`など）は、ユーザーが他の図面をアクティブにしたり閉じたりした瞬間に狂うため、実務では厳禁である。
③ 容赦ないメモリ解放とGCの強制駆動
VBAには明示的な `GarbageCollect` のような構文はないが、COMの参照カウントを確実にゼロにするために、以下の順序でインスタンスを完全に切り離すこと。
1. 最下層のオブジェクト（Shape, Pageなど）から `Set ~ = Nothing`
2. 中位のオブジェクト（Document, Documentsなど）の `Close` と `Set ~ = Nothing`
3. 最上位の `Application` オブジェクトの `Set ~ = Nothing`
これを怠ると、VBAのエディタを閉じるまでメモリが解放されず、複数回スクリプトを実行しただけでPCのメモリが枯渇する。
—
総括
Visio VBAにおける `Document` オブジェクトの管理は、単なるプログラミングの作法ではなく、OSのリソース管理そのものである。
「動けばいい」という妥協を捨て、エラーハンドリングとクリーンアップのロジックをコードの最初から最後まで張り巡らせること。それこそが、何時間稼働させても微動だにしない、真にプロフェッショナルな自動化システムを構築唯一の道である。
