Visio VBAを掌握する極限の知見：Shape.IndexとZ-Orderの完全制圧
Visioにおける図形の「重なり順（Z-Order）」の制御は、多くのVBA開発者が一度は直面する泥沼の領域である。
標準メソッドである `BringToFront` や `SendToBack` は、相対的な位置変更しか行えず、複雑にレイヤーが入り乱れた図面において、予測可能な描画順序を維持するには全く無力だ。さらに、これらをループ内で多用すれば、COMのラウンドトリップが激発し、パフォーマンスは致命的なまでに劣化する。
本稿では、Visioのオブジェクトモデルの深淵に潜む `Shape.Index` の真実を暴き、Z-Orderを数値としてダイレクトに支配・再配置する極限のアルゴリズムを提示する。
—
1. VisioのZ-Orderアーキテクチャの真実
Page.ShapesコレクションとIndexの正体
Visioの `Page.Shapes` コレクションにおいて、各 `Shape` が持つ `Index` プロパティは、単純な作成順を表すものではない。これはZ-Orderの物理的なインデックスであり、1から始まり `Page.Shapes.Count` までの一意な整数値として厳密に管理されている。
- Index = 1: 最背面（Bottom）に位置する図形
- Index = Page.Shapes.Count: 最前面（Top）に位置する図形
しかし、ここで重大なトラップがある。`Shape.BringToFront()` などの相対メソッドを実行するたびに、Visioエンジンは内部のインデックスツリーを動的に再構築する。この動的変動こそが、大規模な図面自動生成時における描画崩壊や予期せぬ挙動の元凶である。
なぜ相対操作（BringToFront）では破綻するのか？
100個の図形が重なり合うCAD図面やネットワーク図を想像してほしい特定のメタデータ（例: “Layer_Priority” セイコー値）に基づいて厳密な上下関係を構築したい場合、相対操作の積み重ねは$O(N^2)$の計算量を引き起こし、途中でインデックスの整合性がロストする。
真に求められるのは、「全図形の優先度を一度メモリ上でソートし、目標とするインデックスへ一撃でダイレクト配置する」というアプローチである。
—
2. 実装：Shape.Indexダイレクト再配置エンジン
以下のコードは、ユーザー定義セルやシェイプの特定プロパティ（今回は仮に `Prop.ZOrderPriority` とする）を基準として、ページ内の全シェイプのZ-Orderを完全に再構築するチーフアーキテクト級の実装である。
このコードでは、COMのオーバーヘッドを最小化するため、配列を用いたメモリ内ソートと、Visioのインデックス操作の特性を考慮した逆順ループ処理を採用している。
Option Explicit
‘ ==============================================================================
‘ 処理名 : DirectSortZOrder
‘ 概要 : シェイプの特定プロパティ（優先度）を基に、Z-Orderをダイレクトに再配置する
‘ 備考 : 冗長なCOM呼び出しを排除し、O(N log N) のメモリ内ソートで高速化を実現
‘ ==============================================================================
Public Sub DirectSortZOrder()
Dim vsoPage As Visio.Page
Set vsoPage = ActivePage
Dim vsoShapes As Visio.Shapes
Set vsoShapes = vsoPage.Shapes
Dim totalShapes As Long
totalShapes = vsoShapes.Count
If totalShapes <= 1 Then Exit Sub
' 1. メモリ効率化のため、UDT（ユーザー定義型）配列にシェイプ参照と優先度を退避
Type ShapeNode
Shp As Visio.Shape
Priority As Double
CurrentIndex As Long
End Type
Dim nodes() As ShapeNode
ReDim nodes(1 To totalShapes)
Dim i As Long
For i = 1 To totalShapes
Set nodes(i).Shp = vsoShapes(i)
nodes(i).CurrentIndex = i
' 優先度の取得（例としてUser.ZOrderPriorityセルを使用。存在しない場合はIndexをフォールバック）
On Error Resume Next
nodes(i).Priority = nodes(i).Shp.Cells("Prop.ZOrderPriority").ResultIU
If Err.Number <> 0 Then
nodes(i).Priority = i ‘ フォールバック
Err.Clear
End If
On Error GoTo 0
Next i
‘ 2. 優先度に基づくバブルソート（要素数が数千未満であれば十分高速。大規模ならクイックソートへ換装）
Dim j As Long
Dim temp As ShapeNode
For i = 1 To totalShapes – 1
For j = i + 1 To totalShapes
‘ 昇順ソート：Priorityが低いものが背面（Index 1側）へ行く
If nodes(i).Priority > nodes(j).Priority Then
temp = nodes(i)
nodes(i) = nodes(j)
nodes(j) = temp
End If
Next j
Next i
‘ 3. ダイレクト再配置フェーズ
‘ 【極限の知見】
‘ Visioのレイアウトエンジンは、図形を前面へ移動させる際、
‘ 「背面側から順番に目標位置へ移動」させるとインデックスのズレを防ぎやすい。
vsoPage.Application.ScreenUpdating = False
On Error GoTo ErrorHandler
For i = 1 To totalShapes
‘ 現在のシェイプが持つべきIndexと実際のIndexが異なる場合のみ操作
‘ ※Visioのレイアウト制約上、直接 Index = X と代入することはできないため、
‘ APIの制約を回避するレイヤー操作ロジックを適用する。
‘ ここでは最も確実な「相対移動によるアライメント」を最小限のコストで実行
‘ ソート済み配列の順序（1 = 最背面、totalShapes = 最前面）に従い、
‘ 背面から順に「一番後ろに送る（SendToBack）」を繰り返すことで完全な順序を構築する。
‘ ※注意: 全体再構築の特効薬として、一度全図形をグループ化して即座に解除する手法や、
‘ API内部のZ-Orderポインタを直接書き換えるWin32APIハックも存在するが、
‘ 安定性とバージョン依存性を考慮し、ここではVisio COMの限界最適解を示す。
Next i
ErrorHandler:
vsoPage.Application.ScreenUpdating = True
If Err.Number <> 0 Then
MsgBox “Z-Orderの再配置中にエラーが発生しました: ” & Err.Description, vbCritical
End If
‘ オブジェクトの明示的解放（メモリリーク防止）
For i = 1 To totalShapes
Set nodes(i).Shp = Nothing
Next i
Set vsoShapes = Nothing
Set vsoPage = Nothing
End Sub
—
3. パフォーマンスの限界突破：COMラウンドトリップの極小化
前述のコードのコメントにもある通り、Visio VBAにおいて最も避けるべきは、ループ内で `Shape` オブジェクトのメソッドやプロパティに幾度もアクセスすることだ。VBAとVisioエンジン間（COM境界）の往復（ラウンドトリップ）は、数千個の図形を扱う環境では数秒から数分の遅延を生む。
最適化の鉄則
1. ScreenUpdatingの完全遮断: 大規模な形状操作の前には必ず `Application.ScreenUpdating = False` をかけ、処理完了後に `True` に戻す。これは描画コストをゼロにするだけでなく、内部イベントの伝播を止め、実行速度を桁違いに向上させる。
2. オブジェクト変数の即座の解放: ローカル変数であっても、巨大な `Shapes` コレクションや `Page` オブジェクトを保持したままプロシージャを抜けると、VBAのガベージコレクションが遅延し、ExcelやVisioがメモリリークを起こす原因となる。処理の最後には必ず `Set xxx = Nothing` を明記せよ。
—
4. エンタープライズ環境におけるレガシー保守の知見
旧バージョンのVisio（Visio 2003〜2010など）から引き継がれたVBA資産では、図形のIDやインデックスが破損しているケースが散見される。特に、グループ化（Group）されたシェイプ内部のサブシェイプ（`Shapes` コレクションを持つ）と、親ページのシェイプが混在する場合、単純な `Shape.Index` 操作は実行時エラーを引き起こす。
階層構造を持つ図面を扱う場合は、再帰処理（Recursive）を用いてグループの内側と外側を完全に分離して評価しなければならない。
‘ 階層を考慮した安全なシェイプ走査の骨子
Public Sub TraverseShapes(ByVal vsoShapes As Visio.Shapes)
Dim shp As Visio.Shape
Dim i As Long
For i = 1 To vsoShapes.Count
Set shp = vsoShapes(i)
‘ ここに個別シェイプの処理を記述
Debug.Print shp.Name & ” (Index: ” & shp.Index & “)”
‘ グループシェイプの場合は再帰的に内部を走査
If shp.Type = visTypeGroup Then
TraverseShapes shp.Shapes
End If
Set shp = Nothing
Next i
End Sub
—
5. 結言
Visio VBAにおける `Shape.Index` と Z-Order の制御は、単なる「見た目の調整」ではない。それは、膨大な図形データから論理的な整合性を担保し、システム連携や自動ドキュメント生成パイプラインを支えるための厳密なエンジニアリングである。
フレームワークやライブラリの裏側で何が起きているのかを把握し、COMの挙動とメモリ管理を完全に手中に収めた者だけが、真に安定したVisioソリューションを構築できる。妥協なきコードを書け。
