Visio VBAを掌握する：Shape.ObjectTypeによる「境界線」の厳密な判定術
VisioのAPIは、一見すると階層構造が整理されているように見える。だが、実戦の現場に身を置く者であれば知っているはずだ。`Shape`オブジェクトという箱の中身が、純粋な描画図形なのか、悪夢のようなネストのグループなのか、あるいは外部から埋め込まれたForeignオブジェクトなのかによって、呼び出せるメソッドやプロパティが劇的に変わるという「Visioの闇」を。
安易なキャストや、エラーハンドリングを無視したプロパティ呼び出しは、開発の初期段階では軽微な警告で済むかもしれない。しかし、複雑な図面データを処理するシステムにおいて、それは「ランタイムエラーの時限爆弾」となり、メモリリークやアプリのクラッシュを招く。
本稿では、`Shape.ObjectType`を起点とした、堅牢かつ極限まで最適化された図形判定のアーキテクチャを解説する。
—
1. なぜ「ObjectType」による事前判定が必須なのか
Visio VBAにおける`Shape`オブジェクトは、万能であるがゆえに「型」の概念が曖昧だ。例えば、`Foreign`オブジェクト（OLE埋め込み）に対して無理にシェイプシート操作を行おうとすれば、即座に例外が発生する。
特に、以下の4つの種別は、エンジニアがコードレベルで明確に区別し、処理を分岐させる必要がある。
- visTypeShape (0): 一般的な図形。Masterから生成されたもの。
- visTypeGroup (2): 子図形を内包するコンテナ。再帰処理のトリガーとなる。
- visTypeForeignObject (3): OLEオブジェクトやビットマップ。`ForeignType`プロパティによる詳細な判定が必須。
- visTypeGuide (4): ガイド線。これらを誤って移動・削除対象に含めると、図面の意図しない崩壊を招く。
—
2. 堅牢な判定実装：実戦的コードパターン
以下のコードは、単なる判定ではなく、メモリ負荷を考慮したオブジェクト管理の基礎を体現している。
‘ @brief Shapeの種別に応じた安全な処理分岐テンプレート
Public Sub ProcessShapeRobustly(ByRef shp As Visio.Shape)
‘ ヌルチェックは鉄則。再帰処理でのスタックオーバーフロー回避にも寄与する
If shp Is Nothing Then Exit Sub
Select Case shp.ObjectType
Case VisObjectType.visTypeShape
‘ 一般図形：ここでのみシェイプシートアクセスを許可する
Debug.Print “Normal Shape: ” & shp.Name
Case VisObjectType.visTypeGroup
‘ グループ：再帰的に子図形を探索するアーキテクチャ
HandleGroup shp
Case VisObjectType.visTypeForeignObject
‘ 外部オブジェクト：ForeignTypeで更に詳細を特定
‘ ※OLEオブジェクトに対する特殊処理をここに記述
HandleForeignObject shp
Case VisObjectType.visTypeGuide
‘ ガイド線：無視するか、特定のレイヤー制御のみを行う
Debug.Print “Guide detected. Skipping.”
Case Else
‘ 未知のオブジェクト：ログを残して安全にスキップ
Debug.Print “Unknown ObjectType: ” & shp.ObjectType
End Select
End Sub
‘ 外部オブジェクトの詳細分岐例
Private Sub HandleForeignObject(ByRef shp As Visio.Shape)
Select Case shp.ForeignType
Case VisForeignTypes.visForeignObjectOLE
‘ OLE埋め込みオブジェクトに対する処理
Case VisForeignTypes.visForeignObjectBitmap
‘ 画像ファイル
End Select
End Sub
—
3. チーフアーキテクトの知見：パフォーマンスと保守性
メモリの明示的解放とオブジェクト参照の管理
VBAはガベージコレクションを備えているが、Visioの巨大なDOM（Document Object Model）操作において、`Set shp = Nothing`を怠ることは許されない。特に再帰処理でループ内にオブジェクトを生成し続ける場合、メモリのスパイクは避けられない。
- 循環参照の防止: 複雑なグループ構造をトラバースする際は、再帰関数の引数に強参照を持たせない（必要であればIDやRefで管理する）工夫が、大規模図面での安定稼働を支える。
- Eventsによる最適化: イベントハンドラ内で図形を操作する場合、`Application.DeferRecalc` を `True` に設定せよ。これにより、再計算のオーバーヘッドを劇的に抑え、処理速度を向上させることができる。
レガシー環境とWindows APIの境界線
Visio VBAからWin32 APIを呼び出す際（例：`GetActiveWindow`や`FindWindow`）、`LongPtr`型の使用を徹底すること。32bit/64bitの混在環境でクラッシュを引き起こすのは、常にポインタ型の不整合だ。
If VBA7 Then
Private Declare PtrSafe Function GetActiveWindow Lib “user32” () As LongPtr
Else
Private Declare Function GetActiveWindow Lib “user32” () As Long
End If
—
終わりに：エンジニアとしての矜持
Visioの自動化において、最も危険なのは「全図形に対して一律の操作を行う」という思考停止だ。今回紹介した`ObjectType`による分岐は、システムを堅牢にするための最低限の防波堤に過ぎない。
真の自動化エンジニアは、APIがどこで音を上げ、どこでメモリを食いつぶすかを予見する。コードを書き終えたとき、それが単なる機能実装ではなく、数年後の保守者が感謝する「資産」となっているか。常にその問いを自らに投げかけてほしい。
我々の仕事は、複雑な図面を単純なデータへと解釈させ、コンピュータに「理解」させることにある。そのための第一歩が、この厳密な型判定なのだ。
