【実務直結】Visio VBAを極める：ページサイズ変更に伴う「図面枠（タイトルブロック）」の自動リサイズと再配置の極意
エンタープライズ領域における図面自動生成や、プラント・ネットワーク設計の自動化パイプラインにおいて、Visioの描画エンジンをAPI経由で直接たたくアーキテクチャは今なお現役のソリューションである。
しかし、実務で容赦なく開発者の心を折る壁がある。それが「ページサイズの動的変更に伴う、図面枠（タイトルブロック）の破綻」だ。
A3からA1へ、あるいはレターサイズからカスタムの特大プロッタ用紙へ変えた瞬間、必死に配置した図面枠がページの中心に取り残されたり、右下からはみ出したりする。これを手動で修正しているようでは、自動化エンジニアの看板を下ろすべきだ。
今回は、Visioのシートメタデータの深部――`Page.PageSheet` セクションとShapeSheet関数群を直接操作し、図面枠をページサイズに完全に追従させるための極限の自動化ロジックを解き明かす。
—
1. 根本原因の分析：なぜ通常のVBAコードでは図面枠が破綻するのか？
多くの初学者が陥る罠は、ページサイズ（Page Width / Page Height）を変更した後に、図面枠シェイプの `.Width` や `.Height`、`.PinX` / `.PinY` をVBA側で力技で再計算し代入しようとするアプローチだ。
これは悪手である。理由を挙げよう。
1. イベントの非同期性と描画負荷: VBAから個別のシェイププロパティを書き換えるたびに、Visioの再描画エンジン（Re-layout Engine）が走り、莫大なオーバヘッドを生む。
2. スナップとグルーピングの崩壊: 図面枠は通常、複数の線やテキスト（改訂履歴、図面番号など）のグループまたはマスターシェイプである。これらを個別にいじると、相対位置関係が狂う。
3. トランザクションの欠如: ページサイズ変更とシェイプの変形が別々の処理として走ると、途中でエラーが起きた際に「ページだけが変わり、図面枠が追いついていない」中途半端な半死状態のドキュメントが生成される。
チーフアーキテクトの解：ShapeSheet数式バインド（FormulaU）の活用
VBA側で計算を行うな。「ページが変更されたら、図面枠の数式が勝手にそれを検知してリサイズされる」という依存関係（データバインディング）を、VisioのShapeSheet内部に構築するのが唯一無二の正解である。
—
2. アーキテクチャ設計：PageSheetと図面枠の数式連携
Visioのすべてのページは、背後に必ず1つの隠しシェイプ（`PageSheet`）を持っている。ページの幅や高さは、この `PageSheet` の `PageWidth` および `PageHeight` セクションに保持されている。
図面枠（タイトルブロック）シェイプ側の `Width`、`Height`、そしてピンの位置（`PinX`, `PinY`）に対し、`PageSheet` のプロパティを参照する数式（Formula）を動的に流し込むことで、完全な自動追従システムが完成する。
—
3. 実装コード：極限まで最適化されたVBAモジュール
以下のコードは、実務の現場で即座に組み込める堅牢性を持たせたプロシージャである。オブジェクトのライフサイクル管理、エラーハンドリング、そしてVBA特有のCOMメモリリークを防ぐための適切な参照解放（`Set … = Nothing`）を徹底している。
Option Explicit
‘ ==============================================================================
‘ 処理名 : ResizePageAndTitleBlock
‘ 概要 : ページの用紙サイズを変更し、図面枠（タイトルブロック）を自動追従させる
‘ 引数 : targetPage – 対象のVisio.Pageオブジェクト
‘ newWidth : 新しい用紙幅 (inch)
‘ newHeight : 新しい用紙高さ (inch)
‘ ==============================================================================
Public Sub ResizePageAndTitleBlock(ByVal targetPage As Visio.Page, ByVal newWidth As Double, ByVal newHeight As Double)
‘ エラーハンドリングの標準化
On Error GoTo ErrorHandler
‘ 画面描画とアラートを一時停止（パフォーマンスの劇的向上）
Application.ScreenUpdating = False
Application.AlertsEnabled = False
Dim vsoPageSheet As Visio.Shape
Set vsoPageSheet = targetPage.PageSheet
‘ 1. ページサイズの変更（PageSheetの数式を直接書き換え）
‘ ※ Visio内部では単位はインチ（Inches）で処理されるため、必要に応じて換算すること
vsoPageSheet.FormulaU(“PageWidth”) = newWidth
vsoPageSheet.FormulaU(“PageHeight”) = newHeight
‘ 2. 図面枠シェイプの特定と数式バインディング
‘ ここでは「TitleBlock」というレイヤーまたは名前に合致するシェイプを走査する
Dim vsoShape As Visio.Shape
Dim foundTitleBlock As Boolean
foundTitleBlock = False
For Each vsoShape in targetPage.Shapes
‘ シェイプ名やマスター名でタイトルブロックを判定
If InStr(1, vsoShape.Name, “TitleBlock”, vbTextCompare) > 0 Or _
(vsoShape.Master Is Not Nothing And InStr(1, vsoShape.Master.Name, “TitleBlock”, vbTextCompare) > 0) Then
‘ 【核心】ShapeSheetの数式を動的にバインドする
‘ 図面枠の幅をページ幅に合わせる（余白が必要な場合はここでオフセットを加算）
vsoShape.FormulaU(“Width”) = “PageWidth”
‘ 図面枠の高さをページ高さに合わせる（または固定アスペクト比を維持）
‘ ※タイトルブロックの構造に応じて数式を調整してください
vsoShape.FormulaU(“Height”) = “PageHeight”
‘ ピン（基準点）を左下（PinPos = 0）または右下（PinPos = 5など）に固定し、
‘ X=0, Y=0 の座標系にアンカーさせる
vsoShape.FormulaU(“PinX”) = “0”
vsoShape.FormulaU(“PinY”) = “0”
vsoShape.FormulaU(“LocPinX”) = “0”
vsoShape.FormulaU(“LocPinY”) = “0”
foundTitleBlock = True
Exit For
End If
Next vsoShape
If Not foundTitleBlock Then
Debug.Print “[Warning] 指定されたページに ‘TitleBlock’ シェイプが見つかりませんでした。”
End If
CleanUp:
‘ 描画の復元
Application.ScreenUpdating = True
Application.AlertsEnabled = True
‘ オブジェクトの明示的解放（メモリリーク防止）
Set vsoShape = Nothing
Set vsoPageSheet = Nothing
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “Visio VBA Automation”
Resume CleanUp
End Sub
—
4. チーフアーキテクトの知見：実務運用における要諦
メモリ最適化とCOMオブジェクトの寿命
VBAからVisioを操作する際、`For Each` ループ内で取得したシェイプや、頻繁にアクセスする `Page.PageSheet` は、プロシージャ終了時に確実に `Nothing` を代入してメモリから解放しなければならない。これを怠ると、巨大なCAD図面などを一括処理するバッチにおいて、VBAのヒープ領域が圧迫され、メモリ不足エラー（Error 7）や最悪の場合はVisio本体のクラッシュを引き起こす。
レガシー環境・外部システム連携（C# / .NET互換性）への布石
今回のVBAコードで採用した「プロパティに直接値を代入するのではなく、`FormulaU` を使って数式としてバインドする」というアプローチは、そのままCOM互換の外部C#プログラム（VSTOやConsole Application）へ移植可能である。
将来的にVBAから.NET Core / .NET 6以降の外部プロセスへとシステムを移行する際、この「ShapeSheet駆動型」の設計思想をとっておけば、自動化ロジックのコアを一行も書き直すことなくAPI経由で再現できる。
—
5. 結びにかえて
自動化とは、単に手作業をVBAに置き換えることではない。「環境の変化（今回の場合はページサイズの変更）が起きても、システムが自律的に整合性を保ち続けるエコシステム」を構築することにほかならない。
図面枠の追従という、一見すると泥臭いレイアウト問題においても、Visioのメタデータ構造（ShapeSheet）の根幹を理解していれば、極めてエレガントかつ堅牢な解決に至ることができる。
現場のエンジニア諸君、場当たり的なマクロの修正から脱却し、描画エンジンの特性を支配する真のアーキテクチャを手に入れてほしい。
