【実務・中級編】【中級】ステンシル内のマスターシェイプを名前順・カテゴリ順に自動整列する – Visio VBA解析バイブル

【Visio VBA 極限講義】ステンシル管理のパラダイムシフト：UIの混沌を排する「データ駆動型マスター再構築」戦略

設計者、あるいは自動化エンジニアの諸君。
君たちは、ユーザーから「このステンシル、シェイプが多すぎてどれがどれだか分からない」「探しにくい」という、極めて初歩的だが致命的なクレームを受けたことはないだろうか？

多くの開発者は、ここで「シェイプの名前を分かりやすくしましょう」といった、表面的な解決策を提示する。だが、それは本質的な解決ではない。UI（ユーザーインターフェース）の乱れは、設計思想の欠如の現れである。

Visioにおけるステンシル（Stencil）は、単なる「図形の置き場」ではない。それはユーザーが設計プロセスにおいて最初に触れる「道具箱」だ。道具がバラバラに放り込まれた箱を、プロの設計者が使うと思うか？

本記事では、ステンシル内のマスターシェイプを名前順・カテゴリ順に自動整列させるというテーマを、単なる「並び替えのコード」としてではなく、「データ駆動型によるUI最適化」というアーキテクチャの観点から解説する。

1. なぜ「単なるソート」では失敗するのか

一般的なリファレンスには、「マスターのコレクションをループして、名前を比較する」といった記述があるだろう。しかし、実務レベルのプロダクションコードにおいて、そのアプローチは極めて脆弱だ。

既存のステンシルを直接操作するリスク

Visioのステンシル内にあるマスターシェイプの並び順（Index）は、そのマスターがステンシルに追加された順序に依存している。VBAの標準的な `Master` コレクションには、`Sort` メソッドのような「表示順序を直接書き換えるプロパティ」は存在しない。

つまり、「既存の並び順を入れ替える」という思考自体が、Visioのオブジェクトモデルの制約に衝突しているのだ。

賢明な設計：ViewとModelの分離

プロフェッショナルなエンジニアは、ステンシルを「データの格納庫」ではなく、「外部データ（Model）を反映するための表示領域（View）」と定義する。

1. Model: Excelやデータベース、あるいは構造化された外部ファイルにマスターの定義（名前、カテゴリ、参照パス）を保持する。
2. Logic: Modelを読み込み、プログラム上で論理的にソートする。
3. View (Stencil): 既存のマスターを一度クリアし、ソート済みのModelに基づいてマスターを再配置する。

この「破壊的再構築」こそが、バグを最小限に抑え、かつ確実に意図したUIを実現する唯一の堅牢な設計である。

2. 実装の設計指針

堅牢なツールを作るために、以下の3原則をコードに組み込む。

1. Error Isolation（エラーの隔離）: ステンシルが読み取り専用の場合や、ファイルがロックされている場合に備え、オブジェクトのライフサイクルを厳格に管理する。
2. Atomicity（原子性）: 「全削除」と「全追加」を一つのトランザクションとして扱う。途中でエラーが起きた場合、中途半端な状態を残さない。
3. Performance Optimization（パフォーマンス最適化）: 大量のマスターを扱う際、`ScreenUpdating` を制御し、描画負荷を最小化する。

3. プロダクション・コード例

以下に、外部の定義データ（ここでは簡略化のため配列で代用）に基づき、ステンシルをカテゴリ・名前順に再構築する、保守性の高いクラスモジュール的な実装を示す。

' ==============================================================================
' Module: StencilManager
' Description: ステンシルのマスターシェイプを論理的に再構築する
' ==============================================================================

Option Explicit

' マスター情報の構造体
Private Type MasterDefinition
    Name As String         ' マスター名
    Category As String     ' カテゴリ名
    SourcePath As String   ' 元となるマスターを含むステンシルのパス（必要に応じて）
End Type

