「手作業」を卒業する第一歩：Visio VBAでページ初期化を自動化する極意
こんにちは。現場の自動化を設計するチーフアーキテクトです。
Visioを使って図面やフローチャートを作成していると、必ずと言っていいほど直面する「儀式」がありますよね。
「新しいページを追加する」
「図面枠（フレーム）を配置する」
「会社のロゴを右上に置く」
「レイヤーを整理する」
これ、毎回やっていませんか？
もしあなたが「マクロの記録」ボタンを押して、マウス操作をそのままコードに書き起こしているのだとしたら……少しだけ立ち止まって、この記事を読んでみてください。
今日は、単なる「操作の記録」から脱却し、「Visioの構造を理解して、スマートにページを自動生成する」ための、エンジニアとしての第一歩を伝授します。
1. なぜ「マクロの記録」では不十分なのか？
「マクロの記録」は素晴らしいツールですが、限界があります。記録されたコードは「その時、その場所にあったもの」を指し示す、非常に脆い（もろい）指示書です。
例えば、記録されたコードが `ActivePage.Shapes(“Rectangle.1”)` という名前で図面枠を操作していたとしましょう。次にマクロを動かしたとき、もし図面枠の名前が `Rectangle.2` になっていたら？ コードはエラーを吐いて止まってしまいます。
プロの自動化エンジニアは、「名前」ではなく「概念（オブジェクト）」を操作します。
今回のテーマである「マスターシェイプ（あらかじめ定義された部品）」を呼び出す手法は、その概念への入り口です。
2. 核心となる概念：Master と Shape の違い
コードを書く前に、Visioの脳内構造を理解しましょう。ここがクリアできれば、VBAの半分はマスターしたも同然です。
- Master（マスター）: ステンシル（部品箱）の中に格納されている「設計図」です。これ自体はまだページ上に存在していません。
- Shape（シェイプ）: マスターという設計図をもとに、ページ上に「実体化」させたものです。
私たちがやるべきことは、「ページに新しいシートを作り、そこへマスターを『Drop（ドロップ）』して、実体（シェイプ）にする」というプロセスです。
3. 実践：標準テンプレートを自動適用する初期化マクロ
それでは、実際に動くコードを見てみましょう。
このコードは、「新しいページを作成し、あらかじめ用意してある『図面枠マスター』と『ロゴマスター』を、正しい位置に自動配置する」というものです。
※前提として、使用するステンシル（図面枠やロゴが入ったもの）がドキュメント内で開かれている必要があります。
Option Explicit
''' <summary>
''' 新しいページを作成し、標準の図面枠とロゴを自動配置する初期化マクロ
''' </summary>
Sub InitializeNewPageWithTemplate()
Dim targetDoc As Visio.Document
Dim newPage As Visio.Page
Dim frameMaster As Visio.Master
Dim logoMaster As Visio.Master
Dim frameShape As Visio.Shape
Dim logoShape As Visio.Shape
Dim stencil As Visio.Document
Set targetDoc = ActiveDocument
' 1. 新しいページを追加
' 引数: (名前, ページサイズ, テンプレート)
Set newPage = targetDoc.AddPage("新規設計シート_" & Format(Now, "hhmmss"))
On Error GoTo ErrorHandler
' 2. マスター（設計図）の取得
' ここでは、"MyStandardStencil" という名前のステンシルが開いていることを想定しています
' 実際の名前に合わせて書き換えてください
Set stencil = targetDoc.ConnectedStencil("MyStandardStencil")
' マスターの名前を指定して取得
Set frameMaster = stencil.Masters("DrawingFrame")
Set logoMaster = stencil.Masters("CompanyLogo")
' 3. ページへのドロップ（実体化）
' Dropメソッドは、配置した「Shapeオブジェクト」を返してくれるのが最大のポイントです！
' 引数: (マスター, X座標, Y座標) ※単位はインチまたはミリ
Set frameShape = newPage.Drop(frameMaster, 0, 0)
Set logoShape = newPage.Drop(logoMaster, 0, 0)
' 4. 配置の微調整（プロの仕上げ）
' ドロップした直後のシェイプは、そのオブジェクトに対して操作を行います
' 図面枠を最背面に移動（ロゴや図形の下に隠れるように）
frameShape.SendToBack
' ロゴの位置を調整（例：右上に配置）
' Pageの幅と高さを使用して計算することで、ページサイズが変わっても対応可能になります
logoShape.Cells("PinX").Formula = newPage.PageSheet.Cells("PageWidth").Formula & " - 1in"
logoShape.Cells("PinY").Formula = newPage.PageSheet.Cells("PageHeight").Formula & " - 1in"
MsgBox "ページ「" & newPage.Name & "」の初期化が完了しました。", vbInformation, "Success"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました。" & vbCrLf & _
"原因: " & Err.Description & vbCrLf & _
"※ステンシルが正しく開かれているか、マスター名が正しいか確認してください。", vbCritical, "Error"
End Sub4. ここが重要！エンジニアの視点
コードを読み解く際に、特に意識してほしい「プロの勘所」を解説します。
① `Drop` メソッドの戻り値を利用する
ここが最も重要なテクニックです。
`Set frameShape = newPage.Drop(…)` と書くことで、配置した瞬間にそのシェイプを `frameShape` という変数に格納しています。
これにより、後から「名前」で探す必要がなく、「さっき置いたばかりの、あの図面枠」に対して、直接「最背面に移動しろ(`SendToBack`)」といった命令が出せるようになるのです。
② 座標計算に「PageSheet」を使う
`logoShape.Cells(“PinX”).Formula = …` の部分に注目してください。
固定値（例：`10cm`）を入れるのではなく、`newPage.PageSheet.Cells(“PageWidth”)`（ページの幅）を使って計算しています。
こうすることで、将来的に「A4サイズからA3サイズに設計変更になった」としても、マクロを書き換えることなく、常に正しい位置にロゴが配置されます。これを「動的な設計」と呼びます。
③ エラーハンドリング（守りの設計）
`On Error GoTo ErrorHandler` を入れています。
自動化ツールにおいて、エラーで止まってしまうことはユーザーの信頼を損なう最大の要因です。「なぜ失敗したのか（ステンシルがないのか、名前が違うのか）」を明示的に伝えることが、現場で使えるツールにするための条件です。
5. まとめ：次はここを目指そう
今回のマクロで、あなたは「ページを作る」という作業を、「マスターをドロップして、プロパティを制御する」という高度なプロセスに昇華させました。
次に挑戦すべきステップ：
1. レイヤーの制御: 図面枠を「背景レイヤー」に自動で所属させる。
2. プロパティの自動入力: ページ名から日付を抽出し、図面枠内のテキストボックスに自動入力する。
「マクロの記録」は、あくまで辞書のようなものです。そこから学んだ断片的な知識を、今回のように「オブジェクトの繋がり」として組み立てていくこと。それが、Visio VBAを掌握する唯一の道です。
ここをクリアすれば、あなたのVisio業務は劇的に変わります。一歩ずつ、楽しみながら進んでいきましょう！
