Visio VBAの深淵：Shape.OneDプロパティによる「構造的識別」の極意
Visioというソフトウェアを単なる「図形描画ツール」と認識しているうちは、自動化の初学者に過ぎない。Visioの真の姿は、「2D平面上に配置された、複雑な階層構造を持つリレーショナル・データベース」である。
現場で最も多い悲劇は、`Shape.Name`のような、ユーザーが自由に変更可能な「あだ名」に依存して図形を識別しようとすることだ。堅牢な自動化アーキテクチャを目指すなら、オブジェクトの物理的性質――すなわち「次元（Dimension）」を判定基準にするのが、プロフェッショナルの作法である。
1. なぜ「Name」判定が死を招くのか
`If shp.Name Like “Connector”` のようなコードは、今日動いても明日には壊れる。ユーザーが図形をコピー＆ペーストすれば名前は変わり、言語設定が異なれば標準の図形名すら変わる。
我々が依拠すべきは、Visioの描画エンジンがシェイプをレンダリングする際の根本的な定義、すなわち `Shape.OneD` プロパティである。
- OneD = True: 始点と終点を持つ「1次元シェイプ」（コネクタ、線分）。
- OneD = False: 幅と高さを持つ「2次元シェイプ」（矩形、アイコン、コンテナ）。
このバイナリな判定こそが、システムを安定させる唯一の防波堤だ。
2. 堅牢な判定ロジックの実装
以下に、大規模な図面解析でも耐えうる、メモリ管理を考慮した判定ロジックを提示する。
Option Explicit
‘ —
‘ @description シェイプの次元判定およびタイプ識別を行う高精度関数
‘ @param shp 対象となるShapeオブジェクト
‘ @return 1=1D(コネクタ等), 2=2D(通常図形), 0=判定不能
‘ —
Public Function GetShapeDimension(ByVal shp As Visio.Shape) As Integer
‘ ヌル参照のガード：システム連携時の予期せぬエラーを未然に防ぐ
If shp Is Nothing Then Exit Function
‘ オブジェクトモデルの特性上、OneDプロパティはShapeの基本属性である
‘ 内部的にはSheet.Flagsフラグを参照しているため、極めて高速
If shp.OneD Then
GetShapeDimension = 1
Else
GetShapeDimension = 2
End If
End Function
‘ —
‘ 大規模図面におけるシェイプ処理の模範的イテレーション
‘ —
Public Sub ProcessShapesOptimized()
Dim vsoPage As Visio.Page
Dim vsoShp As Visio.Shape
Set vsoPage = ActivePage
‘ オブジェクトの列挙にはFor Eachを推奨。インデックスアクセスは
‘ 削除操作を伴う場合にループ制御を破壊するため、原則避ける
For Each vsoShp In vsoPage.Shapes
Select Case GetShapeDimension(vsoShp)
Case 1
‘ コネクタに対するロジック（例：ルート情報の抽出）
Debug.Print “1D Connection found: ” & vsoShp.ID
Case 2
‘ 2D図形に対するロジック（例：メタデータ書き込み）
Debug.Print “2D Shape found: ” & vsoShp.ID
End Select
Next vsoShp
‘ 参照の明示的解放：VBAのガベージコレクションを信じすぎない
‘ 巨大なドキュメントではメモリリークの温床となる
Set vsoShp = Nothing
Set vsoPage = Nothing
End Sub
3. シニアエンジニアが意識すべき「メモリの重み」
VisioのAPIはCOMベースである。VBAのガベージコレクションは優秀だが、`For Each` ループ内で大量の `Shape` オブジェクトを生成・破棄する場合、メモリプールが断片化する。
- 遅延バインディングの回避: `Dim shp As Object` ではなく `Dim shp As Visio.Shape` と定義せよ。これにより、VTableを用いた直接的なメソッド呼び出しが可能となり、パフォーマンスが劇的に向上する。
- イベントハンドラの注意: `ShapeAdded` 等のイベントを使用する場合、イベント内でのオブジェクト作成は必ず `Set Nothing` で閉じること。これを怠ると、Visioを閉じるまでプロセスがメモリに残留する。
4. レガシー環境とWindows APIの接点
もし、図形の判定結果を外部の監視システムやデータベース（SQL Server等）に渡す必要がある場合、VBA単体で完結させようとせず、必要に応じて `User32.dll` を利用し、描画プロセスの優先度を調整するか、あるいはNamed Pipe通信を検討するべきだ。
特に、`DoEvents` を多用するコードは「処理を止めている」のではなく「制御をOSに投げている」に過ぎない。真に巨大な図面を処理する際は、「処理を最小単位のサブプロシージャに分割し、スタックをクリーンに保つ」ことが、クラッシュを避けるための唯一のアルゴリズムである。
結論
`Shape.OneD` を制する者は、Visioの空間構造を制する。
名前で判断するな。性質を見抜け。それが、我々エンジニアが混沌としたレガシー環境を秩序化するための、最初の一歩である。
次にコードを書くとき、そのシェイプが「線」なのか「面」なのか。その哲学的な問いこそが、堅牢なシステムを構築するためのバックボーンとなるだろう。
