【極限のVisio VBA】特定のレイヤーだけを「外科手術」のように抽出してコピーする高度な自動化術
こんにちは。現場の設計自動化を支えるアーキテクトです。
Visioを使って図面を大量に作成していると、こんな壁にぶつかることはありませんか？
「ページ全体をコピーしたいわけじゃない。特定の『論理回路レイヤー』だけを、別のページにそのまま持ってきたいんだ」と。
マクロの記録機能を使ってみると、Visioは「すべての図形を選択してコピーする」という、いわば「力技」のコードを生成します。しかし、実務で求められるのは、特定の属性（レイヤー）だけを狙い撃ちにする、精密な「外科手術」のような操作です。
今日は、マクロの記録から脱却し、Visio VBAの真髄である「Selection（選択範囲）オブジェクト」を自在に操る術を伝授します。ここをクリアすれば、あなたのVisio操作は「記録」から「設計」へと進化しますよ。
1. なぜ「マクロの記録」では限界が来るのか？
まず、なぜ標準的な方法ではうまくいかないのか、その本質を理解しましょう。
Visioの図形（Shape）は、単なる「絵」ではありません。その図形は、「どのレイヤーに属しているか」という属性情報を保持しています。
マクロの記録が生成するコードは、多くの場合 `ActivePage.Shapes.SelectAll` を使います。これはページ上のすべての図形を掴んでしまいます。特定のレイヤーだけを抽出したい場合、私たちは「図形を一つずつ調べ、条件に合うものだけを、プログラム上で『選択状態』にする」というプロセスを自前で構築しなければなりません。
ここで鍵となるのが、`Selection` オブジェクトです。
2. 実装の戦略：動的セレクション・アルゴリズム
今回のミッションは以下のステップで実行します。
1. ターゲットの特定: コピーしたい「レイヤー名」を決定する。
2. 全探索: ページ内の全図形をループで走査する。
3. 条件判定: 図形がターゲットのレイヤーに属しているかチェックする。
4. 動的選択: 条件に合致した図形だけを `Selection.Add` で選択範囲に追加していく。
5. 実行: 選択されたものだけを `Copy` し、別ページへ `Paste` する。
これがいわゆる「動的なSelection生成」です。
3. 【実践】レイヤー特定コピー＆ペースト・コード
それでは、そのまま現場で使えるレベルのコードを見てみましょう。初心者の方でも読みやすいよう、丁寧にコメントを添えています。
Option Explicit
''' <summary>
''' 指定したレイヤーに属する図形のみを、別のページへコピーする
''' </summary>
''' <param name="sourcePageName">コピー元のページ名</param>
''' <param name="targetPageName">コピー先のページ名</param>
''' <param name="targetLayerName">抽出したいレイヤー名</param>
Sub CopyShapesByLayerName(sourcePageName As String, targetPageName As String, targetLayerName As String)
Dim srcPage As Visio.Page
Dim tgtPage As Visio.Page
Dim shp As Visio.Shape
Dim sel As Visio.Selection
Dim layerFound As Boolean
' 1. オブジェクトのセットアップ
On Error Resume Next
Set srcPage = ActiveDocument.Pages(sourcePageName)
Set tgtPage = ActiveDocument.Pages(targetPageName)
On Error GoTo 0
' エラーチェック：ページが存在しない場合のガード
If srcPage Is Nothing Or tgtPage Is Nothing Then
MsgBox "指定されたページが見つかりません。", vbCritical
Exit Sub
End If
' 画面更新を停止（パフォーマンス向上と画面のチラつき防止）
Application.ScreenUpdating = False
' 2. 選択範囲をクリアする
' 既存の選択状態が残っていると、意図しない図形までコピーされてしまいます
ActiveWindow.SelectAll ' 一旦全部選択してから
ActiveWindow.Selection.Clear ' 全解除（Selectionオブジェクトを真っさらにする）
' 3. 図形の全探索とレイヤー判定
layerFound = False
For Each shp In srcPage.Shapes
' 図形が指定したレイヤー名を持っているか確認
' ※Shape.LayerIndexではなく、レイヤー名で判定するのが直感的で安全です
If shp.Layer.Name = targetLayerName Then
' 条件に一致した場合、現在の選択範囲にその図形を追加する
' これが「動的なSelection生成」の核心部です
ActiveWindow.Selection.Add shp
layerFound = True
End If
Next shp
' 4. コピー＆ペーストの実行
If layerFound Then
' 選択された図形だけをクリップボードへ
ActiveWindow.Selection.Copy
' コピー先ページへ移動
tgtPage.Activate
' 貼り付け（貼り付け位置は、必要に応じて調整してください）
tgtPage.Paste
MsgBox "レイヤー「" & targetLayerName & "」のコピーが完了しました。", vbInformation
Else
MsgBox "指定されたレイヤーに属する図形が見つかりませんでした。", vbExclamation
End If
' 5. 後処理
Application.ScreenUpdating = True
End Sub
''' <summary>
''' テスト実行用メインルーチン
''' </summary>
Sub TestRun()
' 実行例：ページ1の「Logic」レイヤーを、ページ2へコピーする
' ※あらかじめVisio内に「Logic」という名前のレイヤーを作成しておいてください
Call CopyShapesByLayerName("Page-1", "Page-2", "Logic")
End Sub4. プロの視点：コードの深掘りと注意点
このコードを単なる「動くもの」で終わらせないために、エンジニアとして知っておくべき「重み」を解説します。
① `Application.ScreenUpdating` の重要性
コード内で `Application.ScreenUpdating = False` を使っていますね。これは単に見た目を綺麗にするためだけではありません。Visioは図形を選択したりページを切り替えたりするたびに、画面の再描画（リライト）を行います。図形が数百、数千とある場合、この描画処理がボトルネックとなり、実行速度が劇的に低下します。「自動化の基本は、画面への干渉を最小限に抑えること」です。
② `Selection.Add` のコスト
`Selection.Add` メソッドは非常に強力ですが、ループの中で何度も呼び出すと、内部的な選択リストの再構築が走り、計算コストが増大します。数万個の図形を扱う極限の環境では、Selectionを使わずに「図形のコレクション」をメモリ上に構築する手法を検討しますが、通常の設計業務（数百〜数千個程度）であれば、この `Selection` を使う方法が最も確実で、レイヤー属性を保持したままコピーできる賢明な選択です。
③ 陥りやすいエラー：レイヤー名の不一致
`shp.Layer.Name` で判定していますが、ここで最も多いミスは「レイヤー名のタイポ（打ち間違い）」です。
Visioのレイヤーには「表示/非表示」の設定がありますが、非表示のレイヤーであってもこのコードは動作します。しかし、名前が1文字でも違うと `layerFound` は `False` になります。実務では、ユーザーにレイヤー名を入力させるのではなく、ドロップダウンリストから選ばせるなどの工夫をすると、より堅牢なツールになります。
まとめ：ここをクリアすれば、Visio VBAの基本はバッチリです
今回の「特定のレイヤーだけを抽出する」テクニックは、以下の3つの概念を統合したものです。
1. オブジェクトの階層構造（Page $\rightarrow$ Shape $\rightarrow$ Layer）を理解すること。
2. Selectionオブジェクトを、単なる「マウスでの選択」ではなく「プログラムによる動的な集合体」として扱うこと。
3. 例外処理とパフォーマンス（エラーチェックと画面更新停止）を意識すること。
これらをマスターすれば、あなたはもう「マクロの記録」に頼る初心者ではありません。Visioという巨大なキャンバスを、意のままに操るエンジニアの第一歩を踏み出したのです。
次は、コピーした図形の位置を数学的に計算して整列させる「配置の自動化」に挑戦してみるのも良いでしょう。道はまだ続きますが、一歩ずつ、楽しみながら進んでいきましょう！
