Visio VBAを掌握する極限の知見：Documentオブジェクトのライフサイクル管理と完全破棄の作法
こんにちは。チーフアーキテクトの私だ。
これまで数多くの大規模な図面自動生成パイプラインや、データベース連携によるファクトリーオートメーション用Visioソリューションを構築してきた。その中で、開発者が最も容易に陥り、そしてプロジェクトを死に至らしめる罠がある。
それが「Documentオブジェクトのライフサイクル管理の欠落」だ。
「図面を開いて、何かを描画して、保存して閉じる」
一見すると、これだけの処理に何の高尚な技術が必要かと思われるかもしれない。しかし、ExcelやWordのVBA感覚でVisioを触っていると、裏で目に見えないプロセスがメモリを食い潰し、ファイルロックが解除されず、最終的にはCOM例外やVBEの強制終了（クラッシュ）の魔物に取り憑かれることになる。
今回は、複数の図面ファイルを同時に、かつ極めて安全にハンドリングするための「Documentオブジェクトの完全制御パターン」を叩き込む。実務でそのまま使えるプロダクションクオリティのコードを用意した。しっかりとついてきてほしい。
—
1. なぜVisioのDocument管理は一筋縄ではいかないのか？
Visioのオブジェクトモデル（`Application` > `Document` > `Page` > `Shape`）は、一見すると階層的で美しく見える。しかし、背後で動いているCOM（Component Object Model）の参照カウンタの仕組みを理解していないと、痛い目をみる。
実務で頻発する3大トラブルを見ていこう。
① ゴーストプロセスの発生（ゾンビ化）
コードが終了したにもかかわらず、タスクマネージャーに `VISIO.EXE` が居座り続ける現象。これは、VBA側で `Document` や `Page` の参照を解放（`Nothing`代入）し損ねた結果、Visioのインスタンスがメモリ上に残存してしまうことが原因だ。
② ファイルの二重オープン・共有違反
マルチドキュメント環境で、すでに開いているドキュメントを再度 `Documents.Open` しようとしたり、読込専用（Readonly）の制御を誤ったりすることで、ファイルロックの例外が発生する。
③ 暗黙の「保存確認ダイアログ」によるスクリプトの停止
これがバッチ処理や夜間自動化において最も悪質な罠だ。変更を加えたドキュメントを閉じるとき、Visioが「変更を保存しますか？」とダイアログを出し、無人実行中のサーバーやPCの画面の前で処理が永久にフリーズする。
これらを完全に根絶するための設計思想が、今回伝授するライフサイクル管理だ。
—
2. Documentライフサイクルの黄金律：4つのフェーズ
堅牢なコードは、以下の4つのフェーズを厳格に守ることで成り立つ。
1. 初期化と環境の安全化（ScreenUpdatingやAlertsの無効化）
2. 生成・オープン（既存ファイルの安全な取得、または新規作成）
3. トランザクション処理（図面の操作、エラーハンドリングの網羅）
4. クリーンアップ（変更保存の明示、確実なクローズ、参照の破棄）
特にフェーズ4の「クリーンアップ」は、エラーが発生しようとも絶対に実行される（Finally句の概念）ように組まなければならない。VBAには構造化された `Try…Catch…Finally` がないため、`On Error GoTo` によるジャンプ制御を巧みに使う必要がある。
—
3. 【プロダクションコード】安全・確実なDocument制御テンプレート
以下のコードは、指定したフォルダから図面を読み込み、何らかの処理を行って、変更を保持したまま安全に閉じるプロシージャの完全版だ。
実務でそのままコピー＆ペーストし、パスなどを書き換えて活用してほしい。
Option Explicit
‘ ==============================================================================
‘ 担当者必携：Documentオブジェクトのライフサイクル管理 テンプレート
‘ ==============================================================================
sub ProcessVisioDocumentSafe()
Dim appVisio As Visio.Application
Dim docTarget As Visio.Document
Dim targetPath As String
Dim isOpened As Boolean
Dim lngAlerts As Long
Dim blnScreenUp As Boolean
‘ — 処理対象ファイルのパス（環境に合わせて変更） —
targetPath = “C:\Data\FactoryLayout_Template.vsdm”
‘ ————————————————————————–
‘ フェーズ1: 環境の安全化（パフォーマンス向上とダイアログ抑制）
‘ ————————————————————————–
On Error GoTo ErrorHandler
Set appVisio = Application ‘ 現在実行中のVisioインスタンスを取得
‘ 画面描画と警告ポップアップを完全封印する（爆速化と無人運転の必須要件）
blnScreenUp = appVisio.ScreenUpdating
appVisio.ScreenUpdating = False
lngAlerts = appVisio.AlertsEnabled
appVisio.AlertsEnabled = False
isOpened = False
‘ ————————————————————————–
‘ フェーズ2: 安全なオープン（すでに開いている場合の考慮を含む）
‘ ————————————————————————–
Set docTarget = GetOrOpenDocument(appVisio, targetPath, isOpened)
If docTarget Is Nothing Then
Err.Raise vbObjectError + 1000, “ProcessVisioDocumentSafe”, “ドキュメントの取得に失敗しました: ” & targetPath
End If
‘ ————————————————————————–
‘ フェーズ3: トランザクション処理（ビジネスロジックの記述）
‘ ————————————————————————–
‘ ここに実際の図面操作（シェイプの生成・データ連携など）を記述する
Call ExecuteBusinessLogic(docTarget)
‘ 変更を保存するフラグを立てる
‘ ※今回は変更を保存して閉じるケースを想定
docTarget.Saved = False ‘ または明示的に Saved プロパティを制御
‘ ————————————————————————–
‘ フェーズ4: クリーンアップ（正常終了ルート）
‘ ————————————————————————–
GoTo CleanUp
ErrorHandler:
‘ 異常発生時のログ出力や緊急処理をここに記述
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
‘ エラー時は変更を破棄して閉じる安全策をとる場合
If Not docTarget Is Nothing Then
docTarget.Saved = True ‘ 保存確認を出さないため強制的にSavedにする
End If
CleanUp:
‘ ————————————————————————–
‘ 徹底的なリソースの解放（ライフサイクルの終焉）
‘ ————————————————————————–
‘ 1. ドキュメントのクローズ
‘ 自分で開いたファイルであれば閉じる（元々開いていたものは閉じない設計）
If Not docTarget Is Nothing Then
If isOpened Then
‘ 変更を保存して閉じる場合：docTarget.Close
‘ 保存せずに閉じる場合：docTarget.Close （事前にdocTarget.Saved = Trueにする）
docTarget.Close
End If
Set docTarget = Nothing
End If
‘ 2. アプリケーション設定の復元（絶対に忘れてはならない）
If Not appVisio Is Nothing Then
appVisio.ScreenUpdating = blnScreenUp
appVisio.AlertsEnabled = lngAlerts
Set appVisio = Nothing
End If
Exit Sub
End Sub
‘ ==============================================================================
‘ 補助関数: すでに開いていればそれを返し、なければ新しく開く（重複防止ロジック）
‘ ==============================================================================
Private Function GetOrOpenDocument(ByRef app As Visio.Application, ByVal filePath As String, ByRef outIsOpened As Boolean) As Visio.Document
Dim doc As Visio.Document
Dim fileName As String
Dim i As Long
‘ ファイル名のみを抽出
fileName = Dir(filePath)
If fileName = “” Then
Set GetOrOpenDocument = Nothing
Exit Function
End If
‘ すでにコレクション内に開かれているかチェック
For i = 1 To app.Documents.Count
If StrComp(app.Documents(i).Name, fileName, vbTextCompare) = 0 Then
Set doc = app.Documents(i)
outIsOpened = False ‘ 元々開いていたので、このプロシージャでクローズしてはいけない
Set GetOrOpenDocument = doc
Exit Function
End If
Next i
‘ 開いていない場合は新規にオープン
Set doc = app.Documents.Open(filePath)
outIsOpened = True ‘ このプロシージャで開いたので、終了時にクローズする責任を持つ
Set GetOrOpenDocument = doc
End Function
‘ ==============================================================================
‘ ビジネスロジックのプレースホルダー
‘ ==============================================================================
Private Sub ExecuteBusinessLogic(ByRef doc As Visio.Document)
Dim pg As Visio.Page
Set pg = doc.Pages(1) ‘ 先頭ページを取得
‘ 例：タイトルの変更
pg.PageSheet.Cells(“Prop.Title”).FormulaU = “””自動生成レイアウト”””
Debug.Print “ビジネスロジック実行完了: ” & doc.Name
End Sub
—
4. コードの急所：プロが解説する設計のポイント
上記のコードには、現場で生き残るための知見が凝縮されている。重要なポイントを解説しよう。
① `isOpened` フラグによる所有権の管理
マルチドキュメント環境において、あるモジュールが「たまたま開いていた図面」を勝手に閉じてしまうと、別の処理（あるいはユーザーの作業）が破壊される。
今回のコードでは、`GetOrOpenDocument` 関数内で「すでに開いていたものか」「今回自分が新しく開いたものか」を判定し、`outIsOpened` フラグで管理している。「自分が開いたものだけが、責任を持って閉じる（Close）」。これがオブジェクト指向における責任分界点の考え方だ。
② 環境設定（ScreenUpdating / AlertsEnabled）の確実な復元
自動化処理の最初にこれらを `False` にするのは常識だが、「エラーで途中で処理がジャンプした場合でも確実に元に戻す」ことが重要だ。
上記のコードでは `CleanUp` ラベルを一箇所に集約し、例外発生時であっても必ず元の設定に戻るように `GoTo` による安全なフロー制御を行っている。これが抜けると、処理後にVisioの画面がフリーズしたように見えたり、ユーザー操作を受け付けなくなったりする致命的なクレームに繋がる。
③ `.Saved = True` の魔術的な活用
Visioドキュメントをプログラムから閉じる際、変更が加わっていると確実にダイアログが出る。もし「今回は変更を破棄して閉じたい」という要件があるなら、`docTarget.Saved = True`（変更は何もないとVisioに誤認させる）を記述してから `.Close` を叩くこと。これは実務で知っておくべき極めてダーティかつ強力なテクニックだ。
—
5. データベースや外部ファイル連携時の注意点
Visioを単なるお絵描きツールとしてではなく、データベース（SQL ServerやAccess、あるいはExcelマスタ）からのデータ駆動型で動かす場合、Documentライフサイクルはさらに重要になる。
- トランザクションの一貫性:
データベース側でトランザクションを張っている場合、Visioのファイル保存（`doc.Save` または `doc.SaveAs`）が失敗した瞬間に、DB側の変更もロールバックしなければならない。Documentのオープン・クローズ処理は、DB接続のライフサイクルと完全に同期させること。
- ShapeData（カスタムプロパティ）のバルク処理:
1つのドキュメントに対して何千個ものシェイプを生成・変更する場合、`Application.ScreenUpdating = False` をサボると、Visioはシェイプが1つ追加されるたびに再描画を行おうとし、処理時間が数十倍に跳ね上がる。必ず今回のテンプレートのように描画を抑制すること。
—
総括
Visio VBAにおけるDocumentオブジェクトの管理は、単なる「お作法」ではない。それはシステムの安定稼働と、開発者としての信頼を担保するための防壁である。
「動けばいいや」で書かれたコードは、やがてゴーストプロセスを蔓延させ、ファイル破損を引き起こし、夜間バッチを沈黙させる。
今回伝えたライフサイクル管理のパターンをあなたの武器庫に加え、一歩先を行く堅牢なVisioソリューションを構築してほしい。
プログラミングとは、美しさと強靭さの融合だ。健闘を祈る。
