Visio VBAを掌握する：ハイパーリンク自動埋め込みで「静的な図面」を「動的なアプリ」へ進化させる
こんにちは。自動化の深淵へようこそ。
普段、何気なくVisioで図形を配置し、手作業でハイパーリンクを一つずつ設定していませんか？もし100個の図形があるなら、その作業だけで数十分が消え去ります。そして、修正が発生した瞬間、あなたの精神は削られるはずです。
Visio VBAの本質は「GUIを操作すること」ではなく、「Visioの内部構造（オブジェクトモデル）をプログラムで直接支配すること」にあります。今回は、最も実用的かつ強力な機能の一つ、「Shape.Hyperlinksコレクション」を制御し、図面をインタラクティブな情報ハブに変える術を伝授しましょう。
—
1. Visioオブジェクトモデルの「階層」を理解せよ
Visioのコードを書く前に、この「支配構造」を脳内に刻んでください。
- Application: Visioそのもの。
- Document: 開いているファイル。
- Page: 図面内の各ページ。
- Shape: 図形。すべての情報の最小単位。
ハイパーリンクは、この末端であるShapeオブジェクトの中に格納された「コレクション（配列のようなもの）」です。つまり、特定の図形に対し、「新しいリンクを追加せよ」と命令を下すだけで、図面は即座に生まれ変わります。
—
2. ハイパーリンクを自動埋め込みする実践コード
まずは、選択した図形にURLをセットするコードを見てみましょう。マクロの記録では決して辿り着けない、洗練された書き方です。
Sub AddHyperlinkToSelectedShapes()
‘ 変数の宣言：型を明示することでメモリ効率と可読性を最大化する
Dim shp As Visio.Shape
Dim hlnk As Visio.Hyperlink
‘ 選択図形がない場合のガード句（エラー回避の基本）
If ActiveWindow.Selection.Count = 0 Then
MsgBox “対象となる図形を選択してください。”, vbExclamation
Exit Sub
End If
‘ 選択されたすべての図形に対してループ処理を行う
For Each shp In ActiveWindow.Selection
‘ 既存のリンクをクリーンにするか、追加するかは仕様次第。
‘ 今回はシンプルに「新規追加」を行う
Set hlnk = shp.Hyperlinks.Add
‘ ハイパーリンクのプロパティを定義
With hlnk
.Address = “https://example.com” ‘ 外部サイトのURL
.Description = “詳細ドキュメントへジャンプ” ‘ ホバー時に表示される説明
.ExtraInfo = “query=target_id” ‘ 必要に応じてパラメータを付与
End With
Next shp
MsgBox “全選択図形へのリンク設定が完了しました。”
End Sub
—
3. ここがプロの分かれ道：陥りやすい罠
初学者が必ず突き当たる「壁」があります。これをクリアすれば、君はもう中級者です。
① “Add” メソッドの挙動を理解する
`shp.Hyperlinks.Add` は、その図形に「新しいハイパーリンクオブジェクトを作成し、それを返す」というメソッドです。もし既にリンクが設定されている図形にこれを実行すると、リンクが複数追加されます。
- 対策: `shp.Hyperlinks.Count` で既存リンクを確認し、必要に応じて `shp.Hyperlinks(1).Delete` で削除してから追加するなどの制御が、堅牢なコードへの第一歩です。
② 「別ページ」へのリンク方法
Webサイトだけでなく、同じドキュメント内の別ページへの遷移も可能です。その場合は `.Address` ではなく `.SubAddress` を使います。
‘ 同一ドキュメント内の「Page-2」という名前のページへ飛ばす場合
hlnk.SubAddress = “Page-2”
③ 図形名での特定
全図形を処理するのではなく、「特定のIDを持つ図形」だけにリンクを貼りたい場合、`shp.Name` や `shp.UniqueID` を活用します。手作業で図形名を変えるのは手間なので、`shp.Cells(“User.MyID”).ResultStr(“”)` のように、図形データ（ShapeSheet）に埋め込んだカスタムプロパティをキーにするのが、プロの設計です。
—
4. まとめ：自動化の先にあるもの
今回解説したハイパーリンクの操作は、ほんの入り口に過ぎません。
しかし、この「Shapeオブジェクトのコレクションを操る」という感覚を掴めば、次は「ShapeSheetの値を書き換える」「図形を自動生成する」「外部DBのデータを図形に反映させる」といった、より高度な領域へ繋がっていきます。
Visio VBAは、ただの作業代行ツールではありません。図面という「静的な情報」に「命」を吹き込むための魔法です。
エラーが出ても恐れることはありません。Visioのオブジェクトモデルという巨大な地図を、一つずつ塗りつぶしていきましょう。
もしコードが動かなかったら、まずは `Selection` が正しい図形を捉えているか、`Debug.Print shp.Name` で確認してみてください。その小さなデバッグの積み重ねが、あなたを真のエンジニアへと成長させます。
さあ、次はどんな自動化に挑戦しますか？応援していますよ。
