Visio VBAの深淵：マスターシェイプ実体化の「型」とメモリ管理の流儀
Visioの自動化において、`Drop`メソッドは単なる「図形の配置」ではない。それは、マスターという「設計図」から、ドキュメントという「空間」へインスタンスを生成する、Visioオブジェクトモデルの根幹を成すプロセスだ。
多くの中級者は、`ActivePage.Drop`を安易に呼び出し、メモリリークの温床となるオブジェクト参照を放置する。本稿では、レガシーなVisio環境を「制御下」に置き、圧倒的な安定性とパフォーマンスを実現するためのアーキテクチャを提示する。
—
1. マスターアクセスにおける「境界条件」の厳守
`Document.Masters`へのアクセスは、しばしば「ステンシルが読み込まれていない」という初歩的な例外を引き起こす。また、巨大なステンシルを全検索するのは非効率の極みだ。
シニアレベルの実装では、以下の要件を満たす必要がある。
- ステンシルのロード確認: `Application.Documents.OpenEx`による隠し読み込みの徹底。
- 名前ベースの検索: インデックス指定ではなく、名前による検索をラップした関数化。
- オブジェクトの生存期間: 参照したMasterを使い終わった後の明示的破棄。
—
2. 究極の配置コード：Dropメソッドの最適化
以下のコードは、単に配置するだけでなく、描画更新を一時停止し、メモリを強制解放する「プロダクショングレード」のテンプレートだ。
‘ @brief マスターシェイプをページ上に実体化し、初期プロパティを設定する
‘ @param targetPage 対象のPageオブジェクト
‘ @param stencilPath ステンシルファイル(.vssx)のフルパス
‘ @param masterName 配置するマスターの名称
‘ @param x, y 配置座標
Public Sub DropMasterOptimized(ByRef targetPage As Visio.Page, _
ByVal stencilPath 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
‘ 1. 描画更新を停止 (パフォーマンス改善の鉄則)
Visio.Application.ScreenUpdating = False
On Error Resume Next
‘ ステンシルがロード済みか確認、なければ開く
Set docStencil = Visio.Application.Documents.OpenEx(stencilPath, visOpenDocked)
Set mst = docStencil.Masters.ItemU(masterName)
On Error GoTo 0
If mst Is Nothing Then
Debug.Print “Master not found: ” & masterName
GoTo Cleanup
End If
‘ 2. シェイプのドロップ (実体化)
Set shp = targetPage.Drop(mst, x, y)
‘ 3. 後処理：シェイプに対するメタデータ設定（例：カスタムプロパティ）
‘ ここでShapeSheetを直接操作するのも良いが、まずは基本配置を安定させる
Cleanup:
‘ 4. メモリの明示的解放
Set shp = Nothing
Set mst = Nothing
‘ ステンシルは必要に応じて閉じる。使い回す場合は開いたままにするのが高速
Visio.Application.ScreenUpdating = True
End Sub
—
3. なぜ「ScreenUpdating」と「参照解放」が不可欠なのか
VBAのガーベッジコレクションは、Visioのような重厚なCOMオブジェクトモデルに対しては極めて無力だ。
- ScreenUpdating: これを制御しない場合、`Drop`のたびに再描画の計算が走り、数千個のオブジェクトを生成する際にシステムがハングアップする。
- Set obj = Nothing: Visioの内部では、`Shape`や`Master`は「ID」と「プロセス」に紐付いている。VBA側で参照を保持し続けると、COMのデストラクタが呼び出されず、メモリリークが蓄積する。特にループ処理内での配置では、この「明示的な破棄」が生存時間を左右する。
—
4. レガシー環境への処方箋：Windows APIの活用
もし君が担当しているシステムが、巨大なVisioファイルを高速に処理する必要がある場合、VBA単体では限界を迎えることがある。その際は、Windows API（`kernel32`）を用いてプロセス優先度を上げるか、あるいは`Document.OpenEx`のフラグを精査すべきだ。
特に、ドキュメントの再計算を抑制する `visOpenDontList` や、読み取り専用で開く `visOpenRO` を組み合わせることで、I/O負荷を劇的に軽減できる。
—
結論：コードは「状態」を語るべきだ
Visio VBAは古い言語だが、その設計思想は現代のクリーンアーキテクチャに通じるものがある。「マスター」は不変の定義であり、「ページ上のシェイプ」はそのインスタンスである。
この境界を意識し、オブジェクトを適宜解放し、描画負荷を制御する。この作法を身につけた時、君の自動化ツールは「動く」ものから「止まらない」ものへと進化するはずだ。
次に踏み込むべき領域は、`EventSink` を用いた図形の変更検知だ。配置した後の「追跡」が、システム連携の次のフェーズとなる。準備ができたら、またこの深淵で会おう。
