CorelDRAW VBAマスターへの道：ShapeRangeを制する一括アライメント術【実務中級編】
皆さん、こんにちは！CorelDRAW VBAの世界へようこそ。伝説の自動化エンジニアとして、皆さんのクリエイティブな作業をさらに効率化するため、今日は「ShapeRangeコレクション」を使った一括アライメント（整列・均等配置）の秘訣をお伝えします。
マクロの記録機能で「整列」の操作を記録してみると、意外と冗長なコードが生成されることにお気づきでしょうか？ あれは、一つ一つのオブジェクトに対して個別に命令を下しているからなのです。しかし、CorelDRAW VBAには、そんな煩雑な作業を一瞬で美しく、そして効率的に完了させるための強力な武器があります。それが、今回ご紹介する「ShapeRange」と「AlignRangeメソッド」なんです。
このメソッドを使いこなせば、バラバラに配置されたオブジェクトたちを、まるで熟練のデザイナーが手作業で整えたかのように、瞬時に美しく整列させることができます。デザインの微調整に費やす時間を劇的に削減し、もっと創造的な作業に集中できるようになるはずですよ。
この記事を読み終える頃には、皆さんはCorelDRAW VBAの「ShapeRange」と「AlignRangeメソッド」を自在に操り、日々のデザインワークを格段にレベルアップさせていることでしょう。さあ、一緒にCorelDRAW VBAの奥深い世界への扉を開きましょう！
1. なぜ「ShapeRange」なのか？：オブジェクトを束ねる魔法
CorelDRAW VBAでは、ドキュメント上のオブジェクト（図形、テキスト、画像など）はすべて「Shape」オブジェクトとして扱われます。しかし、複数の「Shape」オブジェクトに対してまとめて操作を行いたい場合、一つずつループ処理するのは効率が悪く、コードも読みにくくなりがちです。
そこで登場するのが「ShapeRange」コレクションです。ShapeRangeは、複数のShapeオブジェクトをひとつのグループのようにまとめて扱うための強力な仕組みです。
ShapeRangeのイメージ図
+———————+
| ShapeRange |
| +——-+ +——-+ |
| | Shape1| | Shape2| |
| +——-+ +——-+ |
| +——-+ |
| | Shape3| |
| +——-+ |
+———————+
ShapeRangeを使うことで、以下のようなメリットがあります。
- 一括操作の実現: ShapeRange内のすべてのShapeに対して、一度の命令でプロパティの変更やメソッドの実行が可能です。
- コードの簡潔化: ループ処理が不要になり、コードがスッキリと読みやすくなります。
- パフォーマンス向上: 多数のオブジェクトに対する個別の処理が減るため、実行速度が向上する可能性があります。
実際にShapeRangeを作成してみよう
ShapeRangeを作成するには、主に以下の2つの方法があります。
1. `ActiveDocument.SelectionRange`: 現在選択されているオブジェクトすべてをShapeRangeとして取得します。
2. `ActiveDocument.Page.Shapes.Range(array_of_shapes)`: 特定のShapeオブジェクトを配列で指定してShapeRangeを作成します。
今回は、実務で最もよく使う「選択されているオブジェクト」を対象にする方法を中心に解説していきますね。
‘ 現在選択されているオブジェクトをShapeRangeとして取得する
Dim sr As ShapeRange
Set sr = ActiveDocument.SelectionRange
‘ srには、現在選択されているすべてのShapeオブジェクトが含まれています。
‘ このsrに対して、後述するアライメントメソッドなどを実行できます。
陥りやすいポイント：選択されていない場合
もし何も選択されていない状態で `ActiveDocument.SelectionRange` を実行すると、エラーが発生します。これを避けるためには、事前に選択されているオブジェクトがあるかを確認することが重要です。
‘ 選択されているオブジェクトがあるか確認する
If ActiveDocument.SelectionRange.Count > 0 Then
Dim sr As ShapeRange
Set sr = ActiveDocument.SelectionRange
‘ ここでsrを使った処理を行います
MsgBox sr.Count & “個のオブジェクトが選択されています。”
Else
MsgBox “オブジェクトが選択されていません。整列したいオブジェクトを選択してください。”, vbExclamation
End If
2. ShapeRangeを美しく整える！：AlignRangeメソッドの神髄
ShapeRangeコレクションの真価が発揮されるのが、オブジェクトを綺麗に整列・配置してくれるメソッド群です。中でも中心となるのが、`AlignRange` メソッドです。
`AlignRange` メソッドは、ShapeRange内のオブジェクトを、指定した基準（左端、中央、右端、上端、中央、下端など）に合わせて一括で整列させることができます。
AlignRangeメソッドの基本構文
ShapeRange.AlignRange AlignmentType, RelativeTo
- `AlignmentType`: どの位置に揃えるかを指定します。例えば、左端に揃えるなら `cdrAlignLeftEdges`、水平方向の中央に揃えるなら `cdrAlignHCenters` など。
- `RelativeTo`: 何を基準にして揃えるかを指定します。例えば、ShapeRange内の最も左にあるオブジェクトを基準にするなら `cdrRelativeToObject`、ページ全体を基準にするなら `cdrRelativeToPage` など。
よく使うAlignmentTypeの例
- `cdrAlignLeftEdges`: 左端を揃える
- `cdrAlignHCenters`: 水平方向の中央を揃える
- `cdrAlignRightEdges`: 右端を揃える
- `cdrAlignTopEdges`: 上端を揃える
- `cdrAlignVCenters`: 垂直方向の中央を揃える
- `cdrAlignBottomEdges`: 下端を揃える
よく使うRelativeToの例
- `cdrRelativeToObject`: ShapeRange内のオブジェクトを基準とする（デフォルト）
- `cdrRelativeToPage`: ページを基準とする
- `cdrRelativeToMaster`: マスターページを基準とする
- `cdrRelativeToShape`: 特定のShapeを基準とする
具体的なコード例：左端揃えと水平中央揃え
まず、選択したオブジェクトをすべて左端に揃えてみましょう。
Sub AlignLeftEdges()
‘ 選択されているオブジェクトがあるか確認
If ActiveDocument.SelectionRange.Count > 0 Then
Dim sr As ShapeRange
Set sr = ActiveDocument.SelectionRange
‘ ShapeRange内のすべてのオブジェクトを、ShapeRange内の最も左にあるオブジェクトの左端に揃える
sr.AlignRange cdrAlignLeftEdges, cdrRelativeToObject
Else
MsgBox “オブジェクトが選択されていません。”, vbExclamation
End If
End Sub
次に、選択したオブジェクトをすべて水平方向の中央に揃えてみましょう。
Sub AlignHCenters()
‘ 選択されているオブジェクトがあるか確認
If ActiveDocument.SelectionRange.Count > 0 Then
Dim sr As ShapeRange
Set sr = ActiveDocument.SelectionRange
‘ ShapeRange内のすべてのオブジェクトを、ShapeRange内の水平中央に揃える
sr.AlignRange cdrAlignHCenters, cdrRelativeToObject
Else
MsgBox “オブジェクトが選択されていません。”, vbExclamation
End If
End Sub
陥りやすいポイント：RelativeToObjectの挙動
`cdrRelativeToObject` を指定した場合、基準となるオブジェクトはShapeRange内で自動的に決定されます。例えば、左揃えの場合は最も左にあるオブジェクト、水平中央揃えの場合はShapeRangeの全体的な水平中央が基準となります。これが意図しない結果を生むことがあるので、注意が必要です。
もし「常に特定のオブジェクト（例えば、最初に選択したオブジェクト）を基準にしたい」という場合は、事前にそのオブジェクトを特定し、`cdrRelativeToShape` を使って基準オブジェクトを指定する必要があります。
3. 等間隔配置でデザインを洗練させる！：DistributeRangeメソッド
オブジェクトを綺麗に整列させるだけでなく、「間隔」を均一にしたい場面も多いですよね。そんな時に役立つのが `DistributeRange` メソッドです。
`DistributeRange` メソッドは、ShapeRange内のオブジェクトの間隔を、指定した基準で均等に配置します。
DistributeRangeメソッドの基本構文
ShapeRange.DistributeRange DistributionType, RelativeTo
- `DistributionType`: どのように間隔を配置するかを指定します。例えば、オブジェクト間の間隔を均等にするなら `cdrDistributeSpacingHorizontally`、オブジェクトの左端から右端までの間隔を均等にするなら `cdrDistributeEdgeDistancesHorizontally` など。
- `RelativeTo`: `AlignRange` メソッドと同様に、何を基準にするかを指定します。
よく使うDistributionTypeの例
- `cdrDistributeSpacingHorizontally`: オブジェクト間の水平方向の間隔を均等にする
- `cdrDistributeSpacingVertically`: オブジェクト間の垂直方向の間隔を均等にする
- `cdrDistributeEdgeDistancesHorizontally`: オブジェクトの左端から右端までの水平方向の距離を均等にする
- `cdrDistributeEdgeDistancesVertically`: オブジェクトの上端から下端までの垂直方向の距離を均等にする
- `cdrDistributeLeftEdges`: 左端を均等に配置する (これはAlignRangeのcdrAlignLeftEdgesと似ていますが、配置の基準が異なります)
- `cdrDistributeTopEdges`: 上端を均等に配置する
具体的なコード例：水平方向の均等配置
選択したオブジェクトの間隔を、水平方向に均等に配置してみましょう。
Sub DistributeHorizontalSpacing()
‘ 選択されているオブジェクトがあるか確認
If ActiveDocument.SelectionRange.Count > 0 Then
Dim sr As ShapeRange
Set sr = ActiveDocument.SelectionRange
‘ ShapeRange内のオブジェクト間の水平方向の間隔を均等にする
‘ 基準はShapeRange内のオブジェクト全体
sr.DistributeRange cdrDistributeSpacingHorizontally, cdrRelativeToObject
Else
MsgBox “オブジェクトが選択されていません。”, vbExclamation
End If
End Sub
陥りやすいポイント：オブジェクト間の間隔 vs 端から端までの間隔
`cdrDistributeSpacingHorizontally` と `cdrDistributeEdgeDistancesHorizontally` の違いを理解することが重要です。
- `cdrDistributeSpacingHorizontally`: オブジェクトとオブジェクトの間の空間が均等になります。
- `cdrDistributeEdgeDistancesHorizontally`: ShapeRangeの最も左にあるオブジェクトの左端から、最も右にあるオブジェクトの右端までの全体の幅が均等になります。
どちらの方法が適しているかは、デザインの意図によって異なります。実際に試してみて、イメージ通りの結果が得られる方を選択してください。
4. 実践！よく使うアライメントを組み合わせる
ここまでの知識を活かして、実務でよく使うアライメント処理を一つにまとめてみましょう。例えば、「選択したオブジェクトをすべて左端に揃えて、かつ垂直方向の間隔を均等にする」といった処理です。
Sub AlignAndDistributeLeftVertical()
‘ 選択されているオブジェクトがあるか確認
If ActiveDocument.SelectionRange.Count > 0 Then
Dim sr As ShapeRange
Set sr = ActiveDocument.SelectionRange
‘ 1. まず、すべてのオブジェクトを左端に揃える
‘ 基準はShapeRange内の最も左にあるオブジェクトの左端
sr.AlignRange cdrAlignLeftEdges, cdrRelativeToObject
‘ 2. 次に、オブジェクト間の垂直方向の間隔を均等にする
‘ 基準はShapeRange内のオブジェクト全体
sr.DistributeRange cdrDistributeSpacingVertically, cdrRelativeToObject
MsgBox “オブジェクトを左端に揃え、垂直方向の間隔を均等に配置しました。”, vbInformation
Else
MsgBox “オブジェクトが選択されていません。”, vbExclamation
End If
End Sub
このコードを実行すると、以下のような状態になります。
+——-+
| Shape1|
+——-+
+——-+
| Shape2|
+——-+
+——-+
| Shape3|
+——-+
このように、`AlignRange` と `DistributeRange` を組み合わせることで、複雑な配置もコードで簡単に実現できます。
応用：ページ中央への配置
ページの中央にオブジェクトを配置したい場合も、`RelativeTo` に `cdrRelativeToPage` を指定することで実現できます。
Sub AlignToPageCenter()
‘ 選択されているオブジェクトがあるか確認
If ActiveDocument.SelectionRange.Count > 0 Then
Dim sr As ShapeRange
Set sr = ActiveDocument.SelectionRange
‘ ShapeRange内のオブジェクトを、ページの中央に揃える
sr.AlignRange cdrAlignHCenters, cdrRelativeToPage
sr.AlignRange cdrAlignVCenters, cdrRelativeToPage
MsgBox “選択したオブジェクトをページの中央に配置しました。”, vbInformation
Else
MsgBox “オブジェクトが選択されていません。”, vbExclamation
End If
End Sub
このコードでは、まず水平方向の中央（`cdrAlignHCenters`）をページの中央（`cdrRelativeToPage`）に揃え、次に垂直方向の中央（`cdrAlignVCenters`）をページの中央（`cdrRelativeToPage`）に揃えることで、オブジェクト全体をページの中央に配置しています。
5. まとめ：CorelDRAW VBAマスターへの第一歩
いかがでしたでしょうか？
今回は、CorelDRAW VBAにおける「ShapeRange」コレクションと、「AlignRange」、「DistributeRange」メソッドを使った一括アライメント（整列・均等配置）について解説しました。
- ShapeRange は、複数のShapeオブジェクトをまとめて扱うための強力な仕組みです。
- AlignRange メソッドで、オブジェクトの端や中央を基準に綺麗に整列させることができます。
- DistributeRange メソッドで、オブジェクト間の間隔を均等に配置できます。
これらのメソッドを使いこなせば、デザイン作業の効率が劇的に向上し、よりクリエイティブな作業に時間を費やせるようになります。マクロの記録機能だけでは得られない、本質的なVBAの力を実感いただけたのではないでしょうか。
今回ご紹介した内容は、CorelDRAW VBAの基礎でありながら、実務で最も頻繁に利用される機能の一つです。ぜひ、ご自身の作業に落とし込んで、実際に試してみてください。
「ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ」という言葉を信じて、皆さんのVBAスキルをさらに磨いていきましょう！
次回も、皆さんの「なるほど！」を引き出すような、実践的で奥深いCorelDRAW VBAのテクニックをお届けします。お楽しみに！