''' <summary>
''' ステンシル内のマスターを、定義に基づき名前順・カテゴリ順に再構築する
''' </summary>
Public Sub RebuildStencilWithOrder()
    Dim targetStencil As Visio.Stencil
    Dim masterList() As MasterDefinition
    Dim i As Long, j As Long
    Dim temp As MasterDefinition
    
    On Error GoTo ErrorHandler

    ' 1. データの準備 (本来はExcelやDBから読み込むべき「Model」部分)
    ' ここではデモ用に、バラバラな順序で定義
    ReDim masterList(2)
    masterList(0).Name = "Connector_Red":    masterList(0).Category = "Lines"
    masterList(1).Name = "Box_Large":       masterList(1).Category = "Shapes"
    masterList(2).Name = "Connector_Blue":  masterList(2).Category = "Lines"
    ' 注: 実際にはもっと多くの要素が存在すると想定

    ' 2. ロジックによるソート (カテゴリ順 -> 名前順)
    ' バブルソートを用いた教育的な実装（実務ではコレクションや配列ソートを使用）
    For i = LBound(masterList) To UBound(masterList) - 1
        For j = i + 1 To UBound(masterList)
            ' カテゴリが異なる、またはカテゴリが同じで名前が辞書順でない場合
            If (masterList(i).Category > masterList(j).Category) Or _
               (masterList(i).Category = masterList(j).Category And masterList(i).Name > masterList(j).Name) Then
                
                temp = masterList(i)
                masterList(i) = masterList(j)
                masterList(j) = temp
            End If
        Next j
    Next i

    ' 3. Visio 操作の開始
    ' 描画停止による高速化
    Application.ScreenUpdating = False
    
    ' 対象のステンシルを開く (既存のものを開くか、新規作成するか)
    ' ここでは「ActiveStencil」を対象とするが、実務ではパス指定を推奨
    Set targetStencil = ActiveDocument.AttachedStencils.Item(1) ' 仮の指定
    
    ' --- 警告: 既存マスターの削除 ---
    ' プロダクション環境では、削除前にバックアップやユーザー確認を挟む設計にせよ
    Debug.Print "Clearing existing masters..."
    Do While targetStencil.Masters.Count > 0
        targetStencil.Masters.Item(1).Delete
    Loop

    ' 4. ソート済みデータに基づく再構築 (Viewへの反映)
    Debug.Print "Rebuilding masters in order..."
    For i = LBound(masterList) To UBound(masterList)
        ' 本来は、外部の.vssxからマスターをコピーする処理をここに記述する
        ' 今回は概念を示すため、空のマスターを作成するロジックとする
        ' 実務では: targetStencil.Masters.Add("SourceStencilPath", masterList(i).Name)
        
        ' ダミーのマスター作成（動作確認用）
        Dim newMaster As Visio.Master
        ' ※ 実際には既存のマスターを「コピー」してくるのが一般的
        ' ここでは概念的な流れを重視
        Debug.Print "Adding: [" & masterList(i).Category & "] " & masterList(i).Name
    Next i

    MsgBox "ステンシルの再構築が完了しました。", vbInformation
    
CleanUp:
    Application.ScreenUpdating = True
    Exit Sub

ErrorHandler:
    MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical, "Architect Error"
    Resume CleanUp
End Sub

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

このコードを実務に投入するにあたり、以下の3点を必ず考慮せよ。

① マスターの「取得元」をどう管理するか

上記のコードでは `targetStencil.Masters.Add` の部分を簡略化しているが、実務では「どの `.vssx` ファイルから、どのマスターを、どの名前で持ってくるか」というマッピングテーブルが必須だ。これをExcelのテーブル形式で管理しておけば、プログラムを書き換えることなく、ノンプログラマー（運用担当者）がUIの並び順や構成を変更できるようになる。これが「保守性の高いツール」の定義だ。

② 権限とファイルロックのハンドリング

ステンシルが `Read-Only` で開かれている場合、`Delete` メソッドは確実に失敗する。
`If targetStencil.ReadOnly Then …` のチェックを必ず入れ、ユーザーに対して「ステンシルが読み取り専用です。書き込み権限を確認してください」という明確なエラーメッセージを返せ。曖昧なエラーは、ユーザーの信頼を損なう。

③ パフォーマンスの限界を知る

マスターの数が数百、数千に及ぶ場合、`Do While … Delete` ループは重くなる。その場合は、ステンシルそのものを一度閉じて、新しい構成のステンシルファイルを生成して `Documents.Add` する方が、圧倒的に高速でクリーンな結果を得られる。

まとめ

Visio VBAにおけるUI最適化は、単なる「見た目の整理」ではない。それは、「データ構造をいかにして秩序ある表示へと変換するか」というエンジニアリングそのものである。

「とりあえず動く」コードを書くのは誰にでもできる。しかし、「データの変更に強く、ユーザーの認知負荷を最小限に抑える」設計ができる者こそが、真のチーフアーキテクトである。

次に君がステンシルを操作するとき、その背後にある「データの流れ」を意識することを忘れないでほしい。