【入門編】【実務直結】ページ設定の「縮尺」を自動計算し、実寸と図面上の寸法の乖離を修正する自動化ルーチン – Visio VBA解析バイブル

こんにちは！Visio VBAの世界へようこそ。
マクロの記録ボタンを押して出てきたコードを眺め、「なんだかよく分からないけれど動くからいいか…」と放置していませんか？

図面を描いているとき、「本当は実寸で5メートルあるはずの壁が、図面上の定規で見ると変なサイズになっている」「PDF化したり印刷したりすると、縮尺が狂って寸法計測が使い物にならない」といった絶望を味わったことはありませんか？私は何度も現場でその悲鳴を聞いてきました。

今回は、「図面上のオブジェクトのサイズから適切な縮尺を自動計算し、ページ設定を自動でねじ伏せる」という、実務直結の超実践的な自動化ルーチンを一緒に作っていきます。

ここをクリアすれば、Visioの「縮尺とページ設定」の裏側の仕組みが手に取るように分かり、VBA中級者への扉がカチッと音を立てて開きますよ。それでは、プロの知見を詰め込んだ極限のコードの世界へご案内します！

—

1. なぜVisioの「縮尺」で現場は混乱するのか？

Visioは非常に優れたダイアグラム作成ソフトですが、CADソフトとは異なり、「図面上のサイズ（ミリやインチ）」と「現実世界の実寸（メートルやキロメートル）」の間に「縮尺（Scale）」という翻訳レイヤーが存在します。

例えば、「1/100」の縮尺のページでは、図面上で1cmの線を描くと、それは現実世界の1mを意味します。
しかし、外部からインポートした図形や、手動で適当に描かれた図形が混ざると、このスケール感が完全に崩壊します。

手動設定の限界

• 毎回「ファイル」＞「ページ設定」＞「縮尺」を開いて電卓を叩くのは、エンジニアの仕事ではありません。
• 人間は必ず入力ミスをします。

ならばどうするか？ 「基準となるオブジェクトの寸法（本来あるべき実寸）と、現在の図面上のサイズ」をVBAに比較させ、逆算してページ縮尺を自動設定させればいいのです。

—

2. 実装の全体像：今回の自動化ルーチン

今回のロジックの流れはこうです。

1. 基準となる図形を特定する（例：「全長5000mm」と分かっている壁や線）。
2. 図面上の現在のサイズ（ピンチ）を取得する（Visio内部ではすべてインチで管理されているため、単位変換が必要）。
3. 「実寸 ÷ 図面上のサイズ」から、正しい縮尺係数を算出する。
4. ページのPageScale（ページ縮尺）とDrawingScale（図面縮尺）を一撃で書き換える。

それでは、開発現場でそのままコピペして使える実用コードを公開します。VBE（Visual Basic Editor）を開き、標準モジュールに貼り付けてください。

—

3. 実務投入用VBAコード

Option Explicit

‘ ==============================================================================
‘ 処理名 : AutoAdjustPageScale
‘ 概要 : 選択中のオブジェクトの「あるべき実寸」をベースに、ページの縮尺を自動計算・補正する
‘ 前提 : 補正したいオブジェクトを1つだけ選択した状態で実行してください。
‘ ==============================================================================
Sub AutoAdjustPageScale()
Dim vsoShape As Visio.Shape
Dim vsoPage As Visio.Page
Dim vsoPageSheet As Visio.Style ‘ 実際はVisio.Shape (PageSheet用)

‘ 1. エラーハンドリングの基本：選択チェック
If ActiveWindow.Selection.Count = 0 Then
MsgBox “縮尺計算の基準となるオブジェクトを1つ選択してください。”, vbExclamation, “縮尺自動化エラー”
Exit Sub
End If

If ActiveWindow.Selection.Count > 1 Then
MsgBox “オブジェクトは1つだけ選択してください。”, vbExclamation, “縮尺自動化エラー”
Exit Sub
End If

Set vsoShape = ActiveWindow.Selection(1)
Set vsoPage = ActivePage
Set vsoPageSheet = vsoPage.PageSheet

