CorelDRAW VBAを掌握する極限の知見：幾何学模様生成マクロの設計と実装
こんにちは。業務自動化アーキテクトの私だ。
これまで数多くのDTP・デザイン自動化プロジェクトを統括してきたが、CorelDRAWのポテンシャルを殺してしまう最大の要因は、非効率なイベント駆動の濫用と、オブジェクトのライフサイクルを無視したコードにある。
特に「回転・移動を伴う連続複製」といった幾何学的な演算処理は、何も考えずに書くと画面がチラつき、最悪の場合はメモリリークや不正終了を引き起こす。
今回は、選択したベクター図形の中心座標を基準として等間隔に回転・複製し、美しい幾何学模様をノータイムで生成する「プロダクションクオリティの堅牢なマクロ」を伝授する。単なる動くコードの提示ではない。プロの現場で通用する設計思想ごと持ち帰ってほしい。
—
1. なぜ「愚直なループ」は現場で破綻するのか？
初心者がやりがちなアプローチは、選択シェイプに対して `Duplicate` を呼び出し、その都度 `Rotate` メソッドを叩くというものだ。
‘ 【アンチパターン】絶対にやってはいけない書き方
Dim i As Long
For i = 1 to 11
Dim sh As Shape
Set sh = ActiveShape.Duplicate
sh.Rotate 30 i
Next i
このコードの何が問題か？
1. 画面描画のオーバーヘッド： ループのたびにCorelDRAWのUIエンジンが再描画を試み、パフォーマンスが極端に低下する。
2. 浮動小数点の誤差蓄積： 毎回「現在の形状」を基準に回転角を足し算していくと、精度の限界から図形が微妙にズレ、閉じた幾何学模様が破綻する。
3. トランザクションの欠如： 途中でエラーが起きた際、中途半端な数のオブジェクトが生成されたゴミデータがドキュメントに残る。
プロが書くコードは、「描画の完全停止」「絶対座標・絶対角度による数学的計算」「単一のUndoトランザクション」の3原則を鉄則とする。
—
2. 堅牢な幾何学模様生成マクロの全体像
以下のコードは、現在選択している単一または複数のベクター図形をグループ化し、指定した個数分だけ等角度で放射状に回転・複製する実務仕様のVBAプロシージャだ。
コピペしてCorelDRAWのVBAエディタ（Alt + F11）に貼り付ければ、即座に使用できる。
Option Explicit
Public Sub GenerateGeometricPattern()
‘ ==========================================
‘ 幾何学模様・連続複製自動化エンジン
‘ Author: 業務自動化アーキテクト
‘ ==========================================
‘ 1. エラーハンドリングとパフォーマンス最適化の準備
On Error GoTo ErrorHandler
‘ 選択オブジェクトの存在チェック
If ActiveSelection.Shapes.Count = 0 Then
MsgBox “複製元となるベクター図形を選択してください。”, vbExclamation, “CorelDRAW 自動化”
Exit Sub
}
‘ 画面描画とイベントの完全停止（爆速化のキモ）
EventsEnabled = False
ActiveDocument.BeginCommandGroup “幾何学模様生成”
Dim srOriginal As ShapeRange
Set srOriginal = ActiveSelectionRange
‘ 複数選択されている場合は安全のためグループ化して単一オブジェクトとして扱う
Dim shTarget As Shape
If srOriginal.Count > 1 Then
Set shTarget = srOriginal.Group()
Else
Set shTarget = srOriginal(1)
End If
‘ 2. パラメータの設定（実務ではユーザーフォーム等からの取得に拡張可能）
Dim totalCount As Long
totalCount = 12 ‘ 生成する総数（例: 12個なら30度ずつ）
Dim i As Long
Dim angleStep As Double
angleStep = 360# / totalCount
‘ 3. 基準となる中心座標（CenterX, CenterY）の取得
‘ ※バウンディングボックスの中心を厳密に取得する
Dim cx As Double, cy As Double
cx = shTarget.CenterX
cy = shTarget.CenterY
‘ 4. 幾何学演算による一括複製ループ
Dim duplicatedShape As Shape
Dim currentAngle As Double
For i = 1 To (totalCount – 1)
‘ 複製を実行
Set duplicatedShape = shTarget.Duplicate
‘ 累積誤差を防ぐため、毎回「絶対角度」を計算して適用する
currentAngle = angleStep i
‘ 指定した中心座標を軸に回転（CorelDRAWのRotateExを使用）
‘ 構文: RotateEx 角度, 中心X座標, 中心Y座標
duplicatedShape.RotateEx currentAngle, cx, cy
Next i
CleanUp:
‘ 5. トランザクションの正常終了と描画の復元
ActiveDocument.EndCommandGroup
EventsEnabled = True
ActiveWindow.Refresh
Exit Sub
ErrorHandler:
‘ 異常終了時のリカバリ
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
ActiveDocument.AbortCommandGroup
EventsEnabled = True
ActiveWindow.Refresh
End Sub
—
3. コードのキモ：プロが押さえるべき3つの実装ポイント
① `EventsEnabled = False` による劇的な高速化
VBAからCorelDRAWを操作する際、デフォルトではオブジェクトが生成されるたびにUIが再描画され、ドキュメントの変更イベントが走る。これを `EventsEnabled = False` によって遮断することで、処理速度を最大で10倍以上に跳ね上げることができる。
処理の最後には必ず `True` に戻すことを忘れてはならない。
② `RotateEx` による精確な中心軸回転
通常の `Rotate` メソッドはオブジェクト自体の中心を回転軸にすることが多いが、`RotateEx(Angle, X, Y)` を使えば、「指定した任意の絶対座標（cx, cy）」を軸にして一発で回転させられる。
これにより、パターン全体の中心が狂うというデザイン上の致命傷を完全に防ぐ。
③ `BeginCommandGroup` によるアトミック性（トランザクション管理）
もしループの途中でメモリ不足や予期せぬ例外が発生した場合、中途半端な図形が残るとユーザーのストレスになる。
`BeginCommandGroup` と `AbortCommandGroup` を組み合わせることで、エラー時に「まるで何も実行されなかったかのように」一瞬で状態をロールバックできる。これは実務ツールにおいて絶対に必要な耐障害性だ。
—
4. データベース・外部ファイル連携への発展（アーキテクトからの提言）
今回のマクロは「12個の等間隔配置」だが、実際の業務では、例えば「ExcelやCSVから読み込んだパラメータ（個数、回転角、拡大縮小率）に基づいて、動的に幾何学模様を自動生成し、PDFとして一括書き出しする」という要件に発展させることが多い。
その際の設計指針を記す：
1. ロジックの分離： 図形を操作するコアロジックと、外部データを読み込むパーサー（FileSystemObject等を使用）は必ず別プロシージャに分離すること。
2. ログ出力の義務化： 大量バッチ処理を行う場合は、処理したファイル名や生成オブジェクト数をテキストログ（`Log.txt`）に非同期で書き出す仕組みを組み込んでおくこと。トラブルシューティングのコストが桁違いに下がる。
総括
CorelDRAW VBAは、単なるお絵描きスクリプトではない。正しく設計されたコードであれば、人間の手では何時間もかかる複雑なパターンデザインやバッチ処理を、一瞬で、しかもピクセルパーフェクトに完了させる強力なエンジニアリングツールとなる。
今回のコードをベースに、あなたの現場のワークフローに合わせたカスタムパラメータを組み込んでみてほしい。圧倒的な生産性の向上を約束しよう。
