こんにちは！ Visioの自動化の世界へようこそ。
マクロの記録ボタンを押して、生成されたコードを眺めては「なんだかよく分からないけれど動くぞ……」と感動していた時期、あなたにもありませんか？
今回は、そこから一歩進んで、「自分の手でVisioのオブジェクトを自在に操り、プロフェッショナルな図面管理システムを構築する」ための極意をお伝えします。
テーマは「多層背景ページの動的制御」。
「表紙用背景」「本文用背景」「機密用背景」など、複数の背景ページをVBAから動的に切り替え、図面の種別に応じた枠線やロゴを一瞬でコントロールするアーキテクチャを一緒に作っていきましょう。
ここをクリアすれば、Visio VBAの基本構造やページ間の関係性はバッチリです。優しく、そして本質的なところまで深く解説していくので、リラックスしてついてきてくださいね。
—
1. なぜ「背景ページ（BackPage）」の動的制御が必要なのか？
実務で何十ページもある技術図面や提案書を作るとき、こんな面倒な作業に悩まされたことはありませんか？
- 「表紙だけは枠線を変えたいのに、全ページ同じ背景になってしまう……」
- 「社外秘の図面になった途端、全ページの『社外秘』スタンプを手動で貼り直す羽目に……」
Visioには、あるページの下敷きとして別のページを表示させる「背景ページ（BackPage）機能」があります。これを使えば共通の枠線やロゴを効率よく管理できます。
しかし、これを「手作業」でやろうとすると限界がきます。
「VBAを使って、ページの性質に応じた背景を瞬時に割り当てる」ことができれば、図面の品質管理は自動化され、ヒューマンエラーは完全にゼロになります。
—
2. Visioオブジェクトモデルの基礎：ApplicationからBackPageまで
Visio VBAをマスターするための第一歩は、「オブジェクトの親子関係（階層構造）」を頭に叩き込むことです。
Visioの宇宙は、次のような入れ子構造になっています。
Application (Visioアプリ全体)
┗ Documents (開いているファイルたち)
┗ Document (特定の図面ファイル)
┗ Pages (ページたち)
┣ Page (通常のページ ＝ ActivePage)
┗ Page (背景ページ ＝ BackPageとして使われる)
押さえておくべき最重要プロパティ：`Page.BackPage`
Visioの通常のページ（`Page`オブジェクト）には、`BackPage`というプロパティが存在します。
ここに「別のページ（背景用ページ）」の名前やオブジェクトを代入してあげるだけで、そのページに特定の背景をピタッと重ね合わせることができるのです。
言葉だけだと抽象的なので、実際にコードを書いてその動きを体感してみましょう！
—
3. 実践！動的背景切り替えマクロの構築
以下のコードは、アクティブなページの背景を指定した種別（表紙・通常・機密）に応じて一瞬で切り替える実用的なプロシージャです。
VBE（Visual Basic Editor）を開き、標準モジュールに貼り付けてみてください。
Option Explicit
‘ ==============================================================================
‘ 処理名 : ChangePageBackground
‘ 概要 : アクティブなページの背景を指定された種別に動的に切り替える
‘ 引数 : bgType (String) – “Cover”（表紙）, “Normal”（通常）, “Confidential”（機密）
‘ ==============================================================================
Public Sub ChangePageBackground(ByVal bgType As String)
Dim targetPage As Visio.Page
Dim bgPage As Visio.Page
Dim bgPageName As String
‘ 1. 操作対象の現在アクティブなページを取得
Set targetPage = ActivePage
‘ 2. 引数に応じて割り当てる背景ページの「名前」を決定
Select Case bgType
Case “Cover”
bgPageName = “BG_Cover” ‘ 表紙用背景
Case “Normal”
bgPageName = “BG_Standard” ‘ 通常用背景
Case “Confidential”
bgPageName = “BG_Secret” ‘ 機密用背景
Case Else
MsgBox “無効な背景種別が指定されました。”, vbCritical, “エラー”
Exit Sub
End Select
‘ 3. 該当する背景ページがドキュメント内に存在するかチェックし、取得する
On Error Resume Next
Set bgPage = ActiveDocument.Pages(bgPageName)
On Error GoTo 0 ‘ エラー捕捉を通常に戻す
‘ 背景ページが存在しない場合の親切なエラーハンドリング
If bgPage Is Nothing Then
MsgBox “背景ページ ‘” & bgPageName & “‘ が見つかりません。” & vbCrLf & _
“先に対応する背景ページを作成してください。”, vbExclamation, “背景ページ未存在”
Exit Sub
End If
‘ 4. 【核心】対象ページの BackPage プロパティに背景ページを設定！
Set targetPage.BackPage = bgPage
‘ 5. 完了メッセージ
Debug.Print “ページ [” & targetPage.Name & “] の背景を [” & bgPageName & “] に変更しました。”
End Sub
‘ ==============================================================================
‘ テスト実行用のラッパーマクロ
‘ ==============================================================================
Public Sub SetBackgroundToNormal()
ChangePageBackground “Normal”
End Sub
Public Sub SetBackgroundToConfidential()
ChangePageBackground “Confidential”
End Sub
コードの解説：ここが分かれば怖くない！
1. `Set targetPage = ActivePage`
今ユーザーが作業している画面上のページを「変数」として確保しています。
2. `ActiveDocument.Pages(bgPageName)`
図面ファイル（Document）の中にあるページ群（Pages）から、名前を指定して背景ページを探し出しています。
3. `Set targetPage.BackPage = bgPage`
ここが今回のメインディッシュです！通常のページの背景プロパティに、取得した背景ページオブジェクトを代入するだけで、Visioの画面がパッと切り替わります。
—
4. ありがちなエラーと「プロが教える」回避の極意
Visio VBAを書き始めると、誰もが一度は次のような壁にぶつかります。ここを知っていればもう安心です。
罠その1：「背景ページ自体が背景を持っていた！」の無限ループ
- 現象: 背景ページ（`BG_Standard`など）の `BackPage` プロパティに、うっかり別の背景を設定してしまうと、Visioが無限の参照ループに陥り、最悪の場合フリーズします。
- 解決策: 背景ページの背景は必ず 「[なし]（Nothing）」 に設定しておきましょう。VBAで強制的にクリアする場合は、`bgPage.BackPage = Nothing` と記述します。
罠その2：存在しないページ名を指定して「Type mismatch」
- 現象: コード内の `bgPageName` と実際のVisio上のページ名が「全角・半角」や「スペースの有無」でわずかにズレていると、`bgPage` が `Nothing` になり、次の行でエラー（オブジェクト変数が設定されていません）になります。
- 解決策: 今回のサンプルコードのように、`On Error Resume Next` と `If bgPage Is Nothing Then` をセットで使い、「存在しない場合は優しく教える」ガードを必ず実装しましょう。
—
おわりに：ここをクリアすれば、Visio VBAの基本はバッチリ！
今回は、Visioの「ページ」と「背景ページ」の関係性をVBAから動的にコントロールする手法を解説しました。
- オブジェクトの階層構造（`Document` ＞ `Pages` ＞ `Page`）
- `BackPage` プロパティによる背景の割り当て
- 不測の事態を防ぐエラーハンドリングの考え方
これらを理解したあなたなら、もう「マクロの記録の奴隷」ではありません。
業務の仕様書フォーマット変更や、複数種別の図面一括生成など、あらゆるドキュメント自動化の夢を自分の手で叶えることができます。
ぜひ、あなたの手元のVisioでも試してみてくださいね。
それでは、次回の高度な自動化の世界でお会いしましょう！エンジニアライフを楽しみましょう！
