こんにちは！Visioの自動化の世界へようこそ。
マクロの記録ボタンを押して、生成されたコードを眺めては「なんだかよく分からないけれど動くぞ……」と感動していた時期は、今日で卒業にしましょう。
今回は、Visio VBAの基礎でありながら、実務の現場で最も頭を悩ませるポイントの一つである「背景ページ（Background Page）の自動生成・割当と共通枠線の標準化」を徹底攻略します。
「複数のページに、社名ロゴや共通の枠線を一発で連動させたい」
「新規ページを作ったときに、自動で指定の背景を割り当てたい」
ここをクリアすれば、あなたの作る図面は一気にプロフェッショナルな品質になり、手作業地獄から完全に解放されます。さあ、一緒に本質の扉を開きましょう！
—
1. Visioオブジェクトモデルの核心：フォアグラウンドと背景の関係
まずは、Visioが持つ独特のキャンバス構造を理解することから始めます。ここを誤ると、VBAでどれだけコードを書いてもエラーの海に溺れることになります。
Visioのドキュメント（`Document`）の中には、大きく分けて2種類のページ（`Page`）が存在します。
1. フォアグラウンドページ（Foreground Page）
私たちが普段、図形を配置したりフローチャートを描いたりする通常のメインページです。
2. 背景ページ（Background Page）
他のページの下敷き（透かし）として表示される専用のページです。ここに会社のロゴ、改訂履歴欄、共通の枠線を描き込みます。
🔑 最重要の設計思想：背景は「指定」するもの
Visio VBAにおいて、フォアグラウンドページに背景を割り当てるプロパティが、今回主役となる `Page.Background` および `Page.BackPage` です。
- `Page.Background = True` ：そのページ自体を「背景ページ」属性にする。
- `Page.BackPage = 該当のPageオブジェクト` ：フォアグラウンドページに対して、「どの背景ページを背面に敷くか」を指定する。
この親子関係の紐付けをVBAで自在にコントロールできるようになると、何百ページある図面全体のデザイン統制も、わずかコンマ数秒で終わらせることができます。
—
2. 【実戦コード】背景ページの自動生成と一括割当マクロ
それでは、現場でそのまま使える実用的なVBAコードを公開します。
このコードは、「共通の枠線とタイトルブロックを持った背景ページを自動生成し、アクティブなドキュメント内の全フォアグラウンドページに一括で割り当てる」というものです。
VBE（Visual Basic Editor）を開き、標準モジュールに貼り付けて実行してみてください。
Sub SetupStandardBackgroundAndPages()
Dim vsoDoc As Visio.Document
Dim vsoBackPage As Visio.Page
Dim vsoPage As Visio.Page
Dim shpBorder As Visio.Shape
Set vsoDoc = ActiveDocument
‘ — 1. すでに同名の背景ページがあれば取得し、なければ新規作成する —
On Error Resume Next
Set vsoBackPage = vsoDoc.Pages.Item(“共通標準背景”)
On Error GoTo 0
If vsoBackPage Is Nothing Then
‘ 新規ページを追加し、背景ページ属性に変更する
Set vsoBackPage = vsoDoc.Pages.Add()
vsoBackPage.Name = “共通標準背景”
vsoBackPage.Background = True
‘ 背景ページ特有の設定：ページサイズを親ページに合わせるなどの処理が可能
vsoBackPage.PageSheet.CellsSRC(visSectionObject, visRowPageLayout, visPLoResizePage).FormulaU = 1
‘ — 2. 共通枠線やタイトルブロックをコードで描画・配置する —
‘ ※ここではシンプルに四角形（枠線）を描画しています
‘ 実務ではここにマスターシェイプをドロップする処理を入れると堅牢です
Set shpBorder = vsoBackPage.DrawRectangle(0.5, 0.5, 10.69, 7.76) ‘ A4横を想定した座標(インチ)
shpBorder.Text = “【社外秘】標準ドキュメント共通枠”
shpBorder.CellsSRC(visSectionCharacter, 0, visCharacterSize).FormulaU = “9pt”
Debug.Print “背景ページ「共通標準背景」を新しく作成しました。”
Else
Debug.Print “既存の背景ページを使用します。”
End If
‘ — 3. ドキュメント内の全「フォアグラウンドページ」に背景を割り当てる —
For Each vsoPage In vsoDoc.Pages
‘ 背景ページ自身には背景を設定しない（無限ループやバグを防ぐため）
If vsoPage.Background = False Then
‘ BackPageプロパティに作成した背景ページオブジェクトを代入
Set vsoPage.BackPage = vsoBackPage
Debug.Print vsoPage.Name & ” に背景を割り当てました。”
End If
Next vsoPage
MsgBox “すべてのページへの背景標準化が完了しました！”, vbInformation, “自動化完了”
End Sub
—
3. コードの解説と「初心者が絶対にハマる罠」
上記のコードには、Visio VBA特有の重要なノウハウが詰まっています。いくつかポイントを解説しましょう。
💡 ポイント1：背景ページ自体の判定 (`vsoPage.Background = False`)
ループ処理の中で、すべてのページを無条件に対象にすると、「背景ページに背景ページを割り当てる」という矛盾が生じ、Visioが混乱したりエラーを起こしたりします。必ず `If vsoPage.Background = False` でフォアグラウンドページだけに絞り込むのが、プロの防御的プログラミングです。
⚠️ 陥りやすい罠：名前で指定する際のエラー
既存の背景ページを探す際、`vsoDoc.Pages.Item(“名前”)` を使っています。もし該当するページが存在しない場合、Visio VBAは容赦なく実行時エラー（エラー4: オブジェクト変数が見つかりません）を吐いて止まります。
そのため、一時的に `On Error Resume Next` を使い、エラーを無視させてから `Nothing` 判定を行うのが、実務で使える安全なイディオムです。
🎨 実務での応用：マスターシェイプの活用
上記のサンプルコードでは `DrawRectangle` で簡単な枠線を描いていますが、実務では社内規定の精密なロゴや図形グループをあらかじめステンシルに登録しておき、`Drop` メソッドを使って背景ページに配置するのが王道です。
‘ ステンシルからマスターシェイプを背景ページに配置する例
‘ Dim vsoMaster As Visio.Master
‘ Set vsoMaster = vsoDoc.DocumentMasters.Item(“会社ロゴマスター”)
‘ vsoBackPage.Drop vsoMaster, 1.0, 1.0
—
まとめ：ここをクリアすれば、Visio VBAの基本はバッチリです！
今回は、`Page.Background` プロパティを中心に、背景ページの自動生成からフォアグラウンドページへの割当ロジックまでを駆け抜けて解説しました。
- 背景ページは `Background = True` で作る
- フォアグラウンドへの紐付けは `BackPage = ◯◯` で行う
- 一括処理の際は、ページの種類（背景か否か）を必ず判定する
この3つさえ押さえておけば、どれほど巨大なドキュメント構造であっても、あなたのマクロで一瞬にしてデザインを統制できます。
手作業でのコピー＆ペースト作業とはもうお別れです。ぜひご自身の環境でコードを動かし、その圧倒的なスピード感を体感してください。あなたのVisio自動化ライフが、最高のものになりますように！
