Visio自動化の深淵：Mastersから「実体」を召喚する真の作法
Visioの自動化において、`Drop`メソッドを単に呼ぶだけのコードを書くのは、エンジニアとは呼べない。それは「APIを叩いている」のではなく「運任せにゴミを撒いている」に過ぎないからだ。
マスターシェイプ（`Master`オブジェクト）からシェイプ（`Shape`オブジェクト）を生成するという行為は、単なるインスタンス化ではない。それはVisioのデータベース構造における「継承」と「メモリ消費」をコントロールする、極めて重要なアーキテクチャ設計そのものだ。
本稿では、レガシー環境からモダンなシステム連携まで、長年Visioの深淵を歩いてきた私が見出した「マスター活用」の極致を記す。
—
1. 脳死で`Drop`を呼ぶな：オブジェクトモデルの真実
多くの開発者が陥る罠は、`Page.Drop`をループ内で無策に呼び出し、メモリリークやDocumentの肥大化を招くことだ。
`Master`は、ステンシル（`Document.Masters`）内に存在する「設計図」である。ここから`Drop`を実行すると、Visioは「マスターシェイプへの参照（リンク）」を持ったシェイプをページ上に生成する。この際、マスター側の更新がインスタンスに伝播するという特性を理解しなければならない。
最適化の鉄則
- イベントの抑制: 大量配置時は必ず `Application.ScreenUpdating = False` を使用せよ。それ以上に、`Application.DeferRecalc = True` を活用し、シェイプの計算ロジック（数式評価）が毎回走るのを阻止せよ。
- COMポインタの解放: VBAにおいて、生成したシェイプオブジェクトを放置するのは罪である。処理が終われば即座に `Set shp = Nothing` を明示せよ。
—
2. 実装の極致：効率的なマスター配置コード
以下は、メモリを極限まで保護し、ステンシルから特定のマスターを召喚する際の標準的なプロフェッショナル・パターンだ。
‘ 伝説的なチーフアーキテクトによるマスター配置メソッド
Public Sub RobustMasterDrop(ByVal targetPage As Visio.Page, _
ByVal stencilName As String, _
ByVal masterName As String, _
ByVal x As Double, ByVal y As Double)
Dim docStencil As Visio.Document
Dim mst As Visio.Master
Dim shp As Visio.Shape
‘ エラーハンドリングはVBAの生命線
On Error GoTo ErrHandler
‘ ステップ1: ステンシルの存在確認（キャッシュ利用を推奨）
Set docStencil = Application.Documents.Item(stencilName)
Set mst = docStencil.Masters.Item(masterName)
‘ ステップ2: 描画更新の停止（パフォーマンスの劇的向上）
Application.ScreenUpdating = False
Application.DeferRecalc = True
‘ ステップ3: 召喚（Dropメソッドの真髄）
‘ 位置はページ座標(インチ単位)で指定
Set shp = targetPage.Drop(mst, x, y)
‘ ステップ4: 配置直後のプロパティ設定（ここでメタデータを注入する）
shp.Cells(“Prop.SystemID”).Formula = “=””SID-” & Format(Now, “hhmmss”) & “”””
ErrHandler:
If Err.Number <> 0 Then
Debug.Print “Error: ” & Err.Description
End If
‘ ステップ5: 明示的解放
Set shp = Nothing
Set mst = Nothing
Set docStencil = Nothing
‘ 描画の再開
Application.DeferRecalc = False
Application.ScreenUpdating = True
End Sub
—
3. レガシー保守とシステム間連携の知見
Windows APIによる「強制再描画」の罠
時折、`DoEvents`を乱用して画面更新を待つコードを見かけるが、あれは言語道断だ。Windows APIの `Sleep` を呼ぶほうが遥かにマシだが、それさえもVisioの内部計算エンジン（`DeferRecalc`）の前では無力である。
システム連携時、特に外部データベースからシェイプの情報を流し込む際は、以下の手法を推奨する。
1. UserData（Propセクション）へのシリアライズ: シェイプのIDや属性は、`Shape.Cells` で直接保持させるのではなく、`User-defined Cells` または `Prop` に文字列として押し込め。これにより、Visioファイル自体が「ポータブルなDB」として機能するようになる。
2. ステンシルの動的ロード: `Application.Documents.OpenEx` でステンシルを読み込む際は、`visOpenRO` (読み取り専用) フラグを必ず付与せよ。これを忘れると、バックグラウンドプロセスでファイルロックが発生し、システムが停止する。
—
最後に：エンジニアへの提言
マスターシェイプを扱うことは、Visioという巨大なオブジェクトの「DNA」を操作することに等しい。
コードを書くとき、常に問いかけよ。
「このシェイプの配置は、ドキュメントの肥大化を許容できるか？」「この処理は、1万個のシェイプを配置しても耐えられるか？」
Visio VBAは古い言語だが、その設計思想は現代のフレームワークにも通じるものがある。オブジェクトのライフサイクルを支配し、メモリの呼吸を感じ取れる者だけが、このレガシー環境において真に堅牢な自動化システムを構築できるのだ。
さあ、次は君の番だ。コードを書き、その動作を監視し、そして極限まで最適化せよ。
