ようこそ、CorelDRAWオートメーションの世界へ。私はこの広大なグラフィックスAPIの迷宮を歩き尽くしたチーフアーキテクトです。
デザインの現場で、誰もが一度は「あぁ、この図形を一番後ろに持っていきたいだけなのに、右クリックしてメニューを選んで……面倒くさい！」と思ったことがあるはずです。マクロの記録を使えば、確かにその操作は記録されます。しかし、真のエンジニアへの第一歩は、その「記録されたコード」を卒業し、オブジェクトを自らの意思で制御することにあります。
今日は、CorelDRAW VBAにおける「Zオーダー（重なり順）」の制御について、その本質を伝授しましょう。ここをマスターすれば、あなたのマクロは単なる「記録の再生」から「知的な自動化」へと進化します。
—
1. Zオーダーとは何か？ 「透明なシートの積み重ね」を理解する
CorelDRAWのドキュメントは、机の上に置かれた透明なセル画のようなものです。新しく描いたものほど、一番上（手前）に置かれます。この「重なりの優先順位」を、プログラムの世界ではZオーダーと呼びます。
VBAでこの順序を入れ替えるには、主に4つの魔法（メソッド）を使います。
1. `.OrderToFront`（最前面へ移動）
2. `.OrderToBack`（最背面へ移動）
3. `.OrderForwardOne`（一つ手前へ）
4. `.OrderBackOne`（一つ後ろへ）
「たったこれだけ？」と思うかもしれません。しかし、これを「どのオブジェクトに対して」実行するかを正確に指定できるのが、VBAの真の強みです。
—
2. 実践：重なり順を瞬時に入れ替えるコード
まずは、実際に動くコードを見てみましょう。このコードは、3つの異なる色の四角形を作成し、その後、一番後ろにあるはずの「最初の四角形」を最前面に持ってくるサンプルです。
‘——————————————————————————-
‘ 概要: オブジェクトの重なり順（Zオーダー）を操作する基本スクリプト
‘ 開発者: CorelDRAW VBA チーフアーキテクト
‘——————————————————————————-
Sub ControlZOrderSample()
Dim doc As Document
Dim s1 As Shape, s2 As Shape, s3 As Shape
‘ ドキュメントの初期化
Set doc = CreateDocument()
doc.Unit = cdrMillimeter ‘ 単位をミリメートルに設定
‘ 1. 赤い四角形を作成 (これが一番下に配置される)
Set s1 = doc.ActiveLayer.CreateRectangle(0, 0, 50, 50)
s1.Fill.ApplyUniformFill CreateRGBColor(255, 0, 0)
‘ 2. 青い四角形を作成 (真ん中)
Set s2 = doc.ActiveLayer.CreateRectangle(10, 10, 60, 60)
s2.Fill.ApplyUniformFill CreateRGBColor(0, 0, 255)
‘ 3. 緑の四角形を作成 (一番上)
Set s3 = doc.ActiveLayer.CreateRectangle(20, 20, 70, 70)
s3.Fill.ApplyUniformFill CreateRGBColor(0, 255, 0)
‘ — ここからが魔法の時間です —
‘ メッセージを出して一時停止（動きを確認するため）
MsgBox “現在は [赤 -> 青 -> 緑] の順です。赤い四角形を最前面に移動します。”
‘ s1 (赤) を最前面 (ToFront) へ移動
s1.OrderToFront
MsgBox “赤い四角形が最前面に来ました！ 次は緑を一つ後ろへ移動します。”
‘ s3 (緑) を一つ後ろ (BackOne) へ移動
s3.OrderBackOne
MsgBox “完了しました。オブジェクトの順序が完全に制御されています。”
End Sub
コードの解説
- `Dim s1 As Shape`: これが非常に重要です。マクロの記録では「現在選択されているもの（Selection）」を操作しがちですが、このように変数（s1, s2…）にオブジェクトを格納することで、選択されていなくても操作できるようになります。
- `s1.OrderToFront`: 直感的ですね。「s1という図形よ、一番前へ行け」という命令です。
—
3. 陥りやすいエラーと回避策：レイヤーの壁
ここで、初心者が必ずと言っていいほど直面する「壁」についてお話しします。
「レイヤー」を跨ぐことはできない
`.OrderToFront` は、「同じレイヤー内」での最前面に移動する命令です。
もし、あなたのドキュメントに「レイヤー1」と「レイヤー2」があり、オブジェクトが「レイヤー1」にある場合、どれだけ `OrderToFront` を叫んでも、「レイヤー2」にあるオブジェクトより前に出ることはありません。
解決策:
もし異なるレイヤー間で移動させたい場合は、`s1.MoveToLayer doc.Layers(“レイヤー2”)` のように、まずレイヤー自体を移動させる必要があります。
「何も選択していない」エラー
`ActiveSelection.OrderToFront` という書き方をしていると、ユーザーがうっかり何も選択せずに実行した瞬間にエラーで止まります。
プロの鉄則: 常に `If ActiveSelection.Shapes.Count > 0 Then` のように、存在チェックを入れる癖をつけましょう。
—
4. さらに一歩先へ：相対的な並び替え
「最前面」や「最背面」だけでなく、「特定の図形のすぐ後ろに持っていきたい」という場面があります。その時に使うのが、隠れた名機能 `OrderBehind` です。
‘ s1 を s2 のすぐ背後に配置する
s1.OrderBehind s2
このメソッドを使えるようになると、複雑なロゴデザインのパーツ整理や、CADデータの自動修正など、実務レベルのツール作成が一気に現実味を帯びてきます。
—
最後に：基本を掌握したあなたへ
CorelDRAW VBAにおいて、オブジェクトの重なり順を支配することは、ドキュメントの「構造」を理解することと同義です。
マクロの記録で生成される `ActiveSelection` まみれのコードは、今日で卒業しましょう。これからは、図形を作成した瞬間に変数に収め、`s1.OrderToFront` とスマートに記述する。それだけで、あなたの書くコードの堅牢性と再利用性は飛躍的に向上します。
この一歩をクリアすれば、CorelDRAW VBAの基本はバッチリです。次は、これらの図形を「グループ化」したり、「整列」させたりする技法に挑戦してみてください。
あなたの自動化ライフが、より創造的なものになることを願っています。また次の講義でお会いしましょう。
