Visio VBAを掌握する極限の知見：吹き出し（Callout）の動流的紐付けとオブジェクトモデルの完全制御
Visio VBAにおけるオブジェクトモデルの挙動は、一般的なExcelやWordのそれとは一線を画す。特に、図形間の動的な関係性――いわゆる「接続（Connection）」や「グルーピング」、そして近代Visioの真骨頂である「吹き出し（Callout）の動的紐付け」を扱う際、オブジェクトのライフサイクルと内部キャッシュの挙動を理解していない者は、必ずメモリリークや「消えないゾンビシェイプ」の呪縛に囚われる。
今回は、図面上のターゲット図形に対して、注釈用の吹き出しシェイプをプログラムから完全自動生成し、追従関係（CalloutTarget）を強固に構築する実務的アプローチを解説する。
—
1. 吹き出し（Callout）自動化のアーキテクチャと罠
Visioにおいて、吹き出しをプログラムから配置する方法は主に2つ存在する。
1. マスターシェイプを単に `Page.Drop` し、後からシェイプシートやセルの数式でターゲットに結びつける方法。
2. `Page.DropCallout` メソッドを使用し、ドロップと同時にターゲットへ紐付ける方法。
レガシーなVBAコードでは前者が散見されるが、これはアンチパターンである。`DropCallout` を使わない場合、Visioのスマートシェイプ・エンジン（保護されたセクションやGlueロジック）がバイパスされ、ターゲットを移動した際に吹き出しが追従しない、あるいは不整合なコネクタが残存する原因となる。
しかし、`DropCallout` を使う場合でも、オブジェクトの参照解放（Memory Footprint Optimization） を怠ると、COMコンテナ内に不要なラッパーが残存し、大規模な図面処理時にVisio自体がフリーズする。
—
2. 実装コード：完全自動化ツール（Callout Automation Engine）
以下のコードは、指定したページ上のターゲットシェイプ群に対し、自動的に吹き出しを生成・紐付け、注釈テキストを流し込む実務レベルのモジュールである。エラーハンドリングとオブジェクトの即時解放（`Set … = Nothing`）を徹底したプロダクションコードだ。
Option Explicit
‘ =========================================================================
‘ módulo: ModCalloutEngine
‘ 概要: ターゲット図形に対する吹き出し（Callout）の動的生成と追従設定
‘ ターゲット層: シニアエンジニア / 社内システム管理者
‘ =========================================================================
Public Sub ExecuteCalloutAutomation()
Dim vsoPage As Visio.Page
Set vsoPage = ActivePage
‘ 画面描画の凍結によるパフォーマンス極限最適化（画面ちらつき防止と実行速度向上）
Application.ScreenUpdating = False
Application.ShowChanges = False
On Error GoTo ErrorHandler
Dim vsoShape As Visio.Shape
Dim vsoCallout As Visio.Shape
Dim masterName As String
Dim targetFound As Boolean
‘ 汎用的な「角丸吹き出し」のマスター名（環境の言語設定に依存するため注意）
‘ 英語環境の場合は “Dynamic callout” または “Square callout” 等を指定
masterName = “角丸吹き出し”
Dim vsoMaster As Visio.Master
Set vsoMaster = GetCalloutMaster(masterName)
If vsoMaster Is Nothing Then
Err.Raise vbObjectError + 1000, “CalloutEngine”, “指定された吹き出しマスターが見つかりません: ” & masterName
End If
‘ ページ内の全シェイプを走査
For Each vsoShape in vsoPage.Shapes
‘ ガイドラインや既存の吹き出し、コネクタを除外する判定ロジック
If IsValidTarget(vsoShape) Then
‘ 【核心】DropCalloutによるアトミックな生成と紐付け
‘ 引数: (MasterObject, TargetShape, [AutoDropPosition])
Set vsoCallout = vsoPage.DropCallout(vsoMaster, vsoShape)
If Not vsoCallout Is Nothing Then
‘ テキストの設定とメタデータの埋め込み
vsoCallout.Text = “AUTO-NOTE: ” & vsoShape.Name & vbCrLf & “ID: ” & vsoShape.ID
‘ 必要に応じたシェイプシートの直接制御（例: フォントサイズ）
vsoCallout.Cells(“Char.Size”).FormulaU = “9 pt”
‘ オブジェクト変数の即時解放（メモリの肥大化を防ぐ）
Set vsoCallout = Nothing
End If
End If
Next vsoShape
CleanUp:
‘ 画面描画の復元
Application.ScreenUpdating = True
Application.ShowChanges = True
‘ マスターオブジェクトの解放
Set vsoMaster = Nothing
Set vsoPage = Nothing
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “Visio VBA Engine”
Resume CleanUp
End Sub
‘ =========================================================================
‘ ヘルパー関数: マスターの安全な取得
‘ =========================================================================
Private Function GetCalloutMaster(ByVal masterName As String) As Visio.Master
Dim i As Long
For i = 1 To ActiveDocument.Masters.Count
If ActiveDocument.Masters(i).Name = masterName Or _
ActiveDocument.Masters(i).NameU = masterName Then
Set GetCalloutMaster = ActiveDocument.Masters(i)
Exit Function
End If
Next i
‘ ドキュメントに存在しない場合はステンシルから取得を試みる（必要に応じて拡張）
Set GetCalloutMaster = Nothing
End Function
‘ =========================================================================
‘ ヘルパー関数: 吹き出し対象外のオブジェクトをフィルタリング
‘ =========================================================================
Private Function IsValidTarget(ByVal shp As Visio.Shape) As Boolean
‘ コネクタ (1=Connector), ガイド(3=Guide)などを除外し、通常のシェイプ(2=Group, 0=Shape)を対象とする
If shp.Type = Visio.VisShapeTypes.visTypeShape Or shp.Type = Visio.VisShapeTypes.visTypeGroup Then
‘ すでに吹き出し自身であるものは除外
If shp.CalloutTarget.Count = 0 Then ‘ ターゲット側かどうかの判定（逆引き）
‘ ※注: 実装環境に合わせてプロパティの判定を調整してください
IsValidTarget = True
Exit Function
End If
End If
IsValidTarget = False
End Function
—
3. チーフアーキテクトが指摘する「見落としがちな罠」と極限最適化
A. スクリーン・アップデートの制御（ScreenUpdating）
Visio VBAで最もパフォーマンスを殺すのは、「図形が1つ生成されるたびに行われる画面の再描画とレイアウト計算」である。
上記のコード内で行っている `Application.ScreenUpdating = False` は単なるおまじないではない。これを記述するか否かで、100個以上の図面処理において実行時間が数秒から数分へ、あるいは最悪の場合のスタックオーバーフローへ直結する。
B. COMラッパーのゾンビ化とメモリ管理
VBAはガベージコレクション言語ではない。`For Each` ループ内で `vsoPage.DropCallout` を呼び出し、生成されたオブジェクトへの参照（`vsoCallout`）を適切に破棄し忘れると、COMコンポーネントへのポインタがVBA側のメモリ空間に残り続ける。
特にVisioのCOMオブジェクトモデルは複雑な親子関係（Application -> Document -> Page -> Shapes -> Shape）を持っているため、ループの直近で変数に `Nothing` を代入する防衛的コーディングが、システム安定稼働の生命線となる。
C. 言語依存性（Local Name vs Universal Name）
大規模な社内展開を行うシステムにおいて、最も頭を悩ませるのが 「日本語環境と英語環境のマスター名の差異」 である。
コード内で `”角丸吹き出し”` とハードコーディングしている部分は、英語版Visioではエラーを吐く。
完全なエンタープライズ対応を目指すのであれば、文字列によるマスター名検索ではなく、`LocalName` と `NameU`（Universal Name：例えば `”Dynamic callout”`）の両方を走査するか、ステンシルGUIDを用いた厳密なインスタンス化を実装すべきである。
—
結びにかえて
Visio VBAは、単なる「お絵描きマクロ」の域を脱し、高度なCADやシステム設計図の自動生成エンジンとして機能し得る。オブジェクトのライフサイクルを完全に掌握し、Visioのスマートシェイプの挙動とVBAのメモリ管理を調和させるとき、あなたの書くコードは単なるスクリプトから、堅牢な「エンジニアリング・アセット」へと昇華する。
