CorelDRAW VBAの「魔法」をその手に。複数シェイプを一撃で制御するプロの極意
こんにちは。CorelDRAWの自動化の世界へようこそ。
「数百個のアイコンの線幅を全部0.5ptに統一しろ」……そんな地獄のような指示を受けたとき、マウスを握りしめて一つずつクリックしていませんか？それは、CorelDRAWが持つ「VBA」という強力なエンジンを眠らせているのと同じです。
今日は、マクロの記録ボタンを押すだけの「初心者」から、CorelDRAWを支配する「エンジニア」へとステップアップするための、最も実用的で美しいコードを授けます。
—
1. なぜ「Selection」プロパティを理解するのか？
CorelDRAW VBAにおいて、最も重要な概念は「現在、何が選択されているか（Selection）」を操作することです。
手動操作では「選択する → プロパティをいじる」の繰り返しですが、VBAでは「選択した集合体（ShapeRange）に対して、一括で命令を叩き込む」という処理を行います。これにより、処理速度は手作業の1,000倍以上に跳ね上がります。
—
2. 一括属性変更マクロ：実装コード
まずは、このコードをコピーして、VBAエディタ（Alt + F11）に貼り付けてみてください。
Sub BatchUpdateProperties()
‘ — 伝説のエンジニアによる最適化コード —
Dim s As Shape
Dim sr As ShapeRange
‘ 1. 現在選択しているオブジェクトを取得
Set sr = ActiveSelectionRange
‘ 2. 選択漏れ（何も選んでいない）時のエラー回避
If sr.Count = 0 Then
MsgBox “対象となるシェイプを一つ以上選択してください。”, vbExclamation
Exit Sub
End If
‘ 3. パフォーマンス向上のための最適化（描画更新を一時停止）
Optimization = True
‘ 4. 選択した全シェイプに対してループ処理
For Each s In sr
‘ 【線幅の変更】単位はポイント(pt)
s.Outline.Width = 0.5
‘ 【塗りつぶし色の変更】RGB指定で鮮やかに
‘ 例：鮮やかな青にする場合
s.Fill.UniformColor.RGBAssign 0, 100, 255
Next s
‘ 5. 描画更新を再開し、変更を反映
Optimization = False
ActiveWindow.Refresh
MsgBox sr.Count & “個のシェイプの属性を一括変更しました！”, vbInformation
End Sub
—
3. コードの「魂」を解説する
このコードがなぜ優れているのか、ポイントを絞って解説します。
- `ActiveSelectionRange` の力
単なる `ActiveSelection` ではなく、`ShapeRange` オブジェクトとして扱うのがプロの流儀です。これにより、単一オブジェクトでも複数オブジェクトでも、同じコードで安定して処理できます。
- `Optimization = True` の魔法
これが今回の肝です。CorelDRAWはオブジェクトを一つ変更するたびに画面を再描画しようとします。数百個の処理を行う際、このフラグを立てることで、再描画を止めて処理速度を劇的に向上させています。これを書かないのは、レースカーでサイドブレーキを引きながら走るようなものです。
- エラーハンドリング
何も選んでいない状態で実行してエラー落ちする……そんな「お粗末なコード」は卒業しましょう。`If sr.Count = 0` で事前にチェックを入れることで、堅牢なツールに仕上げています。
—
4. 陥りやすい罠と解決策
初心者がよくつまずくポイントを2つだけ伝授します。
① 「塗りつぶし」が効かない！
画像（ビットマップ）や、線だけのオブジェクトを選択していませんか？VBAで `s.Fill` を操作する際、そのオブジェクトに塗りつぶし機能があるか確認する必要があります。安全に書くなら `If s.Fill.Type <> cdrNoFill Then …` といった条件分岐を入れると、よりプロフェッショナルなコードになります。
② 単位がイメージと違う
`s.Outline.Width` はデフォルトで「ポイント(pt)」を扱います。もし「mm」で指定したい場合は、`Application.ConvertUnits` という便利な関数を使って、値を変換する癖をつけてください。
—
最後に：自動化の先にある未来
このマクロを使えば、デザイン制作の「単純作業」は瞬時に終わります。浮いた時間で、あなたにしかできない「クリエイティブな思考」に没頭してください。
CorelDRAW VBAは、あなたの指先を数万倍に増幅させる武器です。今回のコードをベースに、次は「色を変えるだけでなく、サイズも一括で変えてみる」といったカスタマイズに挑戦してみてください。
プログラミングは、習うより「書き換える」ことで上達します。さあ、あなたの作業効率を、今すぐ極限まで高めていきましょう！
