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

スポンサーリンク
スポンサーリンク

Visioステンシルの秩序を支配せよ：マスターシェイプ自動整列の極意

Visioというソフトウェアは、単なる作図ツールではない。それは、膨大なシェイプという「資産」を管理し、論理構造を視覚化するためのデータ駆動型エンジンだ。しかし、多くの現場では、ステンシルウィンドウが混沌の極みにある。

「目的のシェイプを探すのに5秒かかる」

この5秒の積み重ねが、エンジニアのフローを断ち切り、生産性を著しく低下させる。ステンシル内のマスターシェイプを名前順・カテゴリ順に自動整列させることは、単なるUIの整理ではない。「情報検索コストの最適化」というエンジニアリングの基本動作である。

今回は、Visio VBAの深淵に触れつつ、ステンシル管理の最適解を提示する。

1. Visioオブジェクトモデルの「隠れた制約」を理解する

Visioにおいて、ステンシル内のマスターシェイプは `Master` オブジェクトの集合体である。しかし、`Masters` コレクション自体には、「表示順序（Index）」を直接入れ替えるメソッドは存在しない。

これは、VisioのUIがステンシル内のシェイプを「内部ID順」ではなく「レンダリング時の順序」で管理していることに起因する。この障壁を突破する唯一の手段は、「新しいステンシルへの再構築」という破壊的再構成である。

2. 破壊的再構成によるソートの実装

マスターシェイプを物理的に別のステンシルへコピーし、ソート順に従って再配置するアプローチをとる。この際、メモリの解放とオブジェクトの参照管理を厳密に行わなければ、Visioのメモリリーク（特に複雑なメタデータを含むシェイプの場合）は避けられない。

' ステンシル内のマスターを名前順に整列するアーキテクチャ
Public Sub SortStencilMasters(ByVal targetStencilName As String)
    Dim vsoDoc As Visio.Document
    Dim vsoStencil As Visio.Document
    Dim vsoNewStencil As Visio.Document
    Dim mastersList As Collection
    Dim i As Long
    
    ' 1. オブジェクト参照の取得
    Set vsoStencil = Application.Documents(targetStencilName)
    
    ' 2. ソート対象の抽出（コレクションによる一時保持）
    Set mastersList = New Collection
    For i = 1 To vsoStencil.Masters.Count
        mastersList.Add vsoStencil.Masters(i)
    Next i
    
    ' 3. バブルソート（またはクイックソート）による名前順並べ替え
    ' ※本番環境では大規模データ用にクイックソート実装を推奨
    SortCollectionByNames mastersList
    
    ' 4. 新規ステンシルの作成（一時的に非表示で生成）
    Set vsoNewStencil = Application.Documents.AddEx("", , , visAddStencil)
    
    ' 5. 整列した順序でマスターをコピー
    Dim vsoMaster As Visio.Master
    For i = 1 To mastersList.Count
        Set vsoMaster = mastersList(i)
        vsoMaster.Copy.Drop vsoNewStencil.Masters, 0, 0
    Next i
    
    ' 6. クリーンアップ：メモリを強制解放する
    Set vsoMaster = Nothing
    Set mastersList = Nothing
    
    ' 注意：この後、元のステンシルを閉じ、名前を付け替える処理へ続く
    Debug.Print "Sort process completed."
End Sub

3. シニアエンジニアが意識すべき「メモリの重み」

上記のコードで最も注意すべきは、`vsoMaster.Copy` の挙動だ。Visioは `Copy` メソッドが呼ばれるたびに内部の `ObjectStore` に新しいインスタンスを生成する。大規模なステンシル（数百シェイプ）を扱う場合、これを怠るとVisioプロセスは急激にメモリを肥大化させる。

  • `Set Object = Nothing` の徹底: スコープを抜ける前に、必ず参照を解放すること。
  • イベントハンドラの無効化: 処理実行中、`Application.DocumentOpened` 等のイベントが走ると、再描画のオーバーヘッドで処理が数秒単位で遅延する。`Application.EventEnabled = False` を活用せよ。

4. レガシー環境でのAPI活用：Windows APIによるUI制御

さらに一歩踏み込み、ステンシルウィンドウのスクロール位置を制御したり、特定のカテゴリにフォーカスを当てる必要がある場合、VBAの標準機能では限界がある。その際は、`User32.dll` の `SendMessage` を使用して、ウィンドウハンドル（HWND）を直接操作する手法をとる。

#If VBA7 Then
    Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" _
        (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr

Else

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
        (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

End If



この手法は、VisioのUIスレッドを直接叩くため、「自己責任」の極致である。しかし、数千のシェイプを扱う大規模システムにおいて、UIのレスポンスを制御できる唯一の「外科手術」となる。


結論：秩序はコードによってのみ作られる


ステンシルという混沌に秩序をもたらすことは、単なる自己満足ではない。システムを利用するエンドユーザーに対し、「視覚的な明瞭さ」という最高のUXを提供することである。


Visioの内部構造を理解し、メモリを管理し、必要とあればWindows APIまで掘り下げる。それが、我々エンジニアが持つべき「Visioを掌握する姿勢」だ。


次にステンシルを開くとき、整然と並んだマスターシェイプを見てほしい。それは、君がコードで刻んだ秩序の証である。
スポンサーリンク
タイトルとURLをコピーしました