CorelDRAW VBAを掌握せよ：業務自動化の扉を開く「最初の1行」と設計思想
CorelDRAWの自動化。それは単なる「作業の短縮」ではありません。設計者の創造性を奪う反復的なドブ板作業をコードに置き換え、あなた自身を「デザインを統括するアーキテクト」へと引き上げるための第一歩です。
巷には断片的なコードが溢れていますが、本稿では「動くだけ」のコードを脱却し、プロダクション（実務）で耐えうる堅牢な設計のイロハを伝授します。
—
1. 開発環境（IDE）への最短アクセス
CorelDRAWのVBA環境は、実はあなたの目の前にあります。
1. ショートカットを叩け: CorelDRAWを開いた状態で `Alt + F11` を押してください。これがVBAエディタ（VBE）の入り口です。
2. モジュールの作成: 左側の「プロジェクトエクスプローラ」で `GlobalMacros` または `Document` を右クリックし、`挿入` > `標準モジュール` を選択します。
3. なぜ標準モジュールか: オブジェクト指向の観点から、ロジックは必ず「標準モジュール」に隔離してください。フォームやドキュメント直書きは、保守性の悪夢の始まりです。
—
2. 【実務直結】最初のマクロ：堅牢なベクター描画
初心者が犯す最大のミスは「対象を特定せずに命令を投げる」ことです。CorelDRAWでは「現在選択しているもの」を闇雲に操作してはいけません。明示的にオブジェクトを生成・制御するのが鉄則です。
以下のコードは、新規ドキュメントに矩形を描画し、保存する「プロダクション品質の雛形」です。
Option Explicit ‘ これを忘れるとバグの温床になります
Public Sub CreateAndSaveDraft()
‘ エラーハンドリングを実装し、予期せぬ終了を防ぐ
On Error GoTo ErrorHandler
Dim doc As Document
Dim rect As Shape
‘ 新規ドキュメントを作成
Set doc = Application.CreateDocument
‘ 座標計算は常に定数または変数で管理（ハードコードは厳禁）
Const RECT_WIDTH As Double = 100
Const RECT_HEIGHT As Double = 50
‘ 矩形の作成（ActiveLayerを明示的に指定）
Set rect = doc.ActiveLayer.CreateRectangle(0, 0, RECT_WIDTH, RECT_HEIGHT)
‘ プロパティの変更
rect.Fill.UniformColor.RGBAssign 255, 0, 0 ‘ 赤色で塗りつぶし
‘ 保存処理
Dim savePath As String
savePath = “C:\Automation\Output\TestShape.cdr”
‘ ファイル存在チェック等のバリデーションを挟むのがプロの仕事
doc.SaveAs savePath
MsgBox “描画完了: ” & savePath, vbInformation
Exit Sub
ErrorHandler:
MsgBox “エラー発生: ” & Err.Description, vbCritical
End Sub
このコードの「設計上のこだわり」
- `Option Explicit`: これを宣言しないのは、無防備で戦場に行くようなものです。変数名のタイポをコンパイル時に検知させます。
- `On Error GoTo`: 自動化ツールが途中で停止すると、GUI環境のCorelDRAWがハングアップすることがあります。例外処理は必須です。
- オブジェクト変数への代入: `Set rect = …` とすることで、生成した図形を後から自在に操作（色変え、回転、移動）できる状態を維持しています。
—
3. 業務効率化のための「黄金律」
1. 座標系と単位の固定
CorelDRAWは、ユーザーの設定によって単位（mm, inch, px）が変わります。マクロで計算する際は、必ず基準を固定してください。
`doc.Unit = cdrMillimeter` を冒頭で呼び出すだけで、環境依存のバグを9割排除できます。
2. 画面更新の抑制（パフォーマンスの秘訣）
数千の図形を生成する場合、毎回画面を再描画させると処理時間が10倍以上遅延します。
Application.Optimization = True
‘ — 処理 —
Application.Optimization = False
Application.Refresh
このブロックで囲むだけで、描画エンジンは劇的に高速化します。
3. ファイル連携の注意点
データベースやCSVからデータを読み込んで図形化する場合、「ファイルパスのバリデーション」と「排他制御」を意識してください。VBAは外部ファイルへの書き込みに失敗しても黙って処理を続けることがあります。必ず `If Dir(path) <> “” Then` 等で存在確認を行う習慣をつけましょう。
—
最後に：アーキテクトへの第一歩
今回作成したコードは、あなたの自動化の「核」となります。ここから先は、以下のステップで拡張してください。
1. 引数による汎用化: `Sub CreateRectangle(width, height)` のように引数を受け取る関数にする。
2. 設定ファイルとの連携: 固定パスをiniファイルやExcelから読み込む。
3. 例外ログの出力: テキストファイルにログを吐き出し、深夜の実行結果を翌朝確認できるようにする。
CorelDRAW VBAは、使いこなせば「最強のグラフィックエージェント」へと進化します。まずはこのコードをコピー＆ペーストし、自身の環境で動かしてみてください。そこから、あなたの業務変革が始まります。
何か詰まったことがあれば、いつでも問いなさい。真のエンジニアリングの世界へようこそ。
