Visio VBAの深淵：マスターシェイプを「操る」ための極限設計論
Visioの自動化を志すエンジニアの多くが、最初の壁に突き当たる。それは「形状をどうやって効率的に配置するか」という問いだ。
甘いコードを書く者は、`Shape.Duplicate`を繰り返し、描画ページ上で無秩序に図形を増やそうとする。だが、プロの現場ではそれは禁じ手だ。なぜなら、Visioにおける図形配置の本質は「描画」ではなく「マスターからの実体化（インスタンス化）」にあるからだ。
今日は、ステンシルからマスターを呼び出し、堅牢かつ高速にページへ配置するための「真の設計思想」を伝授する。
—
1. なぜ「Drop」メソッドなのか：パフォーマンスの真実
多くの初心者は、`ActivePage.DrawRectangle`のような描画メソッドで図形を生成しようとする。しかし、これでは図形に「マスター（定義元）」という血統書が紐付かない。
マスターシェイプを利用して `Drop` メソッドを使うべき理由は明確だ：
1. プロパティの継承: マスターが持つデータ属性や接続ポイント、スタイルが自動的に同期される。
2. 保守性: 後からマスターのデザインを修正すれば、ドキュメント内の全インスタンスに一括反映できる。
3. 負荷の最小化: Visioの内部エンジンにとって、既存のマスターを複製するコストは、新規図形を定義して描画するよりも遥かに低い。
—
2. 実践的プロトコル：Masterを確実に捉える実装
マスターを呼び出す際、多くのエンジニアが「ステンシル名」を直書きしてハードコードするミスを犯す。環境が変われば即座にクラッシュする脆弱なコードだ。
以下は、保守性を担保した「実務レベル」の配置関数である。
‘ @brief ステンシルからマスターを抽出し、指定位置にドロップする堅牢な実装
‘ @param targetPage 配置先ページオブジェクト
‘ @param stencilName ステンシルファイル名（例: “MyTools.vssx”）
‘ @param masterName マスター名（例: “Process”）
‘ @param x, y 配置座標（インチ単位）
Public Function DropMaster(ByVal targetPage As Visio.Page, _
ByVal stencilName As String, _
ByVal masterName As String, _
ByVal x As Double, ByVal y As Double) As Visio.Shape
Dim docStencil As Visio.Document
Dim mst As Visio.Master
‘ 1. ドキュメントにロードされているステンシルを安全に取得
Set docStencil = Application.Documents.Item(stencilName)
‘ 2. マスターが存在するか検証（防御的プログラミング）
If docStencil.Masters.Exists(masterName) Then
Set mst = docStencil.Masters.Item(masterName)
Else
Err.Raise vbObjectError + 1001, , “マスターが見つかりません: ” & masterName
End If
‘ 3. Dropメソッドでインスタンス化
‘ Dropは戻り値として生成されたShapeを返すため、そのままプロパティ操作へ繋げる
Set DropMaster = targetPage.Drop(mst, x, y)
End Function
—
3. 現場で生き残るための「3つの鉄則」
コードを動かすことと、運用し続けることは別次元の話だ。以下の知見を常に意識せよ。
① 座標系の罠を回避せよ
Visioの座標系は「左下」が原点だ。しかし、PDF出力時や特定のカスタムプロパティ計算時にはセンチメートル単位（`visCentimeters`）への変換が必要になることが多い。`Application.ConvertResult` を使い、定数で管理することを推奨する。
② ステンシルのロード状態を管理せよ
コード実行前にステンシルが開いているとは限らない。`Application.Documents.OpenEx` を使い、読み取り専用モードで静かにロードし、実行後に必要であれば閉じる（あるいは開いたままにする）設計をアプリケーションのライフサイクルに組み込むこと。
③ データベース連携時の「一意性」
データベースから読み取った情報を図形に流し込む際、`Shape.Name` に頼ってはいけない。あれは一意性を保証しない。必ず `Shape.UniqueID` を生成し、DBの主キーと紐付ける「マッピングテーブル」を別途構築せよ。
—
4. 最後に：エンジニアとしての矜持
Visio VBAは古い言語だが、そのオブジェクトモデルは極めて完成されている。マスターシェイプを正しく理解し、配置の自動化を極めることは、単なる作業の効率化ではない。「組織のナレッジをステンシルという定義に封じ込め、プログラムでそれを再生産する」という、設計図のデジタル化そのものだ。
このコードをただコピペするだけでなく、君のプロジェクトの構造に合わせてどう拡張できるか、一度深く思考してほしい。
技術は使うためにあるのではない。支配するためにある。
幸運を祈る。
