こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して出てきたコードを、ただ眺めるだけの時期はもうおしまいです。今日からあなたを、CorelDRAWを意のままに操る「真の自動化エンジニア」への第一歩へご案内しましょう。
今回は、CorelDRAW VBAのすべての始まりであり、頂点に君臨する`Application`オブジェクトに焦点を当てます。
「バージョン違いによるマクロの誤動作を防ぎたい」
「インストールパスや作業フォルダを動的に取得して、スマートにファイルを保存したい」
そんな現場の悩みを一発で解決する知見を、優しく、そして本質的なところまでしっかりと伝授しますね。ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ！
—
1. CorelDRAWオブジェクトモデルの「頂点」を知る
CorelDRAWを起動した瞬間、見えないところで巨大な司令塔が動き出しています。それが `Application`オブジェクト です。
オブジェクトモデルのピラミッドを思い浮かべてみてください。
[ Application ] （CorelDRAWそのもの・今回の主役）
└── [ Documents ] （開いているドキュメントのコレクション）
└── [ Document ] （アクティブなドキュメント）
└── [ Pages ] （ページたち）
└── [ Layers ] （レイヤーたち）
└── [ Shapes ] （図形たち）
すべての操作は、この最上位にある `Application` の掌の上で行われています。VBAを書くとき、通常はこの `Application` を省略して書き始めることができますが、その裏で何が起きているのかを知ることが、プロのエンジニアへの第一歩です。
—
2. 実行環境とバージョン情報を取得する基本プロパティ
まずは、現在のCorelDRAWの「生態系」をコードで覗いてみましょう。`Application` オブジェクトが持つ代表的なプロパティをご紹介します。
- `Application.Version`: CorelDRAWのバージョン（例: “24.0” など）を取得します。
- `Application.VersionMajor`: メジャーバージョンを数値で取得します（バージョン分岐に最適！）。
- `Application.UserDataPath`: ユーザーごとの設定やアドオンが格納されているパスを取得します。
- `Application.ActiveDocument`: 現在アクティブなドキュメントを取得します。
実用マクロ：環境情報をメッセージボックスで表示する
以下のコードをVBAエディタ（[Alt] + [F11]）の標準モジュールに貼り付けて実行してみてください。
Sub GetCorelDrawEnvironmentInfo()
‘ —————————————————-
‘ 目的: 現在のCorelDRAWの実行環境とバージョン情報を安全に取得する
‘ —————————————————-
Dim appVersion As String
Dim majorVer As Long
Dim userPath As String
Dim msg As String
On Error GoTo ErrorHandler
‘ Applicationオブジェクトから各種情報を取得
‘ ※ 明示的に Application を記述していますが、単に Version と書いても動作します
appVersion = Application.Version
majorVer = Application.VersionMajor
userPath = Application.UserDataPath
‘ 表示用メッセージの組み立て
msg = “=== CorelDRAW 実行環境情報 ===” & vbCrLf & _
“・バージョン (Version): ” & appVersion & vbCrLf & _
“・メジャーバージョン: ” & majorVer & vbCrLf & _
“・ユーザーデータパス: ” & userPath & vbCrLf
‘ アクティブドキュメントがあるかどうかの判定つき
If Not Application.ActiveDocument Is Nothing Then
msg = msg & “・現在のドキュメント名: ” & Application.ActiveDocument.Name
Else
msg = msg & “・現在のドキュメント: なし（新規作成前）”
End If
‘ 結果を出力
MsgBox msg, vbInformation, “CorelDRAW 環境チェッカー”
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “致命的なエラー”
End Sub
—
3. バージョン情報を活用した「安全な動的分岐処理」
実務の現場で最も恐ろしいのは、「古いバージョンで作ったマクロを、新しいバージョン（あるいはその逆）で動かしたときの予期せぬエラー」です。
例えば、CorelDRAW 2019以降で導入された高度な機能や新しいオブジェクトプロパティを、古いバージョンで実行すると、容赦なく実行時エラー（クラッシュの原因にも！）を引き起こします。
ここで、先ほど学んだ `VersionMajor` が活きてきます。
実用パターン：バージョンに応じた処理の切り替え
Sub SafeVersionBranchingSample()
‘ —————————————————-
‘ 目的: CorelDRAWのバージョンを判定し、処理を安全に分岐させる
‘ —————————————————-
Dim currentMajorVersion As Long
‘ メジャーバージョンを取得（例: CorelDRAW 2021なら “23” など）
currentMajorVersion = Application.VersionMajor
‘ バージョンに応じた分岐処理
Select Case currentMajorVersion
Case Is >= 22
‘ CorelDRAW 2020 (v22) 以降向けのモダンな処理
MsgBox “お使いの環境は比較的新しいバージョンです。” & vbCrLf & _
“最新のAPI機能を利用した高速処理を実行します。”, vbInformation
‘ ここにモダンな処理を記述…
Case 20, 21
‘ CorelDRAW 2019 / 2020 向けの互換処理
MsgBox “互換性モードで処理を実行します。”, vbExclamation
‘ ここにレガシーな処理を記述…
Case Else
‘ サポート対象外またはかなり古いバージョン
If MsgBox(“お使いのバージョンは古いため、一部機能が制限される可能性があります。” & _
“続行しますか？”, vbYesNo + vbQuestion) = vbNo Then
Exit Sub
End If
End Select
End Sub
このように、コードの最初で「今、自分がどの土俵（バージョン）に立っているか」を `Application` オブジェクトに問いかけることで、環境に依存しない頑健（ロバスト）なマクロが完成します。
—
4. 初心者が陥りがちな罠とエラー回避の知見
ここで、現場でよくある失敗パターンと、それを回避するための「エンジニアの知恵」をいくつかシェアしておきます。
罠1: `ActiveDocument` が何もない状態で呼び出す
ドキュメントを1つも開いていない状態で `Application.ActiveDocument.ActivePage` などの操作を行うと、容赦なく 「実行時エラー 91: オブジェクト変数または With ブロック変数が見つかりません」 が発生します。
【回避策】
常に「今、ドキュメントが存在しているか？」をガード節で確認する癖をつけましょう。
If Application.Documents.Count = 0 Then
MsgBox “ドキュメントが開かれていません。処理を中止します。”, vbExclamation
Exit Sub
End If
これだけで、マクロの安定性が劇的に向上します。
罠2: グローバルスコープの乱用
`Application` プロパティ（`ActiveDocument`, `ActiveLayer` など）はどこからでも呼び出せて非常に便利ですが、複雑なマクロの中で何度も省略して書き散らすと、コードの可読性が落ち、意図しないドキュメントを操作するバグ（コンテキスト迷子）の元になります。
大規模なコードを書くときは、一度変数に格納して扱いましょう。
Dim doc As Document
Set doc = Application.ActiveDocument ‘ 明示的に取得して局所化する
—
まとめ
今回は、CorelDRAW VBAの土台である `Application` オブジェクトを通じて、実行環境やバージョン情報を取得する方法を解説しました。
- `Application` オブジェクトはすべての操作の頂点である。
- `Version` や `VersionMajor` を使えば、環境に応じた安全なバージョン分岐が組める。
- `ActiveDocument` などを扱う前には、ドキュメントの存在チェック（ガード節）を忘れない。
この基本を抑えておくだけで、あなたの書くVBAコードの品質は、ただの「記録マクロの延長」から「プロフェッショナルな業務自動化ツール」へと劇的に進化します。
さあ、次はどのオブジェクトを攻略しましょうか？
あなたのVBAライフが、より快適で知的で満ち足りたものになりますように。また次の記事でお会いしましょう！
