こんにちは。業務自動化の世界へようこそ。
Visioの「外部データリンク」は強力な武器ですが、配布時にはその「紐付け」が足枷になることがあります。特に、機密情報を含むExcelデータと切り離した「クリーンな静的図面」を作成したいとき、手作業でリンクを解除するのはあまりに非効率ですよね。
今日は、Visio VBAの深淵に触れ、「データリンクを外科手術のように正確に切断する」ための実践的アーキテクチャを伝授します。
—
1. Visioオブジェクトモデルの「階層構造」を理解する
まず、私たちが操作する対象を整理しましょう。Visioのデータリンクを解くには、この階層をイメージできていることが不可欠です。
- Application: Visioそのもの（神の視点）
- Document: 図面ファイル（情報の入れ物）
- Page: 図面のページ（キャンバス）
- Shape: 図形（ここがデータを持っている場所）
データリンクの仕組みは、`Shape`オブジェクトが`DataRecordset`という「外部データのリスト」と、特定の行（`DataRow`）で結ばれている状態です。ここを断ち切るのが今回のミッションです。
—
2. なぜ「全解除」ではなく「ピンポイント解除」なのか？
初心者の方は「とりあえずリンクを全部消せばいい」と考えがちですが、実務では「特定のデータセットだけを外したい」「特定の図形だけリンクを残したい」という要件が必ず発生します。
ここで重要になるのが、`Shape.GetShapesLinkedToDataRow`メソッドです。これを使うことで、「どの行に紐付いている図形か？」を逆引きし、ターゲットを絞って確実に狙い撃ちすることができます。
—
3. 実践コード：データリンクを安全に解除する
以下のコードは、アクティブページにある全図形を走査し、特定のデータソースに紐付いているものを安全に切り離すテンプレートです。
Public Sub UnlinkDataFromShapes()
Dim vsoPage As Visio.Page
Dim vsoShape As Visio.Shape
Dim vsoDataRecordset As Visio.DataRecordset
Dim vsoDoc As Visio.Document
Set vsoDoc = ActiveDocument
Set vsoPage = ActivePage
‘ 処理対象のデータセットIDを指定（例：1）
Dim targetRecordsetID As Long
targetRecordsetID = 1
‘ ページ内の全図形をループ（再帰的な処理が必要な場合もあります）
For Each vsoShape In vsoPage.Shapes
‘ この図形がデータリンクされているか確認
If vsoShape.IsDataLinked Then
‘ 指定したデータセットにリンクされているか確認
If vsoShape.DataRecordsetID = targetRecordsetID Then
‘ 紐付けを解除
vsoShape.BreakLink
Debug.Print “図形ID: ” & vsoShape.ID & ” のリンクを解除しました。”
End If
End If
Next vsoShape
MsgBox “データ分離が完了しました。”, vbInformation
End Sub
コードの解説とポイント
- `vsoShape.IsDataLinked`: これが最初の関門です。リンクされていない図形に対して解除操作を行うとエラーになることがあるため、必ずこのプロパティで「リンクの有無」を確認します。
- `vsoShape.BreakLink`: これが決定打です。データとの接続を物理的に断ち切ります。
- エラーハンドリングの重要性: 実際の実務環境では、グループ化された図形（`Group`）の中にリンク図形が隠れていることがあります。その場合は、`vsoShape.Type`をチェックして再帰的に処理するロジックを組むのが「プロの設計」です。
—
4. 陥りやすい罠と対策
① 「リンク解除」と「データセット削除」の違い
`BreakLink` は「図形とデータの個別の紐付け」を消すだけです。もし図面ファイルから外部データソース自体の情報も完全に消し去りたい場合は、`vsoDoc.DataRecordsets.Item(ID).Delete` を実行する必要があります。配布用なら、後者まで行うのがベストプラクティスです。
② 大規模図面でのパフォーマンス
数千個の図形がある場合、ループ処理はVisioを一時的にフリーズさせることがあります。
Application.ScreenUpdating = False
‘ …ここに処理…
Application.ScreenUpdating = True
この魔法の呪文を忘れないようにしてください。画面の再描画を止めるだけで、処理速度は劇的に向上します。
—
最後に：自動化は「道具」ではなく「哲学」
Visio VBAをマスターするということは、単にコードを書くことではありません。「図面という静的な表現物に、データという動的な命をどう宿し、どう解き放つか」というライフサイクルを設計することです。
今回学んだ「リンク解除」のロジックは、セキュリティ管理の基本です。ここを突破できれば、あなたはもう初心者ではありません。次は、データセットIDを自動取得したり、特定の条件で図形の色を変えてからリンクを切る…といった応用編に挑戦してみてください。
困ったときは、いつでもこの場所に戻ってきてください。コードの向こう側にある景色を、一緒に見に行きましょう。応援していますよ。
