こんにちは！Visio VBAの世界へようこそ。
マクロの記録ボタンを押して「動いたはいいけれど、中身を見たら呪文のようだった…」そんな経験はありませんか？そこから一歩抜け出して、本当に実務で使える自動化ツールを作りたいあなたへ。
今回は、Visio VBAの真骨頂とも言える「図形のマスター置換（ReplaceShapeメソッド）」について、現場のプロが実践的なノウハウを交えて徹底解説します。
ここをクリアすれば、単なる「操作の自動化」を超えた、「図面資産のスマートな一元管理」ができるようになります。さあ、一緒にVisio VBAの深淵を覗いてみましょう！
—
1. なぜ「マスター置換」で現場のエンジニアは悩むのか？
大規模なネットワーク図や、プラントの配管図、フローチャートを更新していると、こんな絶望的なシチュエーションに出くわします。
> 「クライアントから『全ノードのシンボルを新しい社内標準のデザインに差し替えてほしい』って言われた……。図面は50枚、総シェイプ数は数千個。まさか、一個ずつ右クリックして『マスターの置換』をポチポチ押していくしかないのか！？」
手作業でこれをやると、気が遠くなるだけでなく、「せっかく綺麗に整えた位置がズレた」「接続していたコネクタが外れて迷子になった」という二次災害が必ず発生します。
ここで救世主となるのが、Visioの隠れた名メソッド`Shape.ReplaceShape`です。これを使えば、「位置・サイズ・テキスト・そして命綱であるコネクタの接続情報」を完全に維持したまま、一瞬で新しいマスターに姿を変えることができます。
—
2. `ReplaceShape`メソッドの基本とオブジェクトの作法
まずは、このメソッドの正体を暴いておきましょう。
`ReplaceShape`は、文字通り「あるシェイプを、別のマスターシェイプ（または別のシェイプ）で置き換える」ためのメソッドです。
基本構文のイメージ
targetShape.ReplaceShape newMaster
たったこれだけです。非常にシンプルに見えますよね？
しかし、ここがVisio VBAの奥深いところ。実務で使うためには、以下の「3つの鉄則」を理解しておく必要があります。
1. 置換元は、必ず「ドキュメント上のシェイプ（Shapeオブジェクト）」であること。
2. 置換先は、「ステンシルに読み込まれているマスター（Masterオブジェクト）」であること。
3. トランザクション（Undo/Redoの単位）を意識すること。（数千個の置換でVisioがフリーズした時、一括でロールバックできるようにするためです）
—
3. 実践！「旧シンボル一括アップデートツール」の開発
それでは、実際の業務でそのまま使えるプロダクション・グレードのコードを公開します。
このコードは、アクティブなページ内にある「特定のマスターを使っているすべての図形」をスキャンし、一瞬で「新しいマスター」に置換するマクロです。
準備するもの
- 置換元の古いマスター名（例: `”OldServer”`）
- 置換先の新しいマスター名（例: `”NewServer 2026″`）
- それらが格納されているステンシルが開かれていること
実装コード（VBA）
Option Explicit
‘ ==============================================================================
‘ 処理名 : UpdateShapesMaster
‘ 概要 : ページ内の特定マスターシェイプを、指定した新しいマスターに一括置換する
‘ 著者 : チーフアーキテクト
‘ ==============================================================================
Public Sub UpdateShapesMaster()
‘ 1. 変数の宣言と初期化
Dim shp As Visio.Shape
Dim targetShp As Visio.Shape
Dim shps() As Visio.Shape ‘ 破綻を防ぐためのコレクション退避用配列
Dim targetMaster As Visio.Master
Dim shpCount As Long
Dim i As Long
‘ 設定値（実際の環境に合わせて書き換えてください）
Const OLD_MASTER_NAME As String = “旧サーバー”
Const NEW_MASTER_NAME As String = “新サーバー”
‘ 2. 処理速度向上のためのUIロック
Application.ScreenUpdating = False
Application.Settings.ShowChanges = False
On Error GoTo ErrorHandler
‘ 3. 新しいマスターオブジェクトをドキュメントのステンシルから取得
‘ ※あらかじめ対象のマスターを含むステンシルが開いている必要があります
On Error Resume Next
Set targetMaster = ActiveDocument.Masters(NEW_MASTER_NAME)
On Error GoTo ErrorHandler
If targetMaster Is Nothing Then
MsgBox “エラー: 新しいマスター ‘” & NEW_MASTER_NAME & “‘ が見つかりません。” & vbCrLf & _
“該当するステンシルを開いてから実行してください。”, vbCritical, “マスター置換ツール”
GoTo Finally
End If
‘ 4. ターゲットとなるシェイプを一度配列に収集する（※重要）
‘ 【プロの知見】ループ中にシェイプを置換・削除するとコレクションのインデックスが狂い、
‘ ループが途中で破綻します。そのため、あらかじめ配列にポインタを退避させます。
shpCount = 0
For Each shp In ActivePage.Shapes
‘ シェイプがマスターを持っているか判定し、名前が一致するか確認
If Not shp.Master Is Nothing Then
If shp.Master.Name = OLD_MASTER_NAME Then
shpCount = shpCount + 1
ReDim Preserve shps(1 To shpCount)
Set shps(shpCount) = shp
End If
End If
Next shp
If shpCount = 0 {
MsgBox “対象となるシェイプは見つかりませんでした。”, vbInformation, “マスター置換ツール”
GoTo Finally
}
‘ 5. Undo（元に戻す）の単位をグループ化
Dim undoScopeID As Long
undoScopeID = Application.BeginUndoScope(“一括マスター置換”)
‘ 6. 一括置換の実行
For i = 1 To shpCount
Set targetShp = shps(i)
‘ ★ここに注目！ReplaceShapeメソッドの呼び出し
‘ 位置、サイズ、接続（コネクタ）を維持したまま置換されます
targetShp.ReplaceShape targetMaster
Next i
‘ Undoスコープを正常終了
Application.EndUndoScope undoScopeID, True
MsgBox shpCount & “個のシェイプを正常に新しいマスターへ置換しました！”, vbInformation, “完了”
Finally:
‘ 7. UI描画の復元（絶対に忘れないこと）
Application.ScreenUpdating = True
Application.Settings.ShowChanges = True
Exit Sub
ErrorHandler:
‘ 予期せぬエラー時のフェイルセーフ
If undoScopeID > 0 Then
Application.EndUndoScope undoScopeID, False ‘ 変更をロールバック
End If
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的なエラー”
Resume Finally
End Sub
—
4. コードの深掘り：なぜここでエラーが起きないのか？
プログラミング初学者が陥りやすい最大の罠が、「ループ中のコレクション変更（Collection Mutation）」です。
先ほどのコードの「4. ターゲットとなるシェイプを一度配列に収集する」の部分。なぜわざわざ `shps()` という配列を作って、一度シェイプを退避させたのでしょうか？
❌ 悪い例（やってはいけない書き方）
‘ ループしながら直接ReplaceShapeを実行すると…
For Each shp In ActivePage.Shapes
If shp.Master.Name = “旧サーバー” Then
shp.ReplaceShape targetMaster ‘ ← ここでシェイプが別のオブジェクトに生まれ変わる！
End If
Next shp
これをやると、Visio内部の `Shapes` コレクションの構造がループの最中に書き換わってしまい、「インデックスが範囲外です」エラーや、一部のシェイプがスキップされる（置換し忘れが起きる）という、最悪のバグを引き起こします。
⭕ 良い例（プロの設計）
1. 最初に「探して、配列にメモする」（安全な読み取り）
2. メモしたリストを元に、「安全な環境で一気に置換する」（書き込み）
この「読み取りと書き込みの分離」こそが、業務自動化エンジニアとしての第一歩です。ここを抑えておけば、どんなに複雑な図面でもビクともしない堅牢なマクロが書けるようになります。
—
5. まとめと次のステップ
今回は、Visio VBAの隠れた名メソッド `ReplaceShape` を使った、実務直結のマスター置換ツールを解説しました。
- 位置・サイズ・コネクタの接続情報を完全保持できるため、手作業の修正がゼロになる。
- ループ中のコレクション変更の罠を避けるために、配列への退避処理が不可欠である。
- Undoスコープを適切に設定することで、万が一のエラー時にも図面が汚れない。
「ここをクリアすれば、Visio VBAの基本はバッチリですよ！」
マクロの記録から脱却し、あなたの手で図面管理の自動化をデザインしてみてください。現場の作業時間が劇的に短縮される快感を、ぜひ味わってくださいね。
それでは、次回の高度なVisioアーキテクチャ解説でお会いしましょう！
