Visio VBAの深淵：`HasCategory`を制し、型なきシェイプを「意味」で支配せよ
Visioの図面を単なる「線の集まり」として扱うのは、アマチュアのやり方だ。
我々プロフェッショナルにとって、Visioのシェイプは「意味を持つオブジェクト」であり、そのメタデータこそがシステム自動化の生命線である。
特に、近年のVisio（2013以降）において導入された `Shape.HasCategory` は、シェイプの役割を判定するための強力な武器だ。しかし、このメソッドを「単なるIF文の条件」としてしか使っていないのなら、君のアーキテクチャはまだ甘いと言わざるを得ない。
今日は、大規模なVisio自動化システムで生き残るための、極限の分類ロジックを伝授する。
—
1. なぜ「型判定」に `HasCategory` を選ぶべきなのか
古参のエンジニアなら、`Shape.Type` や `Shape.Name` でシェイプを判別しようとして、図面のローカライズや名前変更で爆死した経験があるはずだ。あれは悪夢だ。
`HasCategory` は、シェイプの背後に隠された「振る舞い（Behavior）」を直接問う。
- コンテナ（Containers）: グループ化とは異なる、階層管理の論理構造。
- コールアウト（Callouts）: データと図形を紐付けるメタ情報の媒介。
- 組織図（OrgChart）: 特殊な接続ルールを持つエンティティ。
これらは `Master` の名前や図形IDに依存しない。図面がどれほど複雑化しても、この判定軸は揺るがない。これが「堅牢な自動化」の第一歩だ。
—
2. 実践：高効率シェイプ判定エンジン
以下のコードは、単なる判定ではなく、メモリ管理と再帰処理を考慮した「実戦仕様」のモジュールだ。大規模図面で `DoEvents` を挟まないのは、OSへの冒涜である。
Option Explicit
‘ 大規模図面におけるパフォーマンス維持のための定数
Private Const BATCH_SIZE As Long = 500
Public Sub ProcessShapesByCategory(ByVal targetPage As Visio.Page)
Dim shp As Visio.Shape
Dim i As Long
‘ ページ内の全シェイプを列挙
‘ 再帰的に処理する場合、グループ化されたシェイプの構造に注意すること
For Each shp In targetPage.Shapes
‘ HasCategoryは内部的にメタデータを検索するため、
‘ 頻繁に呼び出す場合はプロパティの評価順序を最適化せよ
If shp.HasCategory(“Container”) Then
HandleContainer shp
ElseIf shp.HasCategory(“Callout”) Then
HandleCallout shp
Else
‘ 未知のシェイプに対するフォールバック
Debug.Print “Generic Shape Found: ” & shp.Name
End If
‘ メモリ解放の定石：巨大なループ内では適宜DoEventsでUIを解放する
i = i + 1
If i Mod BATCH_SIZE = 0 Then DoEvents
Next shp
End Sub
Private Sub HandleContainer(ByRef shp As Visio.Shape)
‘ コンテナ内のメンバーを高速に列挙する際は
‘ shp.ContainerProperties.GetMemberShapes を活用せよ
‘ 汎用的なShapes.Item(i)をループさせるのは低速である
Debug.Print “Processing Container: ” & shp.Name
End Sub
—
3. レガシー環境を生き抜く：OS・メモリの最適化
VBAは、放置すればメモリリークの温床となる。特にVisioの場合、`Shape` オブジェクトをループ処理する際に `Document` や `Page` への参照が残存し、図面を閉じてもプロセスがメモリに残ることがある。
伝説的エンジニアの鉄則：
1. オブジェクトの明示的解放: `Set shp = Nothing` は儀式ではない。巨大なコレクションを操作した後は、スコープを抜ける前に必ず参照をクリアせよ。
2. API呼び出しの極小化: 画面描画の更新を防ぐ `Application.ScreenUpdating = False` は必須だが、さらなる高速化が必要なら、`Win32 API` の `LockWindowUpdate` を併用し、イベントの発生を根底から遮断せよ。
3. Late Bindingの是非: 開発時は `Early Binding` で型安全性を確保し、配布時には `Late Binding` でバージョン差異を吸収する。これが現場で生き残る唯一の道だ。
—
4. アーキテクトからの提言：システム間連携の未来
`HasCategory` で分類したデータは、XML（Visioのネイティブ構造）に書き出し、外部のDBやRPAへと繋げよ。
Visio図形にプロパティ（User定義セル）を付与し、`HasCategory` をトリガーにしてそのメタデータを読み出すパイプラインを構築すれば、図面は単なる「絵」から「構造化データベース」へと進化する。
これこそが、Visio自動化の究極系だ。
—
最後に：コードは「芸術」ではなく「インフラ」である
綺麗に書くことは重要だが、それはメンテナンスのためだ。コードは君の思想を反映し、数年後の保守担当者が唸るような、無駄のない骨組みでなければならない。
`HasCategory` を使いこなすことは、Visioの「魂」に直接触れることと同義だ。
次は、さらに踏み込んで `EventSink` を用いた「シェイプ操作のリアルタイム監視」について語ることにしよう。
現場からは以上だ。健闘を祈る。
