Visio VBAを掌握する極限の知見：マスターリンクが切れた図形の復旧と再紐付けの深淵
Visioの図面管理において、最も悪名高いトラブルの一つが「マスターリンクの断絶」である。
他図面からのコピペ、古いバージョンのドキュメント資産の混入、あるいは不適切なプログラム的シェイプ生成。これらによって、シェイプは「見た目は同じだが、親であるMasterオブジェクトを失った（あるいはローカル化された）ゾンビシェイプ」へと変貌する。
この状態を放置すると、何が起きるか？
ドキュメント全体のマスター一括置換が効かなくなるだけでなく、ファイルサイズが肥大化し、ステンシルとの同期が完全に崩壊する。エンタープライズ環境における大規模な図面群の保守において、これは致命的な技術負債となる。
今回は、Visioのオブジェクトモデルの深層に踏込み、切断されたマスターリンクをプログラムによって検出・特定し、正しいステンシル（Master）へ再紐付けする極限のテクニックを解説する。
—
1. 根底にあるメカニズム：`Shape.Master` とローカル化の罠
Visioのアーキテクチャにおいて、すべてのマスター付きシェイプは `Shape.Master` プロパティを通じて元の `Master` オブジェクトへの参照を保持している。このリンクが正常な状態であれば、マスター側の変更がインスタンスシェイプに伝播する。
しかし、異なるドキュメント間でシェイプをコピーすると、Visioはリンク切れを防ぐために自動的にマスターをドキュメントの `Document.Masters` コレクションへ取り込むか、最悪の場合、マスターとの紐付けを完全に切断して「ローカルシェイプ」へと格下げする。
この時、以下の現象が発生する。
- `Shape.Master` が `Nothing` を返す。
- もしくは、意図しない重複マスター（`Master.Name` の末尾に `(1)` が付くなど）がドキュメント内に乱立する。
シニアエンジニアとして我々がやるべきことは、この崩壊した参照関係をコードによって検出し、本来あるべき正しいマスターへと強制的に再接続（Re-mastering）することである。
—
2. 検出と再紐付けのアーキテクチャ
マスターリンクを復旧するためには、以下の3つのステップを踏む。
1. 孤立シェイプの特定: `Shape.Master Is Nothing` の判定、または名前パターンによる一致確認。
2. 正しいマスターの索出: ターゲットとなるステンシル（Document）を開き、`Masters` コレクションから本来のマスターを特定。
3. 再紐付けの実行: VisioのネイティブAPIには「直接マスターをすげ替えるプロパティ」は存在しないため、適切なメソッドとセルの書き換えによるアプローチが必要となる。
ここでメモリ管理の鉄則に触れておこう。Visio VBAでは、COMオブジェクトの参照をループ内で適切に解放しないと、メモリリークや「RPCサーバーが利用できません」といった不可解なクラッシュを引き起こす。特に `Master` や `Shape` のコレクションを走査する際は、変数のスコープと解放を厳密に制御しなければならない。
—
3. 実装コード：孤立シェイプの修復エンジン
以下のコードは、アクティブページ内を走査し、マスターリンクが切断されたシェイプ、あるいは指定されたステンシル名と一致すべきマスターとのリンクが外れたシェイプを検出し、正しいマスターに再紐付けする実用的なVBAプロシージャである。
Option Explicit
‘ ==============================================================================
‘ 処理名: RepairBrokenMasterLinks
‘ 概要: アクティブページのシェイプを走査し、指定ステンシルのマスターへと再紐付けする
‘ ==============================================================================
Public Sub RepairBrokenMasterLinks()
Dim vsoPage As Visio.Page
Set vsoPage = ActivePage
‘ 予期せぬエラーによるCOM参照の残留を防ぐためエラーハンドラーを設置
On Error GoTo ErrorHandler
‘ 処理対象のステンシルファイル名（あらかじめ開いておくか、ドキュメントに読込済みであること）
Const TARGET_STENCIL_NAME = “MyEnterpriseShapes.vssx”
Dim vsoTargetDoc As Visio.Document
Set vsoTargetDoc = GetOpenDocument(TARGET_STENCIL_NAME)
If vsoTargetDoc Is Nothing Then
MsgBox “ターゲットステンシル ‘” & TARGET_STENCIL_NAME & “‘ が開かれていません。”, vbCritical
Exit Sub
End If
Dim vsoShape As Visio.Shape
Dim lCount As Long
lCount = 0
‘ パフォーマンス最適化：画面描画とイベントを停止
Application.ScreenUpdating = False
Application.EventsEnabled = False
‘ ページ内の全シェイプ（グループ内含む再帰処理が必要な場合は別途拡張）を走査
For Each vsoShape in vsoPage.Shapes
‘ 1. マスターを持たない（リンクが切れている、あるいは最初からローカル）シェイプの検知
If vsoShape.Master Is Nothing Then
‘ ここではシェイプのNameUまたはCustomPropertyをヒントに本来のマスター名を推測する
‘ 実務ではシェイプの形状特徴や特定セルの値からマスター名を導出するロジックを挟む
Dim inferredMasterName As String
inferredMasterName = DeriveMasterName(vsoShape)
If inferredMasterName <> “” Then
Dim vsoNewMaster As Visio.Master
On Error Resume Next
Set vsoNewMaster = vsoTargetDoc.Masters(inferredMasterName)
On Error GoTo ErrorHandler
If Not vsoNewMaster Is Nothing Then
‘ ★極限の知見：Visioにおいてマスターの再割り当ては
‘ DropEx またはシェイプの置換ロジックを介する必要がある場合が多いが、
‘ 同一ドキュメント内であれば Master プロパティの強制上書きはできないため、
‘ 「元の位置とサイズを維持したままシェイプを置き換える」アプローチを取る。
If RelinkShapeToMaster(vsoPage, vsoShape, vsoNewMaster) Then
lCount = lCount + 1
End If
‘ オブジェクト変数の明示的解放
Set vsoNewMaster = Nothing
End If
End If
End If
_NextShape:
Next vsoShape
Application.ScreenUpdating = True
Application.EventsEnabled = True
MsgBox “処理完了: ” & lCount & ” 個のシェイプのマスターリンクを復旧しました。”, vbInformation
Exit Sub
ErrorHandler:
Application.ScreenUpdating = True
Application.EventsEnabled = True
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical
End Sub
‘ ==============================================================================
‘ 補助関数: 開いているドキュメント（ステンシル含む）を名称から取得
‘ ==============================================================================
Private Function GetOpenDocument(ByVal docName As String) As Visio.Document
Dim doc As Visio.Document
For Each doc in Documents
If StrComp(doc.Name, docName, vbTextCompare) = 0 Then
Set GetOpenDocument = doc
Exit Function
End If
Next doc
Set GetOpenDocument = Nothing
End Function
‘ ==============================================================================
‘ 補助関数: シェイプの特性から本来のマスター名を推測するロジック（環境に合わせて実装）
‘ ==============================================================================
Private Function DeriveMasterName(ByVal vsoShape As Visio.Shape) As String
‘ 例として、Shape.NameU の先頭部分や特定のプロパティをパースする
Dim baseName As String
baseName = vsoShape.NameU
‘ Visioは通常 “Process.123” のように名前を付けるため、ドットより前をマスター名と仮定
Dim p As Long
p = InStr(baseName, “.”)
If p > 0 Then
DeriveMasterName = Left$(baseName, p – 1)
Else
DeriveMasterName = baseName
End If
End Function
‘ ==============================================================================
‘ 核心処理: 既存シェイプの位置・サイズ・テキストを保持したまま、新マスターの図形に置換する
‘ ==============================================================================
Private Function RelinkShapeToMaster(ByVal vsoPage As Visio.Page, ByRef vsoOldShape As Visio.Shape, ByVal vsoMaster As Visio.Master) As Boolean
On Error GoTo RelinkError
‘ 1. 既存シェイプから必要なメタデータを退避
Dim pinX As Double, pinY As Double, width As Double, height As Double, angle As Double
Dim shapeText As String
pinX = vsoOldShape.Cells(“PinX”).ResultIU
pinY = vsoOldShape.Cells(“PinY”).ResultIU
width = vsoOldShape.Cells(“Width”).ResultIU
height = vsoOldShape.Cells(“Height”).ResultIU
angle = vsoOldShape.Cells(“Angle”).ResultIU
shapeText = vsoOldShape.Text
‘ 2. 正しいマスターから新しいインスタンスをドロップ
Dim vsoNewShape As Visio.Shape
Set vsoNewShape = vsoPage.Drop(vsoMaster, pinX, pinY)
‘ 3. ジオメトリ以外のプロパティ（位置・サイズ・角度・テキスト）を同期
vsoNewShape.Cells(“PinX”).ResultIU = pinX
vsoNewShape.Cells(“PinY”).ResultIU = pinY
vsoNewShape.Cells(“Width”).ResultIU = width
vsoNewShape.Cells(“Height”).ResultIU = height
vsoNewShape.Cells(“Angle”).ResultIU = angle
If shapeText <> “” Then
vsoNewShape.Text = shapeText
End If
‘ 4. 古い（壊れた）シェイプを完全に削除
vsoOldShape.Delete
‘ 参照の差し替え（呼び出し元へ成功を通知するため、vsoOldShapeを新しいシェイプに指し直すテクニック）
Set vsoOldShape = vsoNewShape
RelinkShapeToMaster = True
Exit Function
RelinkError:
RelinkShapeToMaster = False
End Function
—
4. チーフアーキテクトからの実務的助言
上記のコードを見て、「なぜ直接 `Shape.Master` プロパティを書き換えないのか？」と疑問に思った読者もいるだろう。
ここにVisio COMコンポーネントの深い闇がある。Visioの内部アーキテクチャにおいて、`Shape.Master` は読み取り専用（Read-only）として設計されているか、あるいは不正な書き込みを行うとシェイプのシェイプシート（ShapeSheet）構造が破壊され、Visioそのものがクラッシュする。
そのため、プロフェッショナルな現場では、「メタデータの退避 ➔ 正しいマスターからの新規ドロップ ➔ プロパティの移植 ➔ 旧シェイプのパージ」というトランザクション処理（アトミックな置換処理）をVBAで実装するのが唯一にして最大の正解となる。
さらに、数万個規模のシェイプを持つ図面を処理する場合、以下のチューニングを忘れてはならない。
- `Application.ScreenUpdating = False` と `Application.EventsEnabled = False` による描画エンジン・イベントハンドラの完全遮断。
- ループ内でのオブジェクト変数のこまめな `Set … = Nothing` によるガベージコレクションの促進。
これらを徹底することで、レガシーかつ肥大化したVisioドキュメントであっても、秒速で健全な状態へと復旧させることが可能となる。技術の本質を見極め、APIの制約を逆手に取るエンジニアリングこそが、システムを支配する。
