【Visio VBA極限解説】縮尺の自動計算とページ設定の完全自動化：実寸と図面上の乖離を撲滅するアーキテクチャ
こんにちは。チーフアーキテクトの私だ。
日々の業務で、Visioの図面を開いた瞬間に「あ、これ縮尺が狂ってるな」と絶望した経験はないか？
CADからコンバートされた図面、あるいは適当に引き継がれたテンプレート。これらが原因で、図面上のオブジェクトの「見た目のサイズ（ドキュメント上のインチ/センチ）」と「プロパティ上の実寸（実際のメートル/フィート）」が乖離し、現場の計測ミスや発注ミスを引き起こす。このヒューマンエラーを、個人の目視チェックや手動のページ設定で防ごうなどというのは、エンジニアリングの敗北だ。
今回は、「図面上のオブジェクトのバウンディングボックスから適切な縮尺を逆算し、Visioのページ設定をプログラムで完全にねじ伏せる」ためのプロダクションコードと、その裏にある堅牢な設計思想を伝授しよう。
—
1. なぜVisioの縮尺管理は現場で破綻するのか？
多くの開発者が、Visio VBAでページサイズや縮尺を変更しようとして泥沼にはまる。その理由はシンプルで、Visioの「ページ・倍率・図面尺度（Drawing Scale）」の3層構造のライフサイクルを理解していないからだ。
罠1: Page.PageSheet と Page.DrawingScale の非同期
Visioでは、ページの物理的な大きさ（用紙サイズ）と、図面上の論理的な縮尺は独立して存在する。これを安易に `Page.PageSheet.CellsSRC` をいじって解決しようとすると、既存の図形が意図しない位置にスケーリングされたり、ピン留め位置（PinPos）が崩壊したりする。
罠2: 単位系（UOM）の罠
Visioの内部データは常に「インチ（Inches）」で保持されている。センチメートルやミリメートル、キロメートルといった単位は、すべて表示上のレイヤーに過ぎない。ここを直視せずに出現する数値をそのまま計算式に突っ込むと、小数点以下の丸め誤差で大惨事になる。
—
2. 堅牢な自動化アーキテクチャの設計方針
今回のモジュールでは、以下の要件を満たす「実務で絶対に壊れないコード」を設計する。
1. ターゲット図形の特定: 縮尺の基準となる「既知の実寸を持つオブジェクト（例: 外枠や基準スケールバー）」を特定する。
2. 逆算ロジック: 「図面上の幅（インチ）」と「要求される実寸（メートル等）」の比率から、最適な `DrawingScale`（図面尺度）を導き出す。
3. トランザクショナルな更新: 処理の途中でエラーが発生した場合、中途半端な状態（用紙だけデカくて図形が米粒のように小さい状態）で保存されないよう、エラーハンドリングを徹底する。
—
3. プロダクションコード：縮尺自動補正エンジン
以下のコードを、あなたのVisioマクロ有効ファイル（.vsdm）の標準モジュールにそのまま貼り付けてほしい。実務での運用に耐えうるよう、詳細なコメントと型安全な記述を行っている。
Option Explicit
‘ =========================================================================
‘ 模块名: ModScaleOptimizer
‘ 用途: 図面上のオブジェクトサイズから縮尺を逆算し、ページ設定を自動最適化する
‘ 著者: チーフアーキテクト
‘ =========================================================================
Public Sub OptimizePageScaleFromShape()
‘ エラーハンドリングの要
On Error GoTo ErrorHandler
Dim vsoPage As Visio.Page
Set vsoPage = ActivePage
‘ 画面描画をロックしてパフォーマンスを爆発的に向上させる
Application.ScreenUpdating = False
Application.ShowAlerts = False
‘ 1. 基準となる図形の取得（ここでは選択中の図形、または特定のレイヤー/名前に変更可能）
If ActiveWindow.Selection.Count = 0 Then
MsgBox “縮尺計算の基準となるオブジェクトを選択してください。”, vbExclamation, “縮尺自動化エンジン”
GoTo CleanUp
End If
Dim vsoShape As Visio.Shape
Set vsoShape = ActiveWindow.Selection(1)
‘ 2. 図面上のサイズ（インチ）を取得
‘ PinX/PinYではなく、BoundingBoxを使って正確な幅(Width)を取得する
Dim dblPinWidthInches As Double
dblPinWidthInches = vsoShape.Cells(“Width”).ResultIU
If dblPinWidthInches <= 0 Then Err.Raise 9999, "OptimizePageScaleFromScale", "選択された図形の幅が不正です（0以下）。" End If ' 3. ユーザーから「この図形の実寸は何メートルか」を取得する（実務ではDBやメタデータから取得するよう改修せよ） Dim strInput As String strInput = InputBox("選択された図形の「実際の長さ（メートル）」を入力してください:" & vbCrLf & _ "例: 10.5 (10.5mの場合)", "縮尺自動補正", "1.0") If strInput = "" Then GoTo CleanUp ' キャンセルされた場合 Dim dblActualMeters As Double dblActualMeters = CDbl(strInput) ' 4. 縮尺の計算ロジック ' VisioのDrawingScaleプロパティは、「Drawing Scale (Page) の比率」を決定する。 ' 例: 1drawing inch = 50 actual meters の場合、 ' Page.PageScale = 1# (drawing inch), Page.DrawingScale = 50# (actual meters) と設定する。 ' ターゲット: 図面上の幅 (dblPinWidthInches) が、実寸 (dblActualMeters) に対応するようにする。 ' ここでは 1 Drawing Inch が何メートルに相当するかを算出する。 Dim dblMetersPerDrawingInch As Double dblMetersPerDrawingInch = dblActualMeters / dblPinWidthInches ' 5. ページ設定の適用 ' 単位をメートル(Visioの内部定員: visMeters)に設定し、スケールを流し込む Dim vsoPageSheet As Visio.Shape Set vsoPageSheet = vsoPage.PageSheet ' ページのdrawing scaleを設定 ' プレフィックスとして単位系を明示的に指定する vsoPageSheet.CellsSRC(visSectionObject, visRowPageLayout, visPLODrawingScale).FormulaU = dblMetersPerDrawingInch & " m" vsoPageSheet.CellsSRC(visSectionObject, visRowPageLayout, visPLODrawingSizeType).FormulaU = "0" ' 0 = カスタムスケール ' 完了メッセージ Application.ScreenUpdating = True Application.ShowAlerts = True MsgBox "縮尺の自動補正が完了しました。" & vbCrLf & _ "1図面インチ ＝ " & dblMetersPerDrawingInch & " m", vbInformation, "成功" Exit Sub ErrorHandler: ' 異常系ハンドリング：確実に画面描画を復旧させる Application.ScreenUpdating = True Application.ShowAlerts = True MsgBox "予期せぬエラーが発生しました: " & Err.Description, vbCritical, "致命的エラー" CleanUp: Application.ScreenUpdating = True Application.ShowAlerts = True End Sub ---
4. プロジェクトでこの仕組みを実装する際の注意点
このコードを実際の業務システムや外部データベース（DB）連携ツールに組み込む際、以下のアーキテクチャ上のベストプラクティスを遵守してほしい。
外部DB・Excel連携時の注意点
もし、図面の縮尺を手動の `InputBox` ではなく、図形に埋め込まれたカスタムプロപ്പティ（Shape Data）や外部の生産管理DBから自動取得する場合は、「単位のコンバージョン（換算）」に細心の注意を払うこと。
Visioは内部でインチを基準にしているため、DB側がミリメートル（mm）で保持している値であれば、必ず `25.4` で割るなどの正規化ステップを挟む必要がある。ここを怠ると、図面全体の縮尺が数千倍に跳ね上がるという笑えない事故が起きる。
パフォーマンスの最適化
大規模なプラント図面やネットワーク図面では、何万ものシェイプが存在する。`ScreenUpdating = False` を挟むことは絶対条件だが、さらにパフォーマンスを上げるためには、イベントハンドラ（`Visio_DocumentOpened` など）での自動実行を避け、「明示的なボタンクリック」または「特定のワークフロー完了時」に限定して実行する設計にすること。
—
5. 総括
図面の縮尺ズレという、これまで「人間の目と勘」に頼ってきたアナログな課題を、VBAの正確無比な数学的演算によって完全にハックした。
コードは嘘をつかない。正しく設計されたロジックは、現場の作業時間を劇的に短縮し、計測・発注ミスというビジネス上の致命傷を未然に防ぐ。
君たちの開発現場でも、今すぐこのアーキテクチャを導入し、手動による絶望的な修正作業からエンジニアたちを解放してやってほしい。
