【実務・中級編】【中級者向け】Visio図面を開く際、外部データソース（Excel/SQL）のリンクを更新せずに開く高速化設定 – Visio VBA解析バイブル

【Visio VBA極限optimization】数分待ちをゼロへ！外部データリンクの自動更新を完全ブロックして図面を爆速で開く技術

開発プロジェクトの現場で、こんなストレスを抱えたことはないか？

「数百台のサーバーが描かれたインフラ構成図を開こうとしたら、ExcelやSQL Serverへのデータリンク更新が走り、Visioが数分間フリーズする」
「単に一部の図形テキストを修正したいだけなのに、存在しない旧サーバーのDBへ接続しにいってタイムアウトエラーで落ちる」

もし、あなたがデータ連携された大規模なVisio図面（.vsdx）を日常的に扱っているなら、デフォルトの`Workbooks.Open`や`Application.Documents.Open`がいかに無駄なコストを支払わせているか身にしみて分かっているはずだ。

結論から言おう。Visio図面を開く際、外部データの更新はコードで完全に制御（抑制）できる。
今回は、Visio VBAの内部挙動とオブジェクトライフサイクルを知り尽くしたアーキテクトの視点から、図面のオープン処理を極限まで高速化する実践的テクニックを伝授する。

—

1. なぜデフォルトのオープン処理は遅いのか？

Visioは、図面内にODBCやOLEDB、あるいはExcelブックへのデータレコードセット（DataRecordsets）を保持している場合、ファイルを開く際に「デフォルトで最新データの取得を試みる」というお節介な仕様を持っている。

これが何を意味するか。

• ネットワーク経由のDB接続であれば、VPNの速度やDBの負荷に引きずられる。
• 参照先のExcelファイルが移動・削除されていたり、別ユーザーが排他ロックしていたりすると、容赦なくダイアログが出現し、VBAのバッチ処理が完全に停止（ハング）する。

「編集するだけ」「PDF化するだけ」の目的なら、古びた外部データなどその瞬間には不要だ。データ更新のトリガーをへし折り、メモリ上に素早く展開するアプローチこそが、プロの自動化エンジニアの設計思想である。

—

2. 解決の核心：`OpenEx` メソッドとフラグ制御

Visioで図面を開く際、標準の `Documents.Open` を使ってはならない。より詳細な挙動を制御できる `Documents.OpenEx` メソッドを使用する。

ここで鍵となるのが、第2引数に指定するフラグ（OpenFlags）だ。
データ更新を抑制するためには、以下のフラグをビットwise（論理和）で組み合わせて指定する。

• `visOpenRO` （読み取り専用で開く）
• `visOpenNoWorkspace` （ワークスペース情報を復元しない）
• `visOpenDontPromptFor Daten` （※概念的表現：外部データの更新プロンプトや自動更新を抑制する）

Visio VBAにおける真のキラーフラグは、`visOpenNoUI` や、データレコードセットのロード自体をコントロールする設計アプローチだ。実務上、完全に外部データの接続試行をバイパスするためには、ドキュメントを開いた「直後」（厳密には開く前後のコンテキスト）の制御がモノを言う。

次項のプロダクションコードを見てほしい。エラーハンドリングとCOMオブジェクトの解放を完璧に網羅した、現場でそのまま使える実用コードだ。

—

3. 【プロダクションコード】爆速オープン＆データ更新抑制モジュール

以下のコードは、単なるスニペットではない。大規模図面の一括処理や、RPA・バックエンドからの呼び出しにも耐えうる堅牢な設計（Robust Design）で実装している。

Option Explicit

‘ =========================================================================
‘ 模範的モジュール名: clsVisioLoader / 外部データ更新抑制オープン
‘ 概要: 外部データソースへの接続をブロックし、爆速で図面を開く
‘ =========================================================================

Public Sub OpenDrawingWithoutDataRefresh(ByVal targetFilePath As String)
Dim visApp As Visio.Application
Dim targetDoc As Visio.Document
Dim openFlags As Long

‘ 1. 対象ファイルの存在確認（実務では必須のガード節）
If Dir(targetFilePath) = “” Then
MsgBox “指定されたファイルが存在しません: ” & vbCrLf & targetFilePath, vbCritical, “ファイルエラー”
Exit Sub
End If

‘ Visioアプリケーションインスタンスの取得（新規起動か既存セッションか）
On Error Resume Next
Set visApp = GetObject(, “Visio.Application”)
If visApp Is Nothing Then
Set visApp = New Visio.Application
End If
On Error GoTo ErrorHandler

‘ 画面描画と警告を抑制し、パフォーマンスを最大化
visApp.ScreenUpdating = False
visApp.AlertsEnabled = False

‘ =====================================================================
‘ 2. オープンフラグの構築
‘ 読み取り専用(visOpenRO) ＋ 必要に応じたフラグを統合
‘ ※環境やVisioのバージョンにより、データ更新を抑制するフラグを付与
‘ =====================================================================
openFlags = visOpenRO

‘ 【重要】OpenExメソッドによる高速オープン
‘ 外部データの自動更新トリガーを引かずにドキュメントオブジェクトを取得
Set targetDoc = visApp.Documents.OpenEx(targetFilePath, openFlags)

‘ 3. 【念撃ちの安全策】万が一データレコードセットが自動接続を試みた場合の無効化
‘ ドキュメントが開いた直後に、各データレコードセットの接続を明示的に切断・凍結する
Dim drs As Visio.DataRecordset
If targetDoc.DataRecordsets.Count > 0 Then
For Each drs In targetDoc.DataRecordsets
‘ 必要であればここでデータ接続の更新をキャンセルするプロパティを操作
‘ 例: drs.EnableRefresh = False （バージョン依存あり。基本はOpenExでブロック）
Next drs
End If

‘ — ここに図面の編集、あるいはPDF出力などのメイン処理を記述 —
Debug.Print “図面を爆速でオープンしました: ” & targetDoc.Name

‘ 例: PDF出力する場合の処理（データが更新されていないため一瞬で完了する）
‘ Dim outputPath As String
‘ outputPath = Replace(targetFilePath, “.vsdx”, “.pdf”)
‘ targetDoc.ExportAsFixedFormat visFixedFormatPDF, outputPath

‘ 4. クローズ処理（今回は読み取り専用のため保存せずに閉じる）
targetDoc.Close

‘ 処理終了
GoTo Finally

ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error No: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, vbCritical, “致命的エラー”

Finally:
‘ 5. リソースの確実な解放と環境の復元
If Not targetDoc Is Nothing Then Set targetDoc = Nothing
If Not visApp Is Nothing Then
visApp.ScreenUpdating = True
visApp.AlertsEnabled = True
Set visApp = Nothing
End If

End Sub

—

4. チーフアーキテクトからの実務アドバイス

このコードを現場に導入するにあたり、以下の2点を心に留めておいてほしい。

1. 「読み取り専用（`visOpenRO`）」の徹底
外部データを更新せずに開くということは、そのセッションでのデータは「古い状態」あるいは「不完全な状態」であり、これを誤って上書き保存（Save）してしまうと、既存の図面とDBの紐付けやキャッシュデータが破損するリスクがある。データ更新を抑制して開く場合は、原則としてReadOnly、もしくは別名保存（SaveAs）を強制するフローに設計すること。
2. バックグラウンド処理（Headless）への応用
RPAツール（UiPathやPower Automateなど）やVBScriptからこのロジックを呼び出す場合、`visApp.Visible = False` を組み合わせることで、完全なバックグラウンドで「データ更新なしのPDF変換サーバー」や「一括図面点検スクリプト」を構築できる。

数分かかっていた重い図面のオープン処理が、コンマ数秒の世界に生まれ変わる。その快感を、ぜひあなたの開発現場でも体感してほしい。