【実務・中級編】【初心者】ステンシルを開かずにマスターシェイプの数だけを高速カウントする方法 – Visio VBA解析バイブル

Visio VBA

2026.11.14

「Document.Open」を卒業せよ：Visio VBAにおけるマスターシェイプ高速取得の極意

「Document.Open」を卒業せよ：Visio VBAにおけるマスターシェイプ高速取得の極意

業務自動化の現場で、ツールを作っている人間が陥りやすい致命的な罠がある。それは、「Visioのオブジェクトモデルを、まるで魔法の杖のように、何でもかんでも『Open』して解決しようとする」ことだ。

例えば、「特定のステンシル内に、マスターシェイプがいくつ含まれているかを知りたい」という要件。初心者はこう書く。

' --- 初心者が書く「重い」コードの典型例 ---
Dim doc As Visio.Document
Dim count As Long
count = 0

' ステンシルをUI上で開くのと同等の処理が走り、メモリと時間を大量に消費する
Set doc = Application.Documents.Open("C:\Templates\MyStencil.vssx")

For Each master In doc.Masters
    count = count + 1
Next master

doc.Close
Set doc = Nothing
MsgBox "マスター数は " & count & " です。"

このコードは、一見正しく動く。しかし、これが「100個のステンシルをスキャンする」あるいは「数GBの図面データを扱う」といった実務のスケールになった瞬間、あなたのツールは「動かないも同然のゴミ」へと成り下がる。

なぜか？ `Documents.Open` は、単にファイルを開くだけではない。Visioの描画エンジンを起動し、UIを更新し、すべてのシェイプのメタデータをメモリ上に展開し、関連するリソースをすべてロードする、極めて「重い」操作だからだ。

本記事では、プロフェッショナルとして、「Documentオブジェクトをフルロードせずに、メタデータのみを効率的に取得する」ための設計思想と、堅牢な実装手法を伝授する。

1. なぜ「Open」がパフォーマンスの敵なのか

アーキテクトの視点から見れば、すべての操作は「コスト」で評価される。`Documents.Open` には、以下の3つのコストが潜んでいる。

1. I/O コスト: ファイル全体を読み込み、オブジェクトツリーを構築する。
2. メモリ・オーバーヘッド: 図面内のすべてのシェイプ、レイヤー、スタイルをメモリ上に展開する。
3. UI スレッドのブロッキング: `ScreenUpdating` を制御していても、Visioの内部プロセスとしての「オープン処理」は、アプリケーションの動作を著しく重くする。

もし、目的が「マスターの数を知ること」だけであれば、図面全体を描画する必要など微塵もないはずだ。

2. 設計指針：メタデータへのアプローチ

真に高速なツールを設計する場合、我々は2つの道を選択できる。

A. オブジェクトモデルの「最小限の利用」 (Practical Approach)

VisioのAPIを使いつつも、UIへの干渉を極限まで抑え、メモリ解放を徹底する手法。開発スピードと堅牢性のバランスが良い。

B. XML構造への直接アクセス (Architect Approach)

`.vssx` ファイルは、実態は OpenXML形式のZIPアーカイブ である。つまり、Visioを起動することなく、中にあるXMLファイルを解析（パース）すれば、マスターの数など一瞬でカウントできる。これは「開いていない」と言える究極の軽量手法だ。

今回は、実務での導入しやすさと保守性を考慮し、「A：オブジェクトモデルを極限まで制御した堅牢な実装」をメインに解説する。

3. プロダクション・レディな実装例

以下に示すコードは、単なるカウント処理ではない。エラーハンドリング、メモリ管理、そして実行速度を考慮した、そのまま業務ツールに組み込めるクラスモジュール級の関数である。

''
' ステンシル内のマスターシェイプ数を高速かつ安全に取得する
' @param stencilPath : ステンシルファイルへのフルパス
' @return : マスターの数。失敗した場合は -1
''
Public Function GetMasterCountFast(ByVal stencilPath As String) As Long
    Dim doc As Visio.Document
    Dim masterCount As Long
    Dim m As Visio.Master
    
    ' 1. 事前バリデーション：ファイルが存在するか？
    If Dir(stencilPath) = "" Then
        Debug.Print "Error: File not found -> " & stencilPath
        GetMasterCountFast = -1
        Exit Function
    End If

    ' 2. パフォーマンス最適化の開始
    ' 描画更新を停止し、イベントによる割り込みを防ぐ
    On Error GoTo ErrorHandler
    Application.ScreenUpdating = False
    
    ' 3. ステンシルのオープン
    ' ※OpenEx を検討することもあるが、基本は Open で十分。
    ' ただし、必ず「変数への代入」と「明示的なClose」をセットで行う。
    Set doc = Application.Documents.Open(stencilPath)
    
    ' 4. 高速カウント処理
    ' Mastersコレクションは、中身のシェイプをロードしないため、
    ' ループ自体は比較的軽量である。
    masterCount = doc.Masters.Count
    
    ' 5. 後処理（クリーンアップ）
    ' ここが最も重要。メモリリークを防ぐため、必ず閉じる。
    doc.Close
    Set doc = Nothing
    
    GetMasterCountFast = masterCount

CleanExit:
    ' 実行環境を元の状態に戻す
    Application.ScreenUpdating = True
    Exit Function

ErrorHandler:
    ' 予期せぬエラー（ファイルロック、破損など）が発生した場合
    Debug.Print "Error in GetMasterCountFast: " & Err.Description
    
    ' 失敗時でも、開いたままにしない。これがプロの作法。
    If Not doc Is Nothing Then
        doc.Close
        Set doc = Nothing
    End If
    
    GetMasterCountFast = -1
    Resume CleanExit
End Function

このコードの「設計の重み」

防御的プログラミング: `Dir()` による事前チェック、および `On Error GoTo` によるエラーハンドリングを徹底している。ファイルが他のプロセスにロックされていたり、破損していたりしても、呼び出し元のアプリケーションをクラッシュさせない。
リソースの確実な解放: `doc.Close` だけでなく、`Set doc = Nothing` を明示している。Visio VBAにおいて、オブジェクトの参照が残ることは、メモリリークと「ゾンビプロセス」の発生に直結する。
副作用の最小化: `Application.ScreenUpdating = False` を使用し、処理中の画面のちらつきを抑え、CPUリソースを計算に集中させている。

4. さらに上を目指すエンジニアへ：XMLパースの概念

もし、あなたが「数千個のステンシルを、Visioを起動せずにバックグラウンドで処理したい」という極限の要件に直面したなら、次のステップへ進め。

`.vssx` ファイルの拡張子を `.zip` に変えて解凍してみると分かるが、中には `visio/masters.xml` （あるいはそれに類するXML）が存在する。
VBAから `MSXML2.DOMDocument` を利用し、このXML内の `` タグの数をカウントすれば、Visioのドキュメントオブジェクトを一切生成することなく、数ミリ秒で結果を得られる。

これは「アプリケーションを操作する」のではなく、「データを操作する」という、エンジニアリングにおけるパラダイムシフトだ。

結論

業務自動化ツールの品質は、「正常系がいかに動くか」ではなく、「異常系やリソース枯渇時にいかに振る舞うか」で決まる。

「とりあえず `Open` してループを回す」という書き方を卒業し、オブジェクトのライフサイクルを完全に掌握せよ。それが、信頼されるアーキテクトへの第一歩である。