【入門編】【中級者向け】デザイン要素のカラー構成（色相・彩度・明度）をVBAのColorオブジェクト操作でプログラムから動的に一括シフトし、季節限定や色違いのバリエーションを一瞬で生成 – CorelDRAW VBA解析バイブル

CorelDRAW VBA

2026.10.07

こんにちは。CorelDRAWの自動化の世界へようこそ。

「マクロの記録」ボタンを押して、生成されたコードの羅列に圧倒されていませんか？それはまだ、CorelDRAWの本当の力に触れていない証拠です。

今日は、デザイン現場で最も時間を浪費する「色違いのバリエーション制作」を、VBAを使って数学的に解決する方法を伝授します。これさえ理解すれば、100パターンのカラー展開も、コーヒーを飲んでいる間に完了します。

—

手動で色を変える際、私たちは無意識に「直感」で色を選んでいます。しかし、デザインのルールが厳格な現場では、「色相（Hue）を30度ずらす」「彩度（Saturation）を10%下げる」といった論理的な操作が求められます。

VBAの`Color`オブジェクトを制する者は、CorelDRAWの描画エンジンを制します。RGBの数値をいじるのは二流のやり方。HSL（色相・彩度・明度）の概念を取り入れ、色を「数値」として扱うのがプロの流儀です。

—

CorelDRAWのVBAでは、`Color.ConvertToHSL`メソッドを使うことで、RGBカラーを数学的に扱いやすいHSL空間へ変換できます。

初心者がやりがちなミスは、CMYKとRGBを混同したまま変換しようとすることです。「全てをRGBとして扱い、変換時にHSLへ渡す」、これが最も安全で計算が狂わない定石です。

—

以下のコードは、現在選択しているオブジェクトの「色相」を動的に変化させるためのテンプレートです。

Sub ShiftColorHue()
Dim s As Shape
Dim col As Color
Dim h As Double, s_val As Double, l As Double

‘ 選択範囲がない場合のガード節（エラー回避の基本！）
If ActiveSelection.Shapes.Count = 0 Then
MsgBox “対象を選択してください。”
Exit Sub
End If

‘ 選択したオブジェクトを一つずつ処理
For Each s In ActiveSelection.Shapes
‘ オブジェクトの塗りつぶし色を取得
If s.Fill.Type = cdrUniformFill Then
Set col = s.Fill.UniformColor

‘ RGBからHSLへ変換（数学的処理の準備）
col.ConvertToHSL

h = col.HSLHue ‘ 色相
s_val = col.HSLSaturation ‘ 彩度
l = col.HSLBrightness ‘ 明度

‘ 色相を120度シフト（例：赤→緑へ）
h = (h + 120) Mod 360

‘ 新しい色を適用
col.SetHSL h, s_val, l
s.Fill.UniformColor = col
End If
Next s
End Sub

`s.Fill.Type = cdrUniformFill`: これが非常に重要です。グラデーションやパターン塗りつぶしが含まれる場合、単純なUniformColor操作ではエラーになります。`If`文で型をチェックする癖をつけましょう。
`Mod 360`: 色相は360度で一周します。計算結果が360を超えた場合に0に戻すための数学的な処理です。

—

大量のオブジェクトを処理する場合、毎回画面を再描画しているとPCが悲鳴を上げます。以下の2行をコードの冒頭と末尾に挟むだけで、処理速度が劇的に向上します。

‘ 処理開始前
Optimization = True
ActiveDocument.BeginCommandGroup “Color Shift”

‘ — ここにメイン処理 —

‘ 処理終了後
ActiveDocument.EndCommandGroup
Optimization = False
ActiveWindow.Refresh

`Optimization = True`: CorelDRAWの描画更新を一時停止します。これがないと、1オブジェクトごとに画面がチカチカし、数倍の時間がかかります。
`BeginCommandGroup`: これを入れることで、一連の変更を「1つのアクション」としてUndo（取り消し）できるようになります。これぞ、ユーザーへの優しさです。

—

今回のコードは「色相」の操作ですが、応用すれば「彩度を抑えてシックな印象にする」「明度を上げてパステル調にする」といった調整も自由自在です。

まずは、このコードをコピーして、適当な図形で試してみてください。エラーが出たら、それはCorelDRAWと対話できている証拠です。次にどう直せばいいか、またこの場所で一緒に考えましょう。

自動化は、単なる手抜きではありません。「クリエイティブな作業に集中するための時間を、技術で創り出すこと」です。

さあ、あなたの次のプロジェクトで、このコードを役立ててください。応援しています。