Visio VBAの世界へようこそ！伝説のチーフアーキテクトがお届けする、極限の知見シリーズ。
今回は、あなたのVisio作業を劇的に変える「コネクタの自動ルーティング」に焦点を当てます。
—
コネクタの自動ルーティングを完全制御：VBAで2つの図形間を最短経路でスマートに結ぶ自動配線術
Visioでフローチャートや組織図を作成する際、図形と図形を結ぶコネクタを手作業で一本一本引いていませんか？
「この線、もう少し綺麗に曲がってくれないかな…」「図形を動かしたら線も追従してほしいのに、なんでバラバラになっちゃうんだ…」
そんなモヤモヤ、もう終わりにしましょう。
Visio VBAをマスターすれば、まるで魔法のように、図形と図形を自動でつなぎ、しかもVisioが最適な経路を判断して美しく配線してくれるようになります。今回は、プログラミング初学者の方から、マクロ記録から一歩踏み出したい方まで、誰もがVisioの自動配線機能を完全に掌握できるよう、その基礎から本質までを、伝説のチーフアーキテクトが魂を込めて解説します。
さあ、Visioのポテンシャルを最大限に引き出し、あなたの業務を次のレベルへと押し上げましょう！
1. Visioコネクタの自動配線、なぜVBAで制御する価値があるのか？
Visioのコネクタは、ただの「線」ではありません。それは、2つの図形間の論理的な関係性を表現し、かつ自動的なルーティング機能を持つ、非常にインテリジェントなオブジェクトです。マウスで引いた線と、VBAで生成するコネクタの間には、雲泥の差があります。
マウスでの手動操作の限界：
- 図形を移動すると、コネクタが接続から外れたり、意図しない場所に移動したりする。
- 多数の図形がある場合、手作業での接続・配線調整は膨大な時間と労力を要する。
- ルーティングの美しさや一貫性を保つのが難しい。
VBAによる自動制御の威力：
- 堅牢な接続: VBAでコネクタを生成し、図形に「接着」させることで、図形が移動してもコネクタは追従し、接続が維持されます。
- 効率性: 数十、数百の図形があっても、VBAコードを実行するだけで瞬時に全図形を結線できます。
- 一貫性: Visioのルーティングエンジンが最適な経路を自動計算するため、常に美しく、視認性の高い図面が生成されます。
特に、Visioのルーティングエンジンは、図形間の距離、障害物の有無、設定されたルーティングスタイルなどを考慮して、自動的に「最短」かつ「最も見やすい」経路を選定します。VBAを使うことで、この強力なエンジンを意のままに操れるようになるのです。
2. コネクタ自動接続の基本概念：Visioオブジェクトモデルの深淵へ
Visio VBAでコネクタを扱うには、いくつかの重要なオブジェクトと概念を理解する必要があります。
2.1. `Visio.Application`から`Visio.Shape`へ：オブジェクトの階層
Visio VBAの世界では、すべての操作は「オブジェクト」に対して行われます。
私たちが今回扱う主要なオブジェクトは以下の通りです。
- `Application`: Visioアプリケーション全体を表す最上位オブジェクト。
- `Document`: 開いているVisioファイル（.vsdxなど）を表すオブジェクト。
- `Page`: ドキュメント内の個々のページ（図面ページ）を表すオブジェクト。
- `Shape`: ページ上の個々の図形（四角、丸、そしてコネクタ自体もShapeオブジェクトです！）を表すオブジェクト。
これらのオブジェクトは階層構造になっており、`Application` → `Document` → `Page` → `Shape` の順に辿って目的の図形にアクセスします。
2.2. コネクタ図形とは？：`visConnector`タイプ
Visioには様々な種類の図形がありますが、特に「コネクタ」として機能する図形は、Visio内部で特別な扱いを受けています。VBAからコネクタを生成する際は、通常、Visioに組み込まれているコネクタマスタシェイプ（例えば「ダイナミックコネクタ」など）をページにドロップして使用します。
2.3. 接続ポイントの理解：図形とコネクタの「手と手」
Visioのコネクタが図形に「接着」できるのは、図形が「接続ポイント（Connection Point）」を持っているからです。これは、図形の周囲に存在する目に見えないアンカーポイントのようなもので、コネクタの端点（始点または終点）がこの接続ポイントに吸着することで、論理的な接続が確立されます。
VBAでは、`Connects`コレクションと`Connects.Add`メソッドを使って、コネクタの端点と図形の接続ポイントを明示的に指定し、接着させます。
3. 実践！VBAでコネクタを自動生成＆接続
それでは、実際にVBAコードを書いて、2つの図形を自動で結線してみましょう。
3.1. 準備：図形の配置
まず、Visioで新しい図面を開き、適当な図形（例えば「基本フローチャート図形」の「プロセス」と「決定」など）を2つページに配置してください。名前を分かりやすく変更しておくと、VBAから参照しやすくなります。
ここでは、図形名をそれぞれ「開始プロセス」と「判定ステップ」とします。
3.2. VBAコードの解説と実装
Visioで`Alt + F11`を押してVBAエディタを開き、標準モジュールに以下のコードを記述してください。
.net
Option Explicit
‘ コネクタの自動配線を行うメインプロシージャ
Sub ConnectShapesAutomatically()
‘ Visioアプリケーションオブジェクト
Dim vApp As Visio.Application
‘ アクティブなドキュメントオブジェクト
Dim vDoc As Visio.Document
‘ アクティブなページオブジェクト
Dim vPag As Visio.Page
‘ 接続元となる図形オブジェクト
Dim shpFrom As Visio.Shape
‘ 接続先となる図形オブジェクト
Dim shpTo As Visio.Shape
‘ 生成されるコネクタの図形オブジェクト
Dim shpConnector As Visio.Shape
‘ コネクタのマスターシェイプ（「ダイナミックコネクタ」を使用）
Dim vMaster As Visio.Master
On Error GoTo ErrorHandler
‘ 現在実行中のVisioアプリケーションインスタンスを取得
Set vApp = Visio.Application
‘ アクティブなドキュメントを取得
Set vDoc = vApp.ActiveDocument
‘ アクティブなページを取得
Set vPag = vApp.ActivePage
‘ —————————————————-
‘ 1. 接続元と接続先の図形を取得
‘ ここでは、図形名で取得しています。
‘ ご自身のVisioページ上の図形名に合わせてください。
‘ —————————————————-
Set shpFrom = vPag.Shapes(“開始プロセス”) ‘ 接続元の図形名
Set shpTo = vPag.Shapes(“判定ステップ”) ‘ 接続先の図形名
‘ 図形が見つからない場合はエラー
If shpFrom Is Nothing Then
MsgBox “‘開始プロセス’という名前の図形が見つかりませんでした。”, vbCritical
GoTo CleanUp
End If
If shpTo Is Nothing Then
MsgBox “‘判定ステップ’という名前の図形が見つかりませんでした。”, vbCritical
GoTo CleanUp
End If
‘ —————————————————-
‘ 2. コネクタのマスターシェイプを取得し、ページにドロップ
‘ 「ダイナミックコネクタ」は、多くのVisioステンシルに含まれる標準的なコネクタです。
‘ —————————————————-
‘ “基本フローチャート図形”ステンシルからダイナミックコネクタのマスターを取得する場合
‘ Set vMaster = vApp.Documents.Open(“Basic Flowchart Shapes.vssx”).Masters(“Dynamic Connector”)
‘ より汎用的に、VisioアプリケーションのBuiltInMastersコレクションから取得することも可能
‘ ただし、BuiltInMastersは英語名である可能性が高い点に注意
Set vMaster = vApp.ActiveDocument.Masters.ItemU(“Dynamic connector”) ‘ ドキュメント内にコピーされたマスターを取得
‘ もしアクティブなドキュメントに「Dynamic connector」マスターがない場合は、
‘ Visioの他のステンシルから開いて取得する方法を検討する。
‘ あるいは、”Basic Flowchart Shapes.vssx”などから直接マスターを取得する。
If vMaster Is Nothing Then
‘ ドキュメントのマスターコレクションから見つからない場合、ステンシルから開いてみる
‘ これは例であり、実際の環境に合わせてパスやファイル名を調整してください
On Error Resume Next ‘ エラーを一時的に無視して次の行へ
Set vMaster = vApp.Documents.OpenEx(“Basic Flowchart Shapes.vssx”, visOpenHidden).Masters.ItemU(“Dynamic connector”)
On Error GoTo ErrorHandler ‘ エラーハンドラを再有効化
If vMaster Is Nothing Then
MsgBox “「ダイナミックコネクタ」のマスターシェイプが見つかりませんでした。”, vbCritical
GoTo CleanUp
End If
End If
‘ コネクタのマスターシェイプをページにドロップして、コネクタ図形を生成
‘ ドロップ位置はどこでも構いません。後で自動的にルーティングされます。
Set shpConnector = vPag.Drop(vMaster, 0, 0)
‘ —————————————————-
‘ 3. コネクタを図形に接着（Connectメソッドの真髄！）
‘ Connects.Addメソッドを使って、コネクタの始点・終点を
‘ 接続元・接続先の図形に接着します。
‘ 第一引数: 接続元となるShapeオブジェクト
‘ 第二引数: 接続元Shapeの接続ポイント（visCenter、visLeftEdgeなど）
‘ 通常はvisCenterで十分ですが、特定の位置に接続したい場合は指定します。
‘ コネクタ側はvisBegTrigger（始点）またはvisEndTrigger（終点）
‘ —————————————————-
‘ コネクタの始点を接続元図形に接着
‘ shpConnector.Connects.Add(shpFrom, visCenter, “BegTrigger”) でもOK
‘ ただし、Visio.Constants.visBegTrigger を使用する方が推奨されます。
shpConnector.Connects.Add shpFrom, Visio.Constants.visCenter, Visio.Constants.visBegTrigger
‘ コネクタの終点を接続先図形に接着
shpConnector.Connects.Add shpTo, Visio.Constants.visCenter, Visio.Constants.visEndTrigger
‘ —————————————————-
‘ 4. コネクタの自動ルーティングを実行
‘ 接着されたコネクタをVisioのルーティングエンジンが最適化します。
‘ これは非常に重要なステップです。
‘ —————————————————-
vPag.Layout.RouteConnections
MsgBox “図形が自動的に接続され、ルーティングされました！”, vbInformation
CleanUp:
‘ オブジェクトの解放（COMオブジェクトのライフサイクル管理は非常に重要！）
‘ これを怠ると、メモリリークやVisioの不安定化を招く可能性があります。
Set shpConnector = Nothing
Set shpTo = Nothing
Set shpFrom = Nothing
Set vMaster = Nothing
Set vPag = Nothing
Set vDoc = Nothing
Set vApp = Nothing
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Resume CleanUp ‘ エラーが発生してもオブジェクト解放処理へ進む
End Sub
3.3. コードのポイント解説
1. オブジェクトの取得:
`Set vApp = Visio.Application` から `Set vPag = vApp.ActivePage` までで、VBAが操作するVisioの「場所」を特定します。これはVisio VBAの基本中の基本です。
2. 図形の取得:
`Set shpFrom = vPag.Shapes(“開始プロセス”)` のように、`Page.Shapes`コレクションから図形名（またはID）を指定して目的の図形を取得します。図形名はVisio上で図形を選択し、開発タブの「図形名」ボタンで確認・変更できます。
3. コネクタの生成:
`vMaster = vApp.ActiveDocument.Masters.ItemU(“Dynamic connector”)` で、「ダイナミックコネクタ」という名前のマスターシェイプ（コネクタのひな形）を取得します。
`shpConnector = vPag.Drop(vMaster, 0, 0)` で、そのマスターシェイプをページにドロップし、実際のコネクタ図形（`Shape`オブジェクト）を生成します。ドロップ位置の `(0, 0)` は、後で自動ルーティングされるため、どこでも問題ありません。
4. コネクタの接着（`Connects.Add`メソッド）の真髄:
ここが最も重要な部分です。
`shpConnector.Connects.Add shpFrom, Visio.Constants.visCenter, Visio.Constants.visBegTrigger`
この一行が、コネクタの「始点」を `shpFrom`（開始プロセス）図形の「中心」に接着させる命令です。
- 第一引数 (`shpFrom`): 接続元の図形オブジェクト。
- 第二引数 (`Visio.Constants.visCenter`): 接続元の図形のどこに接着するか。`visCenter`（中心）、`visLeftEdge`（左端）、`visRightEdge`（右端）など、様々な定数があります。状況に応じて使い分けましょう。
- 第三引数 (`Visio.Constants.visBegTrigger`): コネクタのどちらの端点に接着するか。`visBegTrigger`はコネクタの始点、`visEndTrigger`はコネクタの終点を指します。
同様に、終点も `shpTo`（判定ステップ）図形に接着します。
5. 自動ルーティングの実行 (`Layout.RouteConnections`):
`vPag.Layout.RouteConnections`
このメソッドを呼び出すことで、Visioのルーティングエンジンが起動し、接着されたすべてのコネクタの経路を自動的に計算し、最適化します。これこそが、手動での配線作業から解放される魔法の一撃です！
6. オブジェクトの解放（極限の知見！）:
`Set shpConnector = Nothing` のように、使用したオブジェクトを`Nothing`に設定する行を「必ず」記述してください。これはCOMオブジェクトのライフサイクル管理において非常に重要です。VBAがVisioのCOMオブジェクトへの参照を保持し続けると、メモリリークやVisioが応答しなくなるなどの問題を引き起こす可能性があります。特にループ内で大量のオブジェクトを扱う場合は、この解放処理を怠ると致命的なパフォーマンス低下を招きます。
4. さらにスマートに！ルーティングの微調整とベストプラクティス
基本的な接続は上記で可能ですが、さらに一歩進んだ「スマートな配線」のためのヒントです。
4.1. ルーティングのタイミングとパフォーマンス
`vPag.Layout.RouteConnections` は、現在のページのすべてのコネクタを再ルーティングします。多数のコネクタがある場合、この処理は時間がかかる可能性があります。
ベストプラクティスとしては、すべてのコネクタの接着処理が完了した後に、一度だけ `RouteConnections` を呼び出すのが最も効率的です。個々のコネクタを接続するたびに呼び出すのは避けましょう。
4.2. 接続ポイントの柔軟な指定
上記の例では `visCenter` を使いましたが、コネクタを特定の側面に接続したい場合は、以下のような定数を使用できます。
- `Visio.Constants.visCenter` (中心)
- `Visio.Constants.visLeftEdge` (左端)
- `Visio.Constants.visRightEdge` (右端)
- `Visio.Constants.visTopEdge` (上端)
- `Visio.Constants.visBottomEdge` (下端)
例えば、フローチャートで「はい/いいえ」の分岐を示すために、常に「はい」は右から、「いいえ」は下からコネクタを出すといった制御が可能です。
5. 陥りやすい落とし穴と解決策
VBAでの自動化は強力ですが、いくつか注意すべき点があります。
5.1. `Nothing`参照エラー (`Object variable or With block variable not set`)
最も頻繁に遭遇するエラーの一つです。これは、`Set` キーワードを使ってオブジェクト変数にオブジェクトを割り当てようとしたが、そのオブジェクトが見つからなかった場合に発生します。
解決策:
- `vPag.Shapes(“図形名”)` で図形を取得する場合、図形名が正しいか、Visioページにその図形が存在するか確認してください。大文字・小文字、全角・半角の違いにも注意が必要です。
- `vMaster = vApp.ActiveDocument.Masters.ItemU(“Dynamic connector”)` の場合、使用しているVisioのテンプレートやステンシルに「Dynamic connector」というマスターシェイプが存在するか確認してください。
5.2. ルーティングが期待通りにいかない場合
- 図形の重なりやスペース不足: Visioのルーティングエンジンは、図形が密集しすぎていると、最適な経路を見つけられないことがあります。図形間の十分なスペースを確保してください。
- ページのレイアウト設定: Visioの「デザイン」タブにある「レイアウト」グループで、ページのルーティング設定が影響することがあります。VBAから `vPag.Layout.ContainerProperties.LayoutConfig` などで設定を変更することも可能ですが、初学者向けにはまずデフォルト設定で試すのが良いでしょう。
- コネクタのルーティングスタイル: コネクタのシェイプシート（開発タブ → 「シェイプシートの表示」→ 「図形シート」）にある `LineRouteExt` セルで、ルーティングスタイル（直線、直角、曲線など）が設定されています。VBAからこれを変更することもできますが、まずはデフォルトの「ダイナミックコネクタ」のスタイルで試すことをお勧めします。
5.3. オブジェクト参照の解放忘れ
前述の通り、`Set obj = Nothing` を忘れると、Visioアプリケーションの動作が不安定になったり、メモリを消費し続けたりする原因になります。特に大量の操作を行う場合は、必ず `ErrorHandler` と `CleanUp` セクションを設けて、例外発生時でもオブジェクトが解放されるように設計してください。
まとめ：Visioはもう「描くだけ」のツールではない！
今回の記事で、あなたはVisio VBAにおけるコネクタの自動ルーティングの基礎と、その背後にあるオブジェクトモデルの真髄を理解しました。
これで、あなたのVisioはもう「描くだけ」のツールではありません。VBAの力で、複雑な図面も瞬時に、そして美しく生成できる、強力な自動化プラットフォームへと変貌を遂げたはずです。
次のステップへ
- 複数の図形をループで自動接続: 今回のコードを応用して、特定の条件を満たす図形同士をすべて自動で接続するマクロを作成してみましょう。
- 接続ポイントの条件分岐: 図形の種類や位置に応じて、接続ポイントを動的に変更するロジックを組み込んでみましょう。
- カスタムコネクタの利用: 「ダイナミックコネクタ」以外の、独自に作成したカスタムコネクタをVBAから利用する方法を探ってみましょう。
Visio VBAの奥深い世界は、あなたの探求心を刺激し、業務効率化の新たな地平を切り開くことでしょう。
さあ、この知識を武器に、あなたのVisio自動化プロジェクトを次のレベルへと進化させてください！
—
