Visio VBAを掌握する極限の知見：Shape.ReplaceShapeによるマスター一括置換の極意
エンタープライズ領域におけるVisio活用において、最も忌むべき技術的負債は「レガシーシンボルの散逸」である。組織のブランディング変更、JIS/ISO規格の改定、あるいは社内アーキテクチャの刷新に伴い、図面上の数千に及ぶ旧シェイプを手動で差し替える作業は、エンジニアの精神を蝕む悪夢に他ならない。
愚直に `Drop` メソッドで新シェイプを生成し、旧シェイプの `LocPinX`、`PinX`、`Width`、`Height` などの座標系プロパティを転記した上で、コネクタの接続（Glue）を再構築する？
そんなナイーブなアプローチをとれば、膨大な計算コストによってVBAの実行スレッドは肥大化し、最悪の場合はCOMレイヤーのメモリリークによってVisioごと沈没する。
Visio VBAの内部構造とオブジェクトモデルのライフサイクルを熟知したアーキテクトであれば、答えは一つしかない。
`Shape.ReplaceShape` メソッド。これこそが、図形の属性、接続関係、そしてカスタムプロパティ（ShapeData）の魂を完璧に維持したまま、一瞬で新標準シンボルへと昇華させる唯一無二の解である。
今回は、この `ReplaceShape` の深淵に迫り、実務の現場で耐えうる堅牢なマスター置換エンジンの全貌を解き明かす。
—
1. ReplaceShapeのメカニズムとアーキテクチャ上の注意点
`Shape.ReplaceShape` は、指定したマスター（Master）または別のシェイプをソースとして、既存のシェイプをインプレースで置き換える強力なメソッドである。
retShape = TargetShape.ReplaceShape(MasterOrShape, flags)
このメソッドの真価は、単なる「見た目の差し替え」にとどまらない。
- 接続（Glue）の継承: 旧シェイプに接続されていたダイナミックコネクタやポイントコネクタの接続端子（Connection Points）は、新シェイプの同等インデックスまたは近傍の接続ポイントへ自動的に再ルーティングされる。
- シェイプデータの保持: ユーザー定義セル（User-Defined Cells）やシェイプデータ（旧カスタムプロパティ）の多くは維持されるが、マスター側の定義と衝突する場合の挙動には注意が必要である。
- レイヤーとZオーダーの維持: 描画順序や所属レイヤーが置換後もそのまま引き継がれる。
パフォーマンスとメモリ管理の鉄則
数千個のシェイプをループ処理で置換する場合、VBAの暗黙的なCOMオブジェクトの参照保持がヒープ領域を圧迫し、「実行時エラー: メモリ不足です（Error 7）」を引き起こす。
これを回避するため、本記事で提示するコードでは以下のアーキテクチャ上のプラクティスを徹底する。
1. 画面描画の完全な凍結 (`ScreenUpdating = False`)
2. イベントの無効化 (`EnableEvents = False`)
3. オブジェクト変数の即時解放（`Set obj = Nothing`）による参照カウンタの適正化
4. Undoスコープのトランザクション管理
—
2. 実務仕様：レガシーシンボル一括置換エンジン
以下のコードは、アクティブページ内にある特定のマスター名を持つすべてのシェイプを、指定した新しいマスターに一括置換し、さらにシステム間連携を見据えたログ出力まで行う実用的なVBAモジュールである。
Option Explicit
‘ =========================================================================
‘ ódulo名:
‘ clsReplaceEngine (または標準モジュール)
‘ 概要:
‘ 図形の属性・接続・プロパティを完全保持したままマスター置換を実行する
‘ =========================================================================
Public Sub ExecuteMasterReplacement()
Dim startTime As Double
startTime = Timer
‘ — パフォーマンス最適化の極意：Visioの描画・イベントを完全停止 —
Dim originalScreenUpdating As Boolean
Dim originalEnableEvents As Boolean
originalScreenUpdating = Application.ScreenUpdating
originalEnableEvents = Application.EnableEvents
Application.ScreenUpdating = False
Application.EnableEvents = False
‘ トランザクション（Undo）の開始
Dim lScopeID As Long
lScopeID = Application.BeginUndoScope(“レガシーシンボル一括置換処理”)
On Error GoTo ErrorHandler
Dim targetPage As Visio.Page
Set targetPage = ActivePage
‘ 置換元（旧）のマスター名と、置換先（新）のマスター名
Const OLD_MASTER_NAME As String = “Legacy_Node_v1”
Const NEW_MASTER_NAME As String = “Standard_Node_v2”
‘ 文書（Document）内のステンシルから新マスターを取得
Dim targetMaster As Visio.Master
Set targetMaster = GetMasterFromDocument(ActiveDocument, NEW_MASTER_NAME)
If targetMaster Is Nothing Then
Err.Raise 9999, “ReplaceEngine”, “置換先のマスター ‘” & NEW_MASTER_NAME & “‘ がドキュメント内に見つかりません。”
End If
‘ シェイプコレクションを走査（逆順ループの原則：削除や置換を伴う場合は後方から走査するのが安全だが、
‘ ReplaceShape自体はコレクション数を変えないため前方走査でも可。ただし安全のため配列に退避する手法をとる）
Dim shp As Visio.Shape
Dim shpCol As Collection
Set shpCol = New Collection
Dim i As Long
For i = 1 To targetPage.Shapes.Count
Set shp = targetPage.Shapes(i)
‘ マスターが存在し、かつ名前が一致する場合のみ対象とする
If Not shp.Master Is Nothing Then
If shp.Master.Name = OLD_MASTER_NAME Then
shpCol.Add shp
End If
End If
Next i
Dim replacedCount As Long
replacedCount = 0
Dim item As Variant
For Each item In shpCol
Dim currentShp As Visio.Shape
Set currentShp = item
On Error Resume Next
‘ 【核心】ReplaceShapeの呼び出し
‘ 第2引数(Flags): visReplaceShapeKeepData(1) などを指定して属性を維持
Dim newShp As Visio.Shape
Set newShp = currentShp.ReplaceShape(targetMaster, visReplaceShapeKeepData)
If Err.Number = 0 Then
replacedCount = replacedCount + 1
Else
Debug.Print “警告: シェイプ ID ” & currentShp.ID & ” の置換に失敗しました。Error: ” & Err.Description
Err.Clear
End If
On Error GoTo ErrorHandler
‘ 孤立したオブジェクト参照の即時破棄
Set currentShp = Nothing
Set newShp = Nothing
Next item
‘ トランザクションの正常終了
Application.EndUndoScope lScopeID, True
‘ 復元処理
Application.ScreenUpdating = originalScreenUpdating
Application.EnableEvents = originalEnableEvents
MsgBox “置換処理が完了しました。” & vbCrLf & _
“処理件数: ” & replacedCount & ” 件” & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00”) & ” 秒”, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ 異常終了時はUndoスコープをロールバック
Application.EndUndoScope lScopeID, False
‘ 復元処理
Application.ScreenUpdating = originalScreenUpdating
Application.EnableEvents = originalEnableEvents
MsgBox “致命的なエラーが発生しました。” & vbCrLf & _
“Error [” & Err.Number & “]: ” & Err.Description, vbCritical, “エラー”
End Sub
‘ ————————————————————————-
‘ ドキュメントの全ステンシルから指定名のエクスポートマスターを探索する関数
‘ ————————————————————————-
Private Function GetMasterFromDocument(doc As Visio.Document, masterName As String) As Visio.Master
Dim m As Visio.Master
Dim i As Long
For i = 1 To doc.Masters.Count
Set m = doc.Masters(i)
If m.Name = masterName Or m.NameU = masterName Then
Set GetMasterFromDocument = m
Exit Function
End If
Next i
Set GetMasterFromDocument = Nothing
End Function
—
3. チーフアーキテクトが教える「現場の罠」と回避策
実戦でこのスクリプトを稼働させると、いくつかの高度な壁にぶつかる。プロフェッショナルとして知っておくべき極限の知見を共有する。
罠1: 名前のローカライズ問題 (`Name` vs `NameU`)
Visioのオブジェクトは、UI上の表示名である `Name` と、言語に依存しない不変のユニバーサル名である `NameU` を持つ。
多言語環境や、英文OS・和文OSが混在するシステム基盤において `Master.Name` で比較を行うと、環境差異によってマスターの特定に失敗する。
実務上の鉄則: マスターやシェイプの判定には極力 `NameU` を使用し、フォールバックとして `Name` を評価するロジックを組むべきである。
罠2: コネクタの接続端子（Connection Points）のミスマッチ
`ReplaceShape` は優秀であるが、旧シンボルと新シンボルで接続ポイントのインデックス構造（Row名など）が大幅に異なる場合、意図しない端子にコネクタがルーティングされることがある。
これを完全に制御するためには、置換前後に `FromConnects` プロパティを走査し、必要に応じて `Cell` オークションによる明示的な再グルー（Re-glue）プログラムを挟むアーキテクチャ設計が求められる。
罠3: COMの参照カウントとメモリリーク
VBAにはガベージコレクタが存在しない。ループ内で `targetPage.Shapes(i)` やドキュメントのコレクションを繰り返し参照すると、COMラッパーがメモリ上に残存し続ける。
特に巨大なCAD図面やネットワーク図（シェイプ数10,000超）を処理する際は、ループ内のすべての変数に `Set xxx = Nothing` を明示し、定期的に `DoEvents` を挟んでメモリの断片化を防ぐ配慮が必要だ。
—
総括
Visio VBAにおける `Shape.ReplaceShape` の活用は、単なる手作業の自動化に留まらない。それは、組織全体のドキュメント資産の整合性を担保し、技術的負債をコードの力で一網打尽にするための「洗練されたアーキテクチャの構築」である。
リファレンスをなぞるだけのコードから脱却し、描画エンジンのライフサイクルとメモリ管理を完全に掌握した者だけが、真の自動化の果実を手にすることができる。
あなたの手元のレガシー図面も、今こそこのエンジンによってモダンなエコシステムへと生まれ変わらせるべき時だ。
