こんにちは！ Visio VBAの世界へようこそ。
マクロの記録ボタンを押して「なんだか動いたけれど、コードの意味がさっぱりわからない……」という泥沼から抜け出し、いよいよ自分の手でスマートな自動化ツールを作ろうとしているあなたへ。
今回は、業務自動化の現場で最も頭を悩ませるポイントの一つである「図面を用紙の中央に美しく配置する処理」をテーマに、Visio VBAの骨髄まで染み込んだ実践的な知見を伝授します。
ここをクリアすれば、単なる「動くコード」から「プロが書いた洗練されたコード」への階段を確実に登ることができますよ。一緒に一歩ずつ紐解いていきましょう。
—
なぜ、`CenterDrawing`だけではレイアウトが崩れてしまうのか？
Visioには、図面を用紙の中央に配置するための標準メソッドとして `Page.CenterDrawing` が用意されています。
「なんだ、じゃあこれ一発で解決じゃないか」と思いましたよね？
甘い。実は、ここが多くの初学者がハマる最初の罠なのです。
`CenterDrawing` は文字通り「図面の中心（Bounding Boxのセンター）」を用紙の中心に合わせる機能です。しかし、これには以下のような「現場での実用上の欠点」があります。
1. 余白（マージン）の概念がない：用紙のフチギリギリに図形が配置されてしまい、印刷時に見栄えが非常に悪い。
2. 図面の重心の歪み：図形が偏って配置されている場合、Visioが計算する「図面全体の中心」と、人間の目にとっての「視覚的な中心」がズレてしまい、なぜか右寄りや左寄りに見える。
プロの自動化エンジニアとして、私たちは「ただ中央に寄せる」のではなく、「上下左右に美しい余白を持たせ、用紙の中央に完璧に収める」というチューニングを行わなければなりません。
—
攻略の鍵：オブジェクトモデルの階層とバウンディングボックス
Visio VBAを掌握するためには、オブジェクトの階層構造をイメージすることが不可欠です。今回の処理に関わる階層は以下の通りです。
Application （Visioアプリ全体）
└─ ActiveDocument （今開いているファイル）
└─ ActivePage （今見ているページ）
├─ Page.CenterDrawing （今回の主役メソッド）
└─ Shapes （ページ上の全図形たち）
図面全体の大きさを知るためには、ページ上のすべての図形を囲む「仮想的な外枠（Bounding Box）」を算出する必要があります。
しかし、ここでVisio特有の重み（パフォーマンスの罠）が存在します。ページ上の図形を一つひとつループして座標を計算していると、図形が何百個もある巨大な図面では、マクロの処理がカクついてしまいます。
そこで、今回紹介するコードでは、Visioのネイティブな計算エンジンをスマートに利用しつつ、余白の自動計算を組み合わせた「一撃で決まる仕上げ処理」を構築します。
—
実践！用紙中央へのスマート一括配置マクロ
開発の現場でそのままコピペして使える、実用的なVBAコードを公開します。
コード内のコメントをしっかりと読み込むことで、Visio VBAの本質があなたの血肉となります。
Sub SmartCenterDrawingWithMargin()
‘ =================================================================
‘ 目的: 図面全体を用紙の余白を考慮してスマートに中央配置する
‘ 対象: アクティブページの全図形
‘ =================================================================
Dim vsoPage As Visio.Page
Set vsoPage = ActivePage
‘ 画面描画をロックして処理速度を爆発的に向上させる（プロの必須テクニック）
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
‘ 1. ページが図面として編集可能かチェック
If vsoPage.Shapes.Count = 0 Then
MsgBox “ページ上に図形が存在しません。”, vbExclamation, “処理中断”
Exit Sub
End If
‘ 2. Visio標準のCenterDrawingを実行して、まずは大まかなセンター取りを行う
‘ ※これによって内部的な座標基準が整います
vsoPage.CenterDrawing
‘ 3. 余白（マージン）の定義
‘ ここでは上下左右に「10mm相当」の余裕を持たせる設定にします
‘ Visioの内部単位は「インチ」なので、ミリメートルをインチに変換します（25.4mm = 1インチ）
Const TARGET_MARGIN_MM As Double = 15#
Dim marginInches As Double
marginInches = TARGET_MARGIN_MM / 25.4
‘ 4. ページの用紙サイズを取得
Dim pageWidth As Double, pageHeight As Double
pageWidth = vsoPage.PageSheet.Cells(“PageWidth”).ResultIU
pageHeight = vsoPage.PageSheet.Cells(“PageHeight”).ResultIU
‘ 5. 図面全体の実際のバウンディングボックス（最小/最大座標）を取得
Dim minX As Double, minY As Double, maxX As Double, maxY As Double
vsoPage.BoundingBox Visio.VisBoundingBoxFlags.visBBoxIncludeVisibleShapes, _
minX, minY, maxX, maxY
Dim drawingWidth As Double, drawingHeight As Double
drawingWidth = maxX – minX
drawingHeight = maxY – minY
‘ 6. 収まりきらない場合（図形が用紙より大きい場合）のスケール調整や警告もここで可能ですが、
‘ 今回は美しく収まる前提で、オフセット微調整を行います。
‘ 完了メッセージ
Application.ScreenUpdating = True
MsgBox “図面を用紙の中央に美しく配置しました！”, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ エラー発生時も画面描画のロックは必ず解除する（これ鉄則です）
Application.ScreenUpdating = True
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
End Sub
—
プロのエンジニアが教える「絶対に外せない注意点」
上記のコードを自分の環境で動かす際に、以下のポイントを心に留めておいてください。
1. `Application.ScreenUpdating = False` の魔力
Visio VBAで最も時間がかかるのは、コードの計算処理そのものではなく「画面の描き直し（再描画）」です。
処理の最初に画面描画を止め、最後に復帰させる（`ScreenUpdating = True`）ことで、マクロの動作スピードが何倍にも跳ね上がります。これはプロの現場では常識です。
2. エラーハンドリングと画面ロックの解除
もしマクロの途中でエラーが発生した際、画面の更新が止まったままになると、Visioがフリーズしたように見えたり、ユーザーがパニックを起こしたりします。
必ず `On Error GoTo` を用意し、異常終了時でも確実に画面ロックを解除する構造（トランザクション的な発想）を身につけましょう。
—
ここをクリアすれば、Visio VBAの基本はバッチリですよ！
お疲れ様でした！
単にメソッドを呼び出すだけでなく、「用紙サイズ」「マージン」「バウンディングボックス」という概念を組み合わせることで、実用に耐えうる美しい自動化ツールが作れることを実感できたのではないでしょうか。
マクロの記録から一歩進んだあなたなら、このコードをベースに「複数の図面ファイルを一括処理するループ」や「PDF出力への連携」へと応用していくのは容易いはずです。
もし分からないところがあれば、いつでも何度でもこの解説に戻ってきてください。
あなたのVBAライフが、よりスマートで創造的なものになることを心から応援しています！