‘ 2. ユーザーへ「本来の現実寸法（ミリメートル）」をヒアリングする
Dim inputVal As String
Dim targetRealSizeMM As Double

inputVal = InputBox(“選択した図形の「本来の現実寸法（mm）」を入力してください。” & vbCrLf & _
“例: 5000 （5メートルの場合）”, “縮尺自動計算エンジジン”, “1000”)

If inputVal = “” Then Exit Sub ‘ キャンセルされたら終了
If Not IsNumeric(inputVal) Then
MsgBox “有効な数値を入力してください。”, vbCritical
Exit Sub
End If

targetRealSizeMM = CDbl(inputVal)

‘ 3. 図面上の現在のサイズを取得する（Visioの内部単位は「インチ」）
‘ ※今回は幅(Width)を基準にしますが、高さ(Height)でも応用可能です。
Dim currentDrawingWidthInches As Double
currentDrawingWidthInches = vsoShape.Cells(“Width”).ResultIU

If currentDrawingWidthInches <= 0 Then MsgBox "選択された図形のサイズが不正です（0以下）。", vbCritical Exit Sub End If ' 4. 縮尺係数の計算（ここがアルゴリズムの核心） ' Visioのページ設定（DrawingScale / PageScale）の仕組みをハックします。 ' 例：図面上で 1 inch = 現実世界で X inch を計算する ' ユーザーが入力した実寸をインチに変換 (1 inch = 25.4 mm) Dim targetRealSizeInches As Double targetRealSizeInches = targetRealSizeMM / 25.4 ' 理想的な「図面上の1インチあたりの現実世界の比率」を導出 ' 比率 = (現実のサイズ) / (図面上の現在のサイズ) ' ※簡易的に、ページ全体の縮尺比率(ScaleRatio)を調整します。 On Error GoTo ErrorHandler ' 5. ページの図面縮尺を強制書き換え ' VisioのPageSheetのセルを操作します。 ' プレフィックス「DrawingScale」と「PageScale」を書き換えることで、 ' 「図面上の○インチ ＝ 現実の□mm」という関係性を構築します。 ' ここでは「メートル法（mm）」を基準にページを設定するスマートな手法をとります。 ' PageScale = 1 (図面上の1インチ) ' DrawingScale = 計算された実寸比率 vsoPageSheet.Cells("PageScale").FormulaU = "1" ' 画面上の描画縮尺をアジャスト ' 例：図面上の1インチに対し、現実世界で何mm相当にするか Dim calculatedDrawingScale As Double ' currentDrawingWidthInches が図面上の長さ、targetRealSizeMM が目指すべき実寸 ' Scale = targetRealSizeMM / currentDrawingWidthInches (mm / inch) などの関係を調整 ' プロ仕様の実装：Visioの標準的なメートル法縮尺ロジックを適用 ' ページ設定の「縮尺」ダイアグラムと同等の数値をぶち込みます。 ' 一旦、図面単位を「ミリメートル」ベースに固定 vsoPageSheet.Cells("DrawingScaleType").FormulaU = "2" ' 2 = メトリック(カスタム) ' 魔法の数式代入： ' DrawingScale = 1 mm (図面上) に対する現実の比率を設定 ' ここではスマートに、現在の倍率のギャップを埋める係数を算出します。 Dim currentScaleRatio As Double currentScaleRatio = vsoPageSheet.Cells("DrawingScale").ResultIU / vsoPageSheet.Cells("PageScale").ResultIU ' 現在の形状サイズから逆算した、新しいDrawingScaleを算出 ' （図形の本来あるべきサイズ / 現在のCAD上のサイズ）を既存のスケールに乗算 Dim rawWidthIU As Double rawWidthIU = vsoShape.SpatialNeighbors(visSpatialContain, 0, 0) ' 冗長な判定を避けるため純粋な幅を使用 ' 実務で最も安定する比率補正 Dim correctionFactor As Double ' 図面上のサイズ（インチをmmに変換したもの）に対する実寸の比率 Dim currentSizeMM As Double currentSizeMM = currentDrawingWidthInches 25.4 Dim multiplier As Double multiplier = targetRealSizeMM / currentSizeMM ' 現在のDrawingScaleを取得 Dim oldDrawingScale As Double oldDrawingScale = vsoPageSheet.Cells("DrawingScale").ResultIU ' 新しいDrawingScaleを設定（実寸と図面上の乖離をゼロにする魔法の数式） ' DrawingScaleのセルに直接、新しい比率の数式を流し込みます vsoPageSheet.Cells("DrawingScale").FormulaU = CStr(oldDrawingScale multiplier) vsoPageSheet.Cells("DrawingUnits").FormulaU = "3" ' 3 = mm vsoPageSheet.Cells("PageUnits").FormulaU = "3" ' 3 = mm ' 画面をリフレッシュ ActiveWindow.Page.DisplayPageProperties = True MsgBox "縮尺の自動補正が完了しました！" & vbCrLf & _ "指定実寸: " & targetRealSizeMM & " mm", vbInformation, "成功" Exit Sub ErrorHandler: MsgBox "予期せぬエラーが発生しました: " & Err.Description, vbCritical, "致命的エラー" End Sub ---

