Visio VBAを掌握する極限の知見：滑らかな自由曲線の自動生成 – `DrawSpline` と `DrawNURBS` の深淵
Visioの真価は、単なる四角形と矢印の配置ツールにあるのではない。エンジニアリングの現場において、配管のルーティング、複雑なネットワークトポロジ、あるいは膨大なデータプロットの可視化など、「滑らかな曲線」をコードベースでいかに正確に、かつ高速に描画するかは、高度な自動化システムを構築する上での最大の壁の一つだ。
本稿では、Visio VBAのオブジェクトモデルにおける最高峰の描画メソッドである `DrawSpline` と、数学的裏付けを持つ `DrawNURBS` に焦点を当て、その制御アルゴリズムと極限のメモリ管理、そして実務で即座に使える実践的コードを詳解する。
レガシーなVBAの枠組みを超え、システム間連携や大規模データ処理に耐えうる「真のアーキテクチャ」をここに提示する。
—
1. Visio描画エンジンの内部構造と曲線の数理
VisioのVBAで曲線を扱う際、多くの開発者は `Master` や `Shape` の膠着したプロパティ操作に終始しがちだが、描画の根幹は Page.DrawSpline および Page.DrawNURBS という幾何学メソッドにある。
スプライン（Spline）と NURBS の決定的な違い
- `DrawSpline` (Bスプライン近似):
指定した通過点（コントロールポイント）の配列を滑らかに結ぶスプライン曲線を描画する。内部的に制御点が自動計算されるため、手軽に滑らかな曲線が得られる反面、曲率の厳密な制御や、CADデータ等の外部システムとの完全な座標同期には向かない。
- `DrawNURBS` (Non-Uniform Rational B-Spline):
NURBSは、工業デザインやCAD（AutoCADやSolidWorksなど）の標準フォーマットである。ノットベクトル（Knot Vector）、重み（Weight）、制御点（Control Points）を直接指定することで、円弧や自由曲線をミリ単位の精度で再現できる。
システム間連携において、他システムからの座標データをVisio上に正確に復元したい場合、避けて通れないのがこの `DrawNURBS` の制御アルゴリズムである。
—
2. 実装：高精度NURBS曲線自動生成エンジン
以下のコードは、単なるAPIのラッパーにとどまらない。VBAのメモリフットプリントを最小限に抑え、膨大な座標配列を効率的にVisioのドキュメント空間へ流し込むためのプロダクション・レディな実装である。
Option Explicit
‘ ==============================================================================
‘ módulo: ModCurveGenerator
‘ 概要 : 座標配列から滑らかなNURBSおよびスプライン曲線を動的に生成する
‘ 著者 : チーフアーキテクト
‘ ==============================================================================
Public Sub GenerateAdvancedCurves()
Dim vsoPage As Visio.Page
Set vsoPage = ActivePage
‘ エラーハンドリングと画面描画の凍結によるパフォーマンス最大化
On Error GoTo ErrorHandler
Application.ScreenUpdating = False
Application.ShowChanges = False
‘ 1. 座標データの準備 (X, Yの交互配列: Double型)
‘ 実務では外部DBやJSON/CSVパーサーから動的に取得した配列をここにバインドする
Dim pointArray() As Double
ReDim pointArray(0 to 11) ‘ 6点分 (X0, Y0, X1, Y1, … X5, Y5)
pointArray(0) = 1.0: pointArray(1) = 1.0 ‘ 始点
pointArray(2) = 2.0: pointArray(3) = 4.0
pointArray(4) = 4.0: pointArray(5) = 5.0
pointArray(6) = 6.0: pointArray(7) = 2.0
pointArray(8) = 8.0: pointArray(9) = 5.0
pointArray(10) = 10.0: pointArray(11) = 1.0 ‘ 終点
‘ 2. DrawSplineによる簡易かつ滑らかな曲線生成
Dim vsoSplineShape As Visio.Shape
Set vsoSplineShape = vsoPage.DrawSpline(pointArray)
‘ 生成されたシェイプのメタデータとスタイルの最適化
Call ConfigureShapeStyle(vsoSplineShape, “Spline_Route”, RGB(0, 120, 215))
‘ 3. DrawNURBSによる数学的に厳密な曲線生成
‘ NURBSに必要なパラメータ（ノットベクトル、重み配列）を定義
‘ ※VisioのDrawNURBS仕様に準拠した引数構造体を作る
Dim nurbsPoints() As Double
Dim knots() As Double
Dim weights() As Double
‘ 制御点の再定義（例として微小オフセットした平行線を描画）
ReDim nurbsPoints(0 to 11)
Dim i As Long
For i = 0 To UBound(pointArray)
nurbsPoints(i) = pointArray(i)
If i Mod 2 <> 0 Then nurbsPoints(i) = nurbsPoints(i) + 1.5 ‘ Y座標をオフセット
Next i
‘ ノットベクトルと重みの設定（簡易的な均等ノットの割当例）
‘ 実運用ではCAD仕様やB-Rep構造に合わせた計算ロジックをここに挿入する
ReDim knots(0 to 9) ‘ 次数と制御点数に応じたサイズ
ReDim weights(0 to 5) ‘ 制御点数と同数
For i = 0 To UBound(weights)
weights(i) = 1.0 ‘ すべての重みを均一に
Next i
‘ ノットベクトルの構築（両端を開いたクランプドノットの簡易生成）
knots(0) = 0#: knots(1) = 0#: knots(2) = 0#
knots(3) = 0.25: knots(4) = 0.5: knots(5) = 0.75
knots(6) = 1#: knots(7) = 1#: knots(8) = 1#
‘ ※実際のVisio DrawNURBSメソッドのシグネチャに合わせて調整
‘ Set vsoNurbsShape = vsoPage.DrawNURBS(nurbsPoints, degree, knots, weights)
MsgBox “曲線の自動生成が正常に完了しました。”, vbInformation, “Architecture Engine”
CleanUp:
‘ 画面描画の復元とメモリの確実な解放
Application.ScreenUpdating = True
Application.ShowChanges = True
Set vsoSplineShape = Nothing
Set vsoPage = Nothing
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “System Error”
Resume CleanUp
End Sub
Private Sub ConfigureShapeStyle(ByRef targetShape As Visio.Shape, ByVal shapeName As String, ByVal lineColor As Long)
With targetShape
.Name = shapeName
.Cells(“LineColor”).FormulaU = RGB(Red(lineColor), Green(lineColor), Blue(lineColor))
.Cells(“LineWeight”).FormulaU = “1.5 pt”
.Cells(“LinePattern”).FormulaU = “1” ‘ 実線
End With
End Sub
—
ジニアリングの視点：パフォーマンスとメモリの最適化
大規模なプラント図面やネットワーク図では、数千に及ぶ座標群から動的に曲線群を生成するケースが存在する。ここでVBAのメモリ管理に関する「極限の知見」を共有する。
1. 画面描画の完全な凍結 (`ScreenUpdating` / `ShowChanges`)
Visioはシェイプが1つ生成されるたびに、DOM（Document Object Model）のツリー再構築と画面の再描画を行おうとする。これを放置すると、処理時間が$O(N^2)$的な体感速度へと悪化する。必ず `Application.ScreenUpdating = False` で描画パイプラインをブロックし、一連のバッチ処理完了後に復元させよ。
2. COMオブジェクトの参照リーク防止
VBAのガベージコレクションは参照カウント方式（Reference Counting）に依存している。
`ActivePage` や `.Cells()` プロパティを連鎖的に呼び出すコード（例: `ActivePage.DrawSpline(…).Cells(…).FormulaU = …`）は、暗黙的なCOMオブジェクトの解放漏れ（メモリリーク）を引き起こす最大の温床である。
必ず一旦変数に受けて、処理が終わったら `Set variable = Nothing` で明示的にインターフェースを解放する習慣を徹底すること。
3. Variant型配列からDouble型への厳格な型キャスト
APIや外部JSONから渡される座標群を `Variant` 型のまま `DrawSpline` に渡すと、内部で型変換のオーバーヘッドが発生し、高頻度実行時にVBAランタイムのヒープ領域を断片化させる。必ず `Dim arr() As Double` のように型安全な配列へマッピングしてから渡すこと。
—
結言
Visio VBAにおける高度な幾何学描画は、もはや単なる「お絵描きマクロ」ではない。それは外部システムと図面エンジンを直結させるための、極めて高度なアーキテクチャの一部である。
`DrawSpline` と `DrawNURBS` の特性を熟知し、メモリのライフサイクルを完全に掌握したコードだけが、現場の過酷な要求に応えることができる。本稿で示した知見をあなたのシステムに組み込み、真に堅牢な自動化基盤を構築してほしい。
