Visio VBAの深淵へ：SplineKnotで操る「精密曲線」の数学的描画術
こんにちは。業務自動化の最前線を走るエンジニアとして、今日は「Visioで本当に自由な曲線を描く」という、一見地味だが極めて強力なテクニックについてお話しします。
「マクロの記録」で生成される不格好なコードを卒業し、Visioの心臓部であるGeometryセクションを直接操作する。この扉を開けば、CAD連携や複雑なデータ可視化において、あなたは「ただの利用者」から「システムの設計者」へと進化します。
—
1. なぜ「SplineKnot」なのか？
Visioで曲線を描こうとすると、標準の「フリーフォーム」ツールでは制御が困難です。なぜなら、曲線は単なる線の集合ではなく、数学的な関数（スプライン曲線）として定義されているからです。
VisioのShapeSheetにおける`Geometry`セクションには、`SplineStart`（曲線の始まり）と`SplineKnot`（曲線の制御点）というセルが存在します。これらをVBAから操作することで、座標を動的に計算し、ミリ単位の精度で曲線を生成することが可能になります。
—
2. オブジェクトモデルの理解：Shapeの「中身」を覗く
Visioの図形（Shape）は、いわばプロパティの巨大なデータテーブルです。
- Application: Visioそのもの
- Document: ファイル
- Page: キャンバス
- Shape: 図形の実体
- Section/Row/Cell: Shapeの構成要素（ここが心臓部です）
今回触れる`Geometry`セクションは、図形の輪郭を決定する「設計図」のようなもの。ここにVBAで直接行（Row）を追加し、数値を書き込むことで、Visioは自動的に滑らかな曲線を計算して描画します。
—
3. 実践：VBAによる「精密スプライン曲線」の描画
それでは、実際に制御点を追加して滑らかな曲線を描くコードを見てみましょう。
Sub DrawPrecisionSpline()
Dim shp As Visio.Shape
Dim rowIdx As Integer
‘ 1. 空の図形を作成（または既存のShapeを選択）
Set shp = ActivePage.DrawRectangle(0, 0, 0, 0)
‘ 2. Geometryセクションを取得し、SplineStartを追加
‘ 行を追加することで、描画の開始位置を定義します
rowIdx = shp.AddRow(Visio.visSectionFirstComponent, Visio.visRowFirst, Visio.visTagSplineStart)
shp.CellsSRC(Visio.visSectionFirstComponent, rowIdx, Visio.visSplineStart).FormulaU = “1”
shp.CellsSRC(Visio.visSectionFirstComponent, rowIdx, Visio.visSplineKnotX).FormulaU = “1in”
shp.CellsSRC(Visio.visSectionFirstComponent, rowIdx, Visio.visSplineKnotY).FormulaU = “1in”
‘ 3. SplineKnotを追加（ここが曲線の通過点・制御点になります）
‘ ループを使って複数の制御点を動的に追加する例
AddKnot shp, 2, 3
AddKnot shp, 4, 1
AddKnot shp, 6, 4
Debug.Print “精密曲線の描画が完了しました。”
End Sub
‘ 制御点追加用のヘルパー関数
Sub AddKnot(shp As Visio.Shape, x As Double, y As Double)
Dim rowIdx As Integer
‘ SplineKnot行を追加
rowIdx = shp.AddRow(Visio.visSectionFirstComponent, Visio.visRowLast, Visio.visTagSplineKnot)
shp.CellsSRC(Visio.visSectionFirstComponent, rowIdx, Visio.visSplineKnotX).FormulaU = x & “in”
shp.CellsSRC(Visio.visSectionFirstComponent, rowIdx, Visio.visSplineKnotY).FormulaU = y & “in”
End Sub
コードのポイント解説
- `AddRow`メソッド: `visTagSplineStart`や`visTagSplineKnot`を指定することで、Visioに対して「この行は線の情報ですよ」と教えています。
- `CellsSRC`: ShapeSheetの「Section」「Row」「Cell」を直接指定する、最も高速かつ確実なアクセス方法です。
- `FormulaU`: 単位（インチやセンチ）を明示的に指定することで、環境依存を避けるのがプロの流儀です。
—
4. 陥りやすい罠と対策
1. セクションの指定ミス:
`visSectionFirstComponent`は、基本的に最初のGeometryセクションを指します。複雑な図形では`visSectionGeometry + i`のようにインデックスを動的に取得する癖をつけてください。
2. 描画されない問題:
`SplineStart`を定義する前に`SplineKnot`を追加しようとするとエラーになります。必ず「開始点」から定義する順序を守りましょう。
3. パフォーマンスの過信:
数千点もの制御点を一度に操作するとVisioがフリーズします。大量のデータを扱う場合は、`Application.ScreenUpdating = False`を併用し、描画更新を止めてから一括処理するのが鉄則です。
—
最後に：ここをクリアすれば、あなたはもう初心者ではない
「マクロの記録」に頼っているうちは、Visioは「絵を描くツール」でしかありません。しかし、今日学んだ`Geometry`操作をマスターすれば、Visioは「高精度なデータ可視化エンジン」に生まれ変わります。
最初は難しく感じるかもしれませんが、この「座標を数学的に操る」感覚こそが、業務自動化エンジニアとしての最大の武器になります。ぜひ、今日からあなたのツールボックスに「動的描画」の技術を加えてみてください。
もし詰まったら、いつでも戻ってきてください。この場所で、また次のステップを一緒に踏み出しましょう。応援しています。