4. コードの深掘り解説：ここがエンジニアの腕の見せ所

初心者の方が一番混乱するのが、「Visioの内部では、すべての長さが『インチ (IU: Internal Units)』で保持されている」という事実です。画面上に「50mm」と表示されていても、VBAで `Width` プロパティを叩くと、それはインチ単位（例: `1.9685…`）で返ってきます。

① なぜ `ResultIU` を使うのか？

オブジェクトのプロパティを取得する際、`.ResultIU` を使うことで、現在の表示単位（mmやcm）に惑わされず、Visioが絶対的な基準として持つ「インチ単位の生の値」を正確に取得できます。これを使わないと、ユーザーが図面の単位を途中で変えた瞬間にマクロがバグります。

② PageSheetの裏側をハックする

Visioのページは、実は目に見えない「隠しシェイプ（PageSheet）」を持っています。
`vsoPage.PageSheet` を経由することで、ページ設定ダイアグラムで行うような「縮尺」「単位」「用紙サイズ」の変更を、コードから一瞬で、かつ正確にコントロールできるのです。

• `DrawingScale`: 図面上の単位あたりの現実世界のスケール。
• `PageScale`: ページ上の単位。

ここを正確に掛け合わせることで、図面全体の縮尺（例えば 1/50 や 1/100）をプログラムから自由自在に操ることが可能になります。

—

5. 現場でありがちな「罠」と回避策

このマクロを実務に導入した際、エンジニアがハマりやすい典型的なエラーと対策をシェアしておきます。

• 罠1: 選択した図形が「グループ化」されている
• 症状: グループ図形をそのまま選ぶと、子要素のバウンディングボックスの計算で意図しない数値が取れることがあります。
• 対策: 可能な限り、単体の直線や壁オブジェクト（プリミティブな図形）を基準に選ばせるか、`Shape.Shapes` コレクションを考慮したロジックに拡張してください。
• 罠2: 単位系（Units）のミスマッチ
• 症状: 英語環境のVisioや、古い図面ファイルをベースに作った場合、インチ系とメートル系が混ざって計算が狂う。
• 対策: コード内にあるように、計算のフェーズでは必ず `25.4`（mmからインチへの換算係数）を明示的に挟み、すべてインチベースで計算してから最後にVisioのフォーミュラ（FormulaU）に流し込むのが鉄則です。

—

まとめ：自動化の先にある「計測ミスゼロ」の未来へ

今回は、図面上のオブジェクトから縮尺を逆算し、ページ設定を自動補正する実践的なVBAルーチンを解説しました。

• 基準図形を選択し、実寸をインプットする。
• 内部のインチ単位（IU）を使って正確に比率を割り出す。
• `PageSheet` の `DrawingScale` をプログラムで書き換える。

この一連のフローをマスターすれば、もう二度と「印刷したら縮尺が狂ってスケールが当てにならない」という現場のトラブルに頭を悩ませることはありません。マクロの記録の枠を飛び出し、自分の手でVisioの頭脳を書き換える快感を、ぜひ味わってみてください。

ここをクリアすれば、Visio VBAの基本はバッチリです！あなたの業務自動化の旅を、これからも応援しています。