こんにちは！Visioの図面自動化に挑む開発者の皆さん、日々の業務お疲れ様です。
マクロの記録を使って自動化の第一歩を踏み出したものの、「なんだか処理が終わるまですごく時間がかかるな…」「画面がバグバグ点滅してイライラするな…」と感じたことはありませんか？
もし、数百個もあるシェイプのサイズやプロパティを書き換えるために、`For`ループの中で1つずつセルを指定して書き換えているとしたら……それは、Visioの心臓部に何度もムチを打っているようなものです。
今回は、「シェイプのデータをまとめて一括書き換えし、爆速で処理を終わらせる究極のテクニック：`SetFormulasU` と配列の活用法」を伝授します。ここをクリアすれば、あなたのVBAスキルは一気に中級者から「上級・自動化アーキテクト」の領域へとシフトしますよ！
—
1. なぜ「1つずつ書き換える」と遅いのか？（Visioの裏側の仕組み）
まず、なぜ通常のループ処理が遅いのか、その原因を知ることから始めましょう。
次のようなコードを見たことがありませんか？
‘ 【絶対にやってはいけないアンチパターン】
Dim shp As Visio.Shape
For Each shp In ActivePage.Shapes
‘ ループのたびにVisioのエンジンと交信している！
shp.CellsU(“Width”).FormulaU = “10 mm”
shp.CellsU(“Height”).FormulaU = “5 mm”
Next shp
このコードの問題点は、「VBAの世界」と「Visioの描画エンジン（C++の世界）」の間で、何百回もの往復ビンタ（通信）が発生している点にあります。
シェイプが100個あれば、通信は200回。その都度、画面の再計算や再描画が走り、PCのファンがうなりを上げる原因になります。
救世主：`SetFormulasU` と配列の力
これを解決するのが、今回紹介する `SetFormulasU` メソッド です。
これは、「書き換えたいセルのリスト」と「新しい値のリスト」を配列というカプセルに詰め込み、たった1回のAPI呼び出しでVisioに投げ渡すための超強力なメソッドです。
処理時間が1/10以下になるだけでなく、画面のチラつきもピタッと止まります。それでは、実際のコードを見ていきましょう。
—
2. 実践！数百個のシェイプを一撃で書き換えるコード
以下のコードは、アクティブページにあるすべてのシェイプの幅（Width）と高さ（Height）を、配列を使って一括で変更する実用的なサンプルです。
開発環境の標準モジュールに貼り付けて、ぜひ試してみてください。
Option Explicit
Sub BulkUpdateShapes()
Dim startTime As Double
startTime = Timer ‘ 処理時間計測用
Dim pagObj As Visio.Page
Set pagObj = ActivePage
Dim shps As Visio.Shapes
Set shps = pagObj.Shapes
Dim count As Long
count = shps.Count
If count = 0 Then
MsgBox “シェイプがありません。”, vbExclamation
Exit Sub
End If
‘ —————————————————-
‘ 1. 配列の準備
‘ —————————————————-
‘ SetFormulasU に渡すための「指標の配列（SID_SRC）」と「値の配列」を作る
‘ Visioでは、セルを特定するために (シェイプID, セクション, 行, 列) のインデックスを使う
Dim sids() As Integer ‘ シェイプIDを格納する配列
Dim srcs() As Integer ‘ セル種別（WidthやHeightなど）を格納する配列
Dim formulas() As String ‘ 書き込みたい数式（値）を格納する配列
‘ 幅と高さを変更するので、シェイプ数の「2倍」のサイズを確保する
‘ (Visioの配列は 0起点 の 2次元、または 1次元の配列の組み合わせで指定する)
‘ 今回はシンプルに 1次元配列を Sheets/Cells ごとに構築する方式をとる
ReDim sids(12 count – 1) ‘ ※分かりやすくするため、今回は汎用的なSID_SRC配列構築関数を通すイメージで解説します
‘ — ここからがチーフアーキテクト流のスマートな構築フェーズ —
‘ 【重要】画面更新をストップしてパフォーマンスを極限まで引き上げる
Application.ScreenUpdating = False
Dim i As Long
Dim arrayIndex As Long
arrayIndex = 0
‘ SetFormulasU 用の配列サイズは 「シェイプ数 × 変更するプロパティ数」
‘ 今回は Width と Height の2つなので、配列の要素数は (count 2)
Dim totalUpdates As Long
totalUpdates = count 2
Dim SIDArray() As Integer
Dim SRCArray() As Integer
Dim ValArray() As String
ReDim SIDArray(totalUpdates – 1)
ReDim SRCArray(totalUpdates – 1)
ReDim ValArray(totalUpdates – 1)
For i = 1 To count
‘ 1つ目のプロパティ：Width
SIDArray(arrayIndex) = shps(i).ID
SRCArray(arrayIndex) = Visio.VisCellIndices.visSectionObject
‘ ※実際にはvisCellIndicesを使ってWidthやHeightを指定しますが、
‘ より簡単な CellsU 名のインデックス変換テクニックを使います。
arrayIndex = arrayIndex + 1
‘ 2つ目のプロパティ：Height
‘ … (中略：実務では後述のラッパー関数を使うのが定石です)
Next i
‘ ※上記をすべて手動で書くと大変なので、実務で使える極意を次で紹介します！
Application.ScreenUpdating = True
MsgBox “処理完了！ 実行時間: ” & (Timer – startTime) & ” 秒”, vbInformation
End Sub
おっと、ここで「配列のインデックス（SIDやSRC）を自分で計算するのは難しそう…」と思いましたね？
安心してください。Visio VBAには、もっとエレガントに `SetFormulasU` を使いこなす方法があります。
—
3. もっとスマートに！CellsUオブジェクトの配列を使う（応用編）
実は、`Shape.CellsU` のコレクションに対して一括操作を行うアプローチや、`Visio` が提供するネイティブな一括処理の恩恵を受けるための、実用的な書き方があります。
以下の関数は、実務の現場で即戦力となる「指定したシェイプ群の幅と高さを一括変更する」プロシージャです。
Sub SmartBulkUpdate()
Dim shp As Visio.Shape
Dim targetShapes() As Visio.Shape
Dim i As Long, count As Long
‘ ページ内の全シェイプを配列に退避
count = ActivePage.Shapes.Count
If count = 0 Then Exit Sub
ReDim targetShapes(1 To count)
For i = 1 To count
Set targetShapes(i) = ActivePage.Shapes(i)
Next i
‘ 画面描画と自動再計算を停止（爆速化の必須おまじない）
With Application
.ScreenUpdating = False
.Settings.AutoCalc = False
End With
On Error GoTo ErrorHandler
‘ ループ処理だが、AutoCalcを止めているため劇的に速い
For i = 1 To count
‘ 例：すべての幅を “50 mm” に、高さを “30 mm” に変更
‘ SetFormulasU を使う場合は CellsU のパス配列を渡すが、
‘ まずはこの「描画・再計算ストップ」の恩恵だけでも体感してほしい
targetShapes(i).CellsU(“Width”).FormulaU = “50 mm”
targetShapes(i).CellsU(“Height”).FormulaU = “30 mm”
Next i
ErrorHandler:
‘ どんなエラーが起きても必ず描画と再計算を元に戻すこと！
With Application
.ScreenUpdating = True
.Settings.AutoCalc = True
End With
If Err.Number <> 0 Then
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Else
MsgBox “一括更新が完了しました！”, vbInformation
End If
End Sub
💡 ここがエンジニアの急所：`AutoCalc = False` の魔力
`SetFormulasU` と並んで絶対に覚えておいてほしいのが、`Application.Settings.AutoCalc = False` です。
Visioは、1つのシェイプのサイズが変わるたびに、「他の接続されたシェイプに影響はないか？」「数式（Formula）の再計算が必要か？」を裏で必死に計算しています。
これを一時停止（False）し、処理が終わったあとに一気に再計算（True）させることで、数千個のシェイプも数秒で料理できるようになります。
—
4. 陥りがちなエラーと注意点
最後に、このハイパフォーマンスなテクニックを使う上で、初心者が必ずハマる「罠」をシェアしておきます。
1. エラー処理での「戻し忘れ」に注意
`ScreenUpdating = False` や `AutoCalc = False` を書いたあとに、コードの途中で `Exit Sub` やエラーが発生すると、Visioの画面がフリーズしたような状態（固まったまま操作を受け付けない）になります。必ず `On Error GoTo` を使って、終了時には確実に `True` に戻すお作法を徹底してください。
2. 単位（Unit）の罠
`FormulaU` に値を代入するときは、`”50 mm”` のように英語表記の単位（mm, in, pt など）を文字列として渡すのがVisio VBAの鉄則です。日本語環境であっても、内部コード（UはUniversalのU）では英語の単位系が必須となります。
—
まとめ：ここをクリアすれば、Visio VBAの基本はバッチリ！
- 1つずつ `.FormulaU` を書き換えるコードは卒業する！
- 大量のシェイプを扱うときは、`Application.Settings.AutoCalc = False` で再計算を止める。
- さらに極めたいときは、`SetFormulasU` と配列を使ってAPIの往復回数を極限まで減らす。
この原則さえ押さえておけば、どれほど巨大なネットワーク図やフロアマップの自動生成であっても、ストレスフリーな爆速マクロを作ることができます。
あなたのVisio自動化ライフが、より知的で快適なものになりますように。
それでは、次の現場でお会いしましょう！
