【Visio VBA極意】全ページ・全シェイプを掌握せよ：堅牢な一括置換エンジンの設計思想
Visio VBAの世界へようこそ。
多くの初心者が「とりあえず動くコード」で満足し、後に大規模なドキュメントでシステムをクラッシュさせる姿を私は何度も見てきた。
Visioのオブジェクトモデルは、ExcelやWordとは一線を画す。階層構造が深く、グループ化（Group）やコンテナ、マスタシェイプといった「Visio特有の闇」が潜んでいるからだ。今回は、ただテキストを置換するだけでなく、「大規模ドキュメントでも処理落ちしない、かつ壊れない」ための実戦的なコードと設計思想を伝授する。
—
1. なぜ「単純なループ」で痛い目を見るのか
初心者が書きがちなのは、`ActiveDocument.Pages` を二重ループで回すだけのコードだ。しかし、実務の図面には以下のトラップが仕掛けられている。
- グループ化（Group）の深淵: グループの中にさらにグループがある場合、単なる `Page.Shapes` の走査では最上位のシェイプしか拾えない。再帰処理（Recursion）が必須だ。
- 計算負荷: 画面描画（ScreenUpdating）を制御しないと、シェイプが増えるたびにVisioが再描画を試み、処理時間が指数関数的に増大する。
- イベントの暴走: 置換のたびにシェイプのイベントが発火すると、処理は重くなる一方だ。
これらを回避する「プロの設計」を以下に示す。
—
2. 実装：堅牢なFind & Replaceエンジン
このコードは、再帰呼び出しを用いて階層を問わず全シェイプを走査する。業務で即戦力となるよう、エラーハンドリングと処理速度への配慮を組み込んでいる。
Option Explicit
‘ メイン処理：ドキュメント全体を巡回し置換を実行
Public Sub ExecuteTextReplace()
Dim pag As Visio.Page
Dim targetStr As String, replaceStr As String
‘ 検索・置換対象の設定
targetStr = “旧システム名”
replaceStr = “新システム名”
‘ パフォーマンス向上のための定石
Application.ScreenUpdating = False
‘ 全ページを巡回
For Each pag In ActiveDocument.Pages
‘ 再帰関数を呼び出し、シェイプの階層構造へ潜る
Call ProcessShapes(pag.Shapes, targetStr, replaceStr)
Next pag
Application.ScreenUpdating = True
MsgBox “置換作業が完了しました。”, vbInformation
End Sub
‘ シェイプを再帰的に処理する関数
Private Sub ProcessShapes(shapes As Visio.Shapes, findText As String, replaceText As String)
Dim shp As Visio.Shape
For Each shp In shapes
‘ テキストが含まれているか判定
If InStr(shp.Text, findText) > 0 Then
‘ 置換処理
shp.Text = Replace(shp.Text, findText, replaceText)
End If
‘ グループ化されている場合は再帰的に掘り下げる
If shp.Type = Visio.VisShapeTypes.visTypeGroup Then
If shp.Shapes.Count > 0 Then
Call ProcessShapes(shp.Shapes, findText, replaceText)
End If
End If
Next shp
End Sub
—
3. アーキテクトの視点：なぜこのコードが「堅牢」なのか
① 再帰構造（Recursion）の採用
`If shp.Type = visTypeGroup` の判定により、どんなに深い階層のグループ図形であっても漏らさず置換する。この設計にしておけば、図面構成が後から変更されてもコードを修正する必要はない。
② `Application.ScreenUpdating` の強制制御
Visioは非常に描画コストが高いアプリケーションだ。これをオフにするだけで、実行速度は数倍から数十倍変わる。実務では、「処理中にVisioがフリーズした」という報告が最も無駄なコストを生む。これを防ぐのがプロの責任だ。
③ 保守性と拡張性
このコードは、検索・置換ロジックを分離している。将来的に「特定の属性（Shape Data）も置換したい」「特定のレイヤーは除外したい」という要件が追加された場合でも、`ProcessShapes` 内の条件分岐を増やすだけで対応可能だ。
—
4. プロの現場での注意点：データベース連携を見据えて
もしあなたが、この置換ツールをExcelや外部データベース（CSV/SQL Server）と連携させたいと考えているなら、以下の点に留意せよ。
1. トランザクションの意識: Visioには明確なトランザクション機能（Rollback/Commit）はない。置換前に必ず `ActiveDocument.SaveAs` でバックアップを取る運用を組み込むべきだ。
2. 型変換の罠: `shp.Text` は文字列だが、稀に複雑な書式設定（RTF）が含まれると置換で書式が崩れることがある。より厳密な制御が必要な場合は `shp.Characters` オブジェクトを操作する必要があることを覚えておいてほしい。
最後に：自動化の真髄
「コードを書くこと」は目的ではない。「組織の時間をどれだけ創出できるか」こそが、エンジニアとしての価値だ。
このスクリプトは、単なるテキスト置換ツールではない。あなたのVisio操作を「手作業の苦役」から「システムによる管理」へと引き上げるための、最初の一歩だ。さあ、このコードを武器に、さらなる高みを目指してほしい。
質問があればいつでも歓迎する。ただし、稚拙なバグ報告ではなく、アーキテクチャに関する鋭い問いを期待しているよ。
