【テクニカル・上級編】Document.Mastersに存在しないマスターシェイプを外部ステンシル（.vssx）からサイレント自動ロードする補完ロジック – Visio VBA解析バイブル

【Visio VBA極限攻略】未ロードのマスターシェイプを外部ステンシル（.vssx）からサイレント自動ロードする堅牢な補完アーキテクチャ

Visioを用いた大規模なエンタープライズ業務自動化において、最も頻出し、かつシステムの安定性を脅かす致命的な例外が「マスターシェイプの不在（Invalid Master Name）」です。

複数人で共有するテンプレートや、基幹システムから動的に生成されるXML/JSONデータを元に図面を自動描画するインテグレーション環境において、描画対象のドキュメント（`ActiveDocument`）内に必要なマスターシェイプが常にキャッシュされているとは限りません。

本稿では、この問題に対する究極の解決策として、「ユーザーに一切の描画遅延や画面のちらつきを感じさせず、バックグラウンド（メモリ上）で外部ステンシル（`.vssx`）から必要なマスターシェイプのみを動的に検出し、アクティブドキュメントへサイレントにインポート・補完するプロフェッショナル向けロジック」を徹底解説します。

—

1. 課題の本質：なぜ「単純なオープン」では破綻するのか

Visioのオブジェクトモデルにおいて、マスターシェイプはドキュメント固有の `Masters` コレクションにキャッシュされています。このキャッシュに存在しないマスターを `Page.Drop` しようとすると、当然ながら実行時エラーが発生します。

このとき、多くのビギナー開発者は以下のようなアプローチを採りますが、これらはエンタープライズ環境では到底許容できません。

• GUIでステンシルを開きっぱなしにする：

ユーザーのワークスペースを汚染し、誤操作によるステンシルの編集や紛失のリスクを招く。

• `Documents.Open` で愚直にステンシルを開く：

画面が激しく明滅（フリッカー）し、描画パフォーマンスが著しく低下する。

• エラー発生時にユーザーに手動選択を促す：

夜間のバッチ処理や、完全自動化されたPDF帳票出力システムなどを完全に停止させてしまう。

我々が目指すべきは、「ドキュメント内に目的のマスターが存在しない場合のみ、裏で隠し（Hidden）モードでステンシルを開き、目的のマスターをローカルの `Masters` コレクションに『移植』し、痕跡を残さずステンシルを閉じて処理を継続する」という、極めてクリーンで自己完結型の自動補完アーキテクチャです。

—

2. 極限のサイレント処理を実現する「2つの鍵」

これを実現するためには、Visioオブジェクトモデルの深層に位置する仕様と、Windows APIレベルの制御を組み合わせる必要があります。

2.1 `Documents.OpenEx` メソッドのフラグ制御

Visioでファイルをサイレントに開くための最大の武器が `Documents.OpenEx` メソッドです。第二引数（`Flags`）に適切なビットマスクを渡すことで、GUIに一切露出させずにファイルをメモリ空間上に展開できます。

使用すべきフラグの組み合わせは以下の通りです。

‘ Visio Type Library (VisOpenSaveArgs) より抜粋
Const visOpenRO As Integer = 2 ‘ 読み取り専用で開く（競合回避）
Const visOpenHidden As Integer = 64 ‘ ウィンドウを完全に非表示にする（サイレント化）
Const visOpenNoWorkspace As Integer = 256 ‘ ワークスペース情報をロードしない（高速化）

これらを論理和（`Or`）で結合し、`visOpenRO + visOpenHidden + visOpenNoWorkspace`（値としては `322`）として渡すことで、OSのプロセス内でのみ有効な「ゴースト・ドキュメント」としてステンシルを扱えます。

2.2 COMオブジェクトの明示的解放とガベージコレクション

VBAは参照カウンタ方式のメモリ管理（COM）を採用しています。非表示で開いたステンシルオブジェクト（`Document`）は、VBAマクロの実行が終了しても、参照が完全にゼロになるまでメモリ上に残り続ける（ゾンビプロセス化する）リスクがあります。

これを防ぐためには、以下の3原則を厳守しなければなりません。
1. ローカル変数に格納した `Document` や `Master` オブジェクトを、使用後即座に `Set … = Nothing` で明示的に解放する。
2. ステンシルからのマスターの複製には、直接参照を渡し続けるのではなく、アクティブドキュメントの `Masters.Drop` メソッドを用いて「実体をコピーしてローカルに所有権を移す」。
3. エラーハンドリングの `Catch` ブロック（`ErrHandler`）内に、確実にステンシルをクローズしメモリを解放するクリーンアップフェーズを構築する。

—

3. 実戦的VBA実装：`SilentMasterResolver` モジュール

以下に、エンタープライズレベルの堅牢性を備えた、自己完結型のマスター自動補完ソースコードを示します。このコードは、ファイルパスの存在検証、二重ロードの防止、エラー発生時のロールバック、画面更新の物理的抑制をすべて包含しています。

Option Explicit

‘ ==============================================================================
‘ モジュール名: SilentMasterResolver
‘ 概要: 外部ステンシル（.vssx）から必要なマスターを検出し、
‘ アクティブドキュメントのMastersコレクションにサイレントで自動ロードする。
‘ ==============================================================================

‘ Windows API: 描画更新の一時停止用（Visio自体の更新抑制と併用して極限まで高速化）
If VBA7 Then
Private Declare PtrSafe Function LockWindowUpdate Lib “user32” (ByVal hwndLock As LongPtr) As Long
Else
Private Declare Function LockWindowUpdate Lib “user32″ (ByVal hwndLock As Long) As Long
End If

”’

”’ 外部ステンシル（.vssx）の絶対パス ”’ 取得・補完したいマスターシェイプの名称 ”’ 取得またはインポートされた Master オブジェクト（失敗時は Nothing）
Public Function GetOrResolveMaster(ByVal stencilPath As String, ByVal masterName As String) As Visio.Master
Dim targetDoc As Visio.Document
Set targetDoc = Visio.ActiveDocument

If targetDoc Is Nothing Then
Err.Raise vbObjectError + 511, “GetOrResolveMaster”, “アクティブなドキュメントが存在しません。”
End If

‘ 1. アクティブドキュメント内に既にキャッシュされているか確認
Dim resolvedMaster As Visio.Master
On Error Resume Next
Set resolvedMaster = targetDoc.Masters.ItemU(masterName)
On Error GoTo 0

‘ 既に存在すれば、それをそのまま返す（最速パス）
If Not resolvedMaster Is Nothing Then
Set GetOrResolveMaster = resolvedMaster
Exit Function
End If

‘ 2. キャッシュにない場合、外部ステンシルからのサイレントインポートを実行
Set resolvedMaster = ImportMasterSilently(targetDoc, stencilPath, masterName)

Set GetOrResolveMaster = resolvedMaster
End Function

”’

Private Function ImportMasterSilently(ByVal destDoc As Visio.Document, _
ByVal stencilPath As String, _
ByVal masterName As String) As Visio.Master

Dim stencilDoc As Visio.Document
Dim sourceMaster As Visio.Master
Dim copiedMaster As Visio.Master
Dim app As Visio.Application

Set app = Visio.Application

‘ 徹底的なパフォーマンス最適化と描画抑制
Dim originalScreenUpdating As Boolean
Dim originalDeferRecalc As Boolean
originalScreenUpdating = app.ScreenUpdating
originalDeferRecalc = app.DeferRecalc

app.ScreenUpdating = False
app.DeferRecalc = True
On Error Resume Next
LockWindowUpdate app.WindowHandle32
On Error GoTo ErrHandler

‘ ファイルの存在検証
If Dir(stencilPath) = “” Then
Err.Raise vbObjectError + 512, “ImportMasterSilently”, “指定されたステンシルファイルが見つかりません: ” & stencilPath
End If

‘ 3. ステンシルをサイレントモードでオープン
‘ visOpenRO (2) + visOpenHidden (64) + visOpenNoWorkspace (256) = 322
Const silentOpenFlags As Integer = 322
Set stencilDoc = app.Documents.OpenEx(stencilPath, silentOpenFlags)

‘ 4. ステンシル内から対象マスターを検索
On Error Resume Next
Set sourceMaster = stencilDoc.Masters.ItemU(masterName)
‘ ユニバーサル名(ItemU)で見つからない場合はローカル名(Item)でフォールバック
If sourceMaster Is Nothing Then
Set sourceMaster = stencilDoc.Masters.Item(masterName)
End If
On Error GoTo ErrHandler

If sourceMaster Is Nothing Then
Err.Raise vbObjectError + 513, “ImportMasterSilently”, _
“ステンシル内に指定のマスターが存在しません: ” & masterName
End If

‘ 5. マスターをターゲットドキュメントのMastersコレクションにドロップ（複製）
‘ Masters.Dropに別ドキュメントのMasterオブジェクトを渡すと、定義がコピーされる
Set copiedMaster = destDoc.Masters.Drop(sourceMaster, 0, 0)

‘ コピーされたマスターの名前を元の名前に厳密に合わせる
copiedMaster.Name = masterName

‘ 正常終了時の戻り値設定
Set ImportMasterSilently = copiedMaster

CleanUp:
‘ 6. メモリおよびリソースの厳密な解放（LIFO順序）
On Error Resume Next
If Not stencilDoc Is Nothing Then
stencilDoc.Close
Set stencilDoc = Nothing
End If

Set sourceMaster = Nothing

‘ 描画・計算状態の復元
LockWindowUpdate 0
app.ScreenUpdating = originalScreenUpdating
app.DeferRecalc = originalDeferRecalc
Exit Function

ErrHandler:
‘ エラー情報のスタック保持とクリーンアップの強制
Dim errDesc As String
Dim errNum As Long
errDesc = Err.Description
errNum = Err.Number

Resume CleanUp
‘ 呼び出し元へエラーを再スロー
Err.Raise errNum, “SilentMasterResolver”, errDesc
End Function

—

4. このロジックを実戦配備するための呼び出し例

以下は、上記で作成した `GetOrResolveMaster` 関数を利用し、ネットワーク上の共有フォルダ、あるいはローカルに配置されたシステム専用ステンシルから、実行時に動的に「サーバー」シェイプと「データベース」シェイプをロードして描画する実装例です。

Public Sub GenerateSystemArchitectureDiagram()
Dim stencilFile As String
‘ 環境に合わせて適切なパスに修正してください
stencilFile = ThisDocument.Path & “Network_Equipment.vssx”

Dim activePage As Visio.Page
Set activePage = Visio.ActivePage

If activePage Is Nothing Then
MsgBox “アクティブなページを開いてから実行してください。”, vbCritical
Exit Sub
End If

Dim targetMasterName As String
targetMasterName = “Database Server”

Dim resolvedMaster As Visio.Master

‘ 自動補完ロジックの呼び出し
On Error GoTo ProcessError
Set resolvedMaster = GetOrResolveMaster(stencilFile, targetMasterName)
On Error GoTo 0

If Not resolvedMaster Is Nothing Then
‘ 解決されたマスターをページの中央にドロップ
Dim droppedShape As Visio.Shape
Set droppedShape = activePage.Drop(resolvedMaster, 4.25, 5.5)

‘ インスタンス固有のプロパティ設定
droppedShape.Text = “基幹データベース”
Set droppedShape = Nothing
Else
MsgBox “マスターの解決に失敗しました。”, vbExclamation
End If

Exit Sub

ProcessError:
MsgBox “エラーが発生しました:” & vbCrLf & Err.Description, vbCritical, “システムエラー”
End Sub

—

5. アーキテクトが語る、運用フェーズにおける「極限の知見」

このサイレントロード機構を本番環境（特に数百台のクライアントPCで動作する社内アドインやマクロテンプレート）にデプロイするにあたり、設計者が考慮すべきプロフェッショナルな知見を共有します。

5.1 ユニバーサル名（`NameU`）とローカル名（`Name`）の罠

多国籍企業や、OSの言語設定が異なる環境で動作させる場合、マスターシェイプの「名前」の指定には細心の注意を払ってください。
Visioオブジェクトには、表示用の `Name` と、内部識別用の `NameU`（ユニバーサル名）が存在します。
上記のコードでは、まず国際標準である `ItemU` での解決を試み、失敗した場合にローカル名（`Item`）にフォールバックする2段構えの検索アルゴリズムを採用しています。これにより、日本語版で作成したステンシルを英語版のVisio環境で実行した際の名前の不一致エラーを極限まで防ぎます。

5.2 Windows API `LockWindowUpdate` による完全なフリッカー対策

Visioオブジェクトの `Application.ScreenUpdating = False` は強力ですが、稀にドキュメントの新規オープンやウィンドウの非表示化の瞬間に、OS側のデスクトップマネージャー（DWM）が再描画を検知し、一瞬だけグレーの砂嵐やウィンドウの枠線が画面に走ることがあります。
これを物理的に封殺するため、本ロジックでは `user32.dll` の `LockWindowUpdate` APIをインポートしています。これにより、Visioプロセスが所有するウィンドウハンドルに対してOSレベルで描画更新を完全にロックし、処理終了後にアンロックすることで、1ミリ秒のちらつきすら許さない完璧なユーザー体験（UX）を提供します。

5.3 ステンシルファイルのキャッシュとネットワーク遅延

外部ステンシルがネットワーク上のファイルサーバー（`\\shared_server\stencils\`）に配置されている場合、描画処理のたびに `OpenEx` を呼び出すと、ネットワークI/Oがボトルネックとなりパフォーマンスが低下します。
これを回避するためには、同一セッション（同一マクロ実行サイクル）内で何度も同じステンシルを参照する場合、一度開いた `stencilDoc` をモジュールレベルのプライベート変数（または静的コレクション）にキャッシュし、処理全体の最後に一括してクローズする「遅延クローズ方式」への拡張を検討してください。

—

6. まとめ

今回解説した `SilentMasterResolver` は、単なるエラー回避のコードではなく、「ユーザーにシステム構造を意識させず、いかに美しく、堅牢に自動化プロセスを完遂させるか」というプロフェッショナルな設計思想を具現化したものです。

COMの徹底的な解放、Windows APIを用いた描画制御、そして `OpenEx` のフラグ最適化。これらを組み合わせることで、あなたのVisio自動化システムは、レガシーでありながらも極めて洗練された、現代のエンタープライズ環境に耐えうる頑強なアーキテクチャへと昇華するでしょう。