【実務・中級編】【初心者】ステンシルファイルをVBAで自動的に開く・閉じる基本ルーチン – Visio VBA解析バイブル

ステンシル管理の設計思想：なぜあなたのVisio自動化は「不安定」なのか？

業務自動化の世界において、「動くコード」を書くことは最低条件に過ぎない。我々プロフェッショナルが追求すべきは、「止まらない、壊れない、そしてリソースを食いつぶさない」堅牢なシステムの構築である。

特にVisio VBAを用いたツール開発において、多くの初学者が陥る罠がある。それが「ステンシル（Stencil）のライフサイクル管理」の放棄だ。

「とりあえずステンシルを開いて、シェイプを配置して、終わり」――もし君がそんな設計をしているなら、そのツールは、大量のデータを処理する際や、長時間稼働させる際に、必ずメモリリークやファイルロック、あるいはVisioのクラッシュを引き起こすだろう。

本記事では、`Documents.OpenEx` メソッドを使いこなし、ステンシルを確実に制御するための「極限のルーチン」を伝授する。

1. 凡庸なコードとプロフェッショナルの設計の違い

まず、避けるべき「アンチパターン」を見てみよう。

【アンチパターン】リソースを放置するコード

' ❌ 避けるべき実装例
Sub BadStencilRoutine()
    Dim stenc As Visio.Document
    ' ファイルパスが間違っていても、開いていなくても、エラーで即死する
    Set stenc = Visio.Documents.Open("C:\Templates\MyStencil.vssx")
    
    ' 何らかの処理...
    
    ' 閉じる処理を忘れている、あるいはエラーでここを通らない
    ' stenc.Close 
End Sub

このコードの何が致命的なのか？
1. エラーハンドリングの欠如: ファイルが存在しない、あるいは他のプロセスが使用中の場合、プログラムは無残に停止する。
2. リソースの枯渇: ステンシルを開きっぱなしにすると、Visioのメモリ空間を占有し続け、最終的にアプリケーション全体の動作を重くする。
3. Dockingの制御不能: 単なる `Open` では、ステンシルが「ドッキングされた状態」で開くのか、「独立したウィンドウ」として開くのかを制御できない。

2. `Documents.OpenEx` を選ぶべき技術的理由

Visio VBAにおいて、ステンシル操作の主役は `Documents.Open` ではなく、`Documents.OpenEx` である。

`OpenEx` メソッドは、オープン時の挙動を細かく制御するための「フラグ」を受け取ることができる。業務ツールとして設計する場合、以下のフラグの使い分けは必須知識だ。

• `visOpenDocked`: ステンシルをシェイプパネルにドッキングした状態で開く。ユーザーの作業性を考慮するならこれだ。
• `visOpenReadOnly`: 読み取り専用で開く。マスターシェイプのテンプレートを誤って書き換えるリスクを排除する、鉄則の設計である。

3. 【プロダクション品質】堅牢なステンシル管理ルーチン

では、実務でそのまま使える、設計思想に基づいたコードを提示しよう。
このコードは、「存在確認」「エラーハンドリング」「確実な解放」の3要素を完全に満たしている。

Option Explicit

''' <summary>
''' 指定したステンシルを安全に開き、処理後に確実に閉じるためのメインルーチン
''' </summary>
Public Sub ExecuteStencilTask()
    Dim targetStencilPath As String
    Dim stencilDoc As Visio.Document
    
    ' 1. 設定情報の管理（本来はDBや外部設定ファイルから取得すべき）
    targetStencilPath = "C:\Templates\Standard_Shapes.vssx"
    
    ' 2. ファイルの存在チェック（無駄なエラーハンドリングを避けるための防衛線）
    If Dir(targetStencilPath) = "" Then
        MsgBox "エラー: 指定されたステンシルファイルが見つかりません。" & vbCrLf & targetStencilPath, vbCritical
        Exit Sub
    End If

    On Error GoTo ErrorHandler

    ' 3. ステンシルのオープン
    ' visOpenDocked: ドッキング状態で開く
    ' visOpenReadOnly: 誤操作防止のため読み取り専用
    Set stencilDoc = Visio.Documents.OpenEx(targetStencilPath, visOpenDocked + visOpenReadOnly)
    
    Debug.Print "ステンシルをロードしました: " & stencilDoc.Name

    ' ---------------------------------------------------------
    ' 4. ここにメインの業務ロジックを記述する
    ' ---------------------------------------------------------
    Call PerformDrawingLogic(stencilDoc)
    ' ---------------------------------------------------------

    ' 5. 後処理：正常終了時も確実に閉じる
    GoTo CleanUp

ErrorHandler:
    ' エラー発生時のログ出力（実務ではログファイルへ書き出すのが定石）
    MsgBox "予期せぬエラーが発生しました。" & vbCrLf & _
           "Error Number: " & Err.Number & vbCrLf & _
           "Description: " & Err.Description, vbExclamation
    Resume CleanUp

CleanUp:
    ' 6. リソースの解放（重要：オブジェクトのライフサイクルを管理する）
    If Not stencilDoc Is Nothing Then
        ' ステンシルがまだ開いている（メモリに存在している）場合のみ閉じる
        ' 既に閉じられている場合のエラーを避けるため、状態を確認するのがプロの作法
        On Error Resume Next
        stencilDoc.Close
        Set stencilDoc = Nothing
        On Error GoTo 0
    End If
    Debug.Print "リソースを解放しました。"
End Sub

''' <summary>
''' 実際の描画ロジック（サンプル）
''' </summary>
Private Sub PerformDrawingLogic(ByRef doc As Visio.Document)
    ' 例: ステンシル内の最初のマスターを使用する
    Dim master As Visio.Master
    If doc.Masters.Count > 0 Then
        Set master = doc.Masters(1)
        Debug.Print "使用中のマスター: " & master.Name
        ' ここでシェイプの配置などを行う
    Else
        Err.Raise vbObjectError + 513, "PerformDrawingLogic", "ステンシル内にマスターが存在しません。"
    End If
End Sub

4. アーキテクトからの設計アドバイス

このコードを実務に投入する際、さらに一段上のレベルへ引き上げるための指針を伝えておく。

① ファイルパスのハードコーディングを撲滅せよ

コード内に `”C:\Templates\…”` と直接書くのは、プログラミングにおける「罪」だ。
ステンシルのパスは、必ず外部の設定ファイル（JSONやINI）、あるいはデータベース（SQL Server/Access等）から取得するように設計せよ。これにより、テンプレートの更新時にソースコードを書き換え、再コンパイルするという無駄なプロセスを排除できる。

② 「ステートレス」な設計を意識せよ

関数は、その引数として渡されたオブジェクトのみに依存すべきだ。上記の `PerformDrawingLogic` が `stencilDoc` を引数として受け取っているのは、グローバル変数に頼らず、依存性を注入（Dependency Injection）することで、テストのしやすさと再利用性を高めるためである。

③ データベース連携時の注意点

もし、DBからステンシルの名前を取得してループ処理を行う場合は、「一つのステンシルを閉じる前に、次のステンシルを開かない」ことを徹底せよ。
`OpenEx` はリソースを消費する。ループ内で `Set doc = Nothing` と `doc.Close` を確実に行わない限り、あなたのツールは、数千件のデータを処理する途中で、メモリ不足によって沈むことになる。

まとめ

Visio VBAにおけるステンシル操作は、単なる「ファイル操作」ではない。それは「アプリケーションのリソース管理」である。

• `OpenEx` を使い、フラグ（`visOpenDocked`, `visOpenReadOnly`）を制御せよ。
• `Try-Catch-Finally` に相当するエラーハンドリング構造を必ず構築せよ。
• オブジェクトのライフサイクル（Open $\rightarrow$ Work $\rightarrow$ Close $\rightarrow$ Nothing）を厳格に管理せよ。

この規律を守ることこそが、現場で「信頼されるエンジニア」となるための唯一の道である。