こんにちは！Visioの自動化の世界へようこそ。
マクロの記録ボタンを押して、生成されたコードを眺めてみたものの、「なんだか難解だし、自分の思い通りに動かないな…」と感じていませんか？
大丈夫です。その壁は、誰もが最初に通る道です。
今回は、Visio VBAの基礎のキタンドである「オブジェクトモデル」を正しく理解し、さらに実務で即戦力となる「メモリ節約型の超高速ステンシル検索エンジン」の作り方を、優しく、そして本質的なところまで徹底的に解説していきます。
ここをクリアすれば、あなたのVisio VBAスキルは「初学者」の領域を抜け出し、確かなアーキテクチャを描けるエンジニアへと一歩踏み出すことができますよ。それでは、一緒に紐解いていきましょう！
—
1. Visio VBAの基礎：オブジェクトモデルという「階層構造」を掴む
VisioのVBAを操る上で、絶対に避けて通れないのがオブジェクトモデルです。
Visioの世界は、綺麗に整理された「マトリョーシカ（ロシア人形）」のような階層構造になっています。
Application（Visioアプリ全体）
└─ Documents（開かれているファイル群）
└─ Document（個別のファイル・ステンシル）
└─ Pages（ページ群）
└─ Page（個別のページ）
└─ Shapes（図形群）
└─ Shape（個別の図形・マスター図形）
例えば、「今開いているファイルの、1ページ目にある、あの図形の色を変えたい！」というとき、私たちはこの階層を上から順に辿っていくことになります。
- `Application.ActiveDocument.Pages(1).Shapes(1)`
この「どこを操作しているのか」という現在地（コンテキスト）を意識できるようになると、VBAのコードは魔法のようにスラスラと書けるようになります。
—
2. 実務の罠：「普通にステンシルを開く」と何が起きるのか？
さて、社内で共有されている「標準シェイプ（ステンシル：.vssxファイル）」の中から、特定の図形（マスター）をプログラムから探したい場面を想像してください。
よくある素朴なコードはこうです：
‘ 【アンチパターン】普通にステンシルを開く例
Dim stnDoc As Visio.Document
Set stnDoc = Application.Documents.Open(“C:\Shapes\Standard.vssx”)
一見、これで動くように見えますが、大規模な開発や自動化の現場ではこれだと致命的な問題（パフォーマンス低下・メモリリーク）が起きます。 なぜなら：
1. 書き込み権限（排他制御）を取ってしまう：ネットワーク上の共有フォルダにあるステンシルを開いた場合、他の人が編集できなくなったり、自分も「読み取り専用」の警告ダイアログに悩まされます。
2. メモリを無駄に消費する：画面上に無駄なウィンドウ（UI）を表示したまま処理すると、Visioのレンダリングエンジンに負荷がかかり、大量のステンシルを巡回する検索エンジンとしてはあまりにも遅すぎます。
プロのエンジニアは、「裏側でこっそり、誰の邪魔もせず、最軽量のモードで開く」という技を使います。それが今回紹介する `Document.OpenStencil` と `visOpenRO` です。
—
3. 実装：メモリ節約型・高速ステンシル検索エンジン
それでは、今回のメインテーマである「読み取り専用（visOpenRO）かつ非表示でステンシルを開き、メモリを浪費せずに目的のマスターを抽出する」実用コードを公開します。
開発環境のVBAエディタ（`Alt + F11`）を開き、標準モジュールに貼り付けてみてください。
Option Explicit
Sub SearchMasterInStencil()
‘ ==========================================
‘ メモリ節約型ステンシル検索エンジン
‘ ==========================================
Dim targetStencilPath As String
Dim stnDoc As Visio.Document
Dim mst As Visio.Master
Dim searchKeyword As String
Dim foundCount As Long
‘ 1. 検索条件の設定（実際のパスやキーワードに書き換えてください）
targetStencilPath = “C:\VisioTemplates\NetworkShapes.vssx”
searchKeyword = “ルーター”
foundCount = 0
‘ 2. ファイルの存在チェック
If Dir(targetStencilPath) = “” {
MsgBox “指定されたステンシルが見つかりません: ” & targetStencilPath, vbCritical
Exit Sub
}
On Error GoTo ErrorHandler
‘ 3. 【最重要】バックグラウンドで読み取り専用（visOpenRO）として開く
‘ 画面描画を伴わず、メモリ消費を極限まで抑えてDocumentオブジェクトを取得します。
Set stnDoc = Application.Documents.OpenEx(targetStencilPath, visOpenRO + visOpenHidden)
Debug.Print “— 検索開始: ” & searchKeyword & ” —”
‘ 4. ステンシル内のマスター（図形の元型）を全走査
For Each mst In stnDoc.Masters
‘ マスターの名前やプロパティにキーワードが含まれているか判定
If InStr(1, mst.Name, searchKeyword, vbTextCompare) > 0 Then
foundCount = foundCount + 1
Debug.Print “発見! [ID: ” & mst.ID & “] ” & mst.Name
‘ ここでgetActivePageに図形をドロップするなどの処理を繋げられます
‘ 例: ActivePage.Drop mst, 5, 5
End If
Next mst
Debug.Print “— 検索終了 (該当数: ” & foundCount & “件) —”
‘ 5. 【重要】用が済んだら即座にメモリから解放（Close）する
‘ これを忘れるとVisioがバックグラウンドでメモリを保持し続けます。
stnDoc.Close
Set stnDoc = Nothing
MsgBox “検索が完了しました。イミディエイトウィンドウを確認してください。”, vbInformation
Exit Sub
ErrorHandler:
‘ エラーハンドリング：異常終了時も必ずドキュメントを閉じてメモリリークを防ぐ
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
If Not stnDoc Is Nothing Then
stnDoc.Close
Set stnDoc = Nothing
End If
End Sub
コードのここがスゴい！プロのポイント解説
1. `visOpenRO` (Read-Only) の指定
ファイルを「読み取り専用」で開くことで、ファイルロックを回避し、複数人での同時利用や共有サーバー上での動作を完全に安定させます。
2. `visOpenHidden` によるUI描画の抑制
人間には見えないバックグラウンド空間で処理するため、Visioの画面がパカパカ切り替わったり、描画処理にCPUパワーを奪われることがありません。処理速度が劇的に向上します。
3. 確実なメモリ解放 (`stnDoc.Close`)
オブジェクトをメモリにロードしたまま放置すると、VBAのガベージコレクションが追いつかずにメモリリーク（メモリ食い潰し）を起こします。`Errorhandler` を含めて、「開いたら確実に閉じる」というライフサイクルの管理を徹底しています。
—
まとめ：ここをクリアすれば、Visio VBAの基本はバッチリ！
お疲れ様でした！今回はVisio VBAの基礎であるオブジェクトモデルの考え方と、実務で必ず役立つ「メモリ節約型のステンシル検索」のテクニックを解説しました。
- Visioはマトリョーシカ構造（オブジェクトモデル）で成り立っていること。
- 大量のファイルを扱うときは、`visOpenRO` + `visOpenHidden` で軽量かつ安全にアクセスすること。
- 使い終わったオブジェクトは、エラー時も含めて必ず `.Close` でメモリから解放すること。
この3つを体に叩き込んでおけば、どんなに巨大な社内標準図面データベースを相手にしても、軽快で堅牢な自動化ツールを作ることができます。
あなたのVisio自動化ライフが、より知的で快適なものになりますように。
それでは、次のステップの解説でお会いしましょう！
