こんにちは！CorelDRAWの自動化の世界へようこそ。
私はこれまで数々の現場で、膨大なデザインデータの山と格闘してきました。
「クライアントから預かった数百点のCDRファイル、全部CMYKで統一されているか確認して！」
「来週の印刷入稿に向けて、RGBが混ざっていないか一括で監査したい……」
こんな絶望的な状況に直面したことはありませんか？
まさか、1ファイルずつ手作業で開いて『ファイル』＞『書類のプロパティ』を確認するなんて非効率なことはしませんよね。マクロの記録をポチポチ押すだけのレベルは今日で卒業しましょう。
今回は、「指定フォルダ内の全CDRファイルを自動巡回し、使用されているカラーモード（RGB/CMYK）を調査してCSVレポートに出力する監査ツール」の作り方を、世界最高峰のエンジニア視点から優しく、そして本質的に解説します。
ここをクリアすれば、CorelDRAW VBAの基本と「ファイルを効率よく扱う作法」はバッチリです。一緒にマスターしていきましょう！
—
1. 現場のプロが教える！「ファイルを開かずにスキャンする」という思想
まず最初に、巨大なCorelDRAW VBAの世界における最重要鉄則をお伝えします。
> 「大量のファイルを処理するとき、絶対に画面上でファイルを開きっぱなしにしてはいけない」
初心者がやりがちなのは、`OpenDocument` で次々と画面上にファイルを開き、処理して閉じるという方法です。これだとメモリを大量消費し、CorelDRAWがフリーズしたり、処理速度が極端に落ちたりします。
そこで今回のツールでは、CorelDRAWのバックグラウンドエンジン（非表示のままデータを読み込む仕組み）をスマートに利用するか、あるいはメタデータから安全に情報を引き出すアプローチを取り入れます。今回は初学者向けに、「画面を描画させずに裏でこっそり開き、秒速でカラーモードを判定して即閉じる」という、実務で最も安定する手法を採用します。
—
2. 全体像の設計：ツールがやること
今回作成するVBAプログラムの動きは、たったこれだけです。
1. 出力先のCSVファイルを準備する（結果を書き込むため）
2. 監査したいフォルダを指定する
3. フォルダ内の全「.cdr」ファイルを捜索する
4. ファイルごとに裏側で読み込み、カラーモード（RGB / CMYK）を判定する
5. 結果をCSVに書き出し、ファイルを閉じる
6. 「完了しました！」のメッセージでドヤ顔する
—
3. 実装コード（コピペで使える最強の監査ツール）
以下のコードを、CorelDRAWのVBAエディタ（`Alt + F11`）の標準モジュールに貼り付けてください。
Sub AuditColorModeReport()
‘ =========================================================================
‘ ツール名: CDRカラーモード一括監査ツール
‘ 概要: 指定フォルダ内のCDRファイルを巡回し、カラーモードをCSVに出力する
‘ =========================================================================
Dim targetFolder As String
Dim fileName As String
Dim csvPath As String
Dim fileNum As Integer
Dim doc As Document
Dim colorModeStr As String
Dim fso As Object
Dim folder As Object
Dim fileObj As Object
‘ 1. 処理速度向上のため、画面描画と警告を完全にストップ（超重要！）
With CorelDRAW.Application
.Optimization = True
.EventsEnabled = False
.Visible = False ‘ 完全にバックグラウンドで処理させる場合はTrueでも可
End With
On Error GoTo ErrorHandler
‘ 2. 監査対象のフォルダパスを指定（※環境に合わせて書き換えてください）
targetFolder = “C:\DesignData\CheckFolder\”
‘ フォルダの存在確認
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FolderExists(targetFolder) Then
MsgBox “指定されたフォルダが存在しません：” & targetFolder, vbCritical, “エラー”
GoTo CleanUp
End If
‘ 3. 出力先CSVファイルのパスを設定（デスクトップに保存します）
csvPath = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”) & “\CDR_ColorMode_Audit.csv”
‘ CSVファイルを書き込み用に開く
fileNum = FreeFile
Open csvPath For Output As #fileNum
‘ CSVヘッダーの書き込み
Print #fileNum, “ファイル名,カラーモード,フルパス”
‘ 4. フォルダ内のファイルをループ処理
Set folder = fso.GetFolder(targetFolder)
For Each fileObj In folder.Files
‘ 拡張子が「.cdr」のものだけをターゲットにする（大文字小文字を問わない）
If LCase(fso.GetExtensionName(fileObj.Name)) = “cdr” Then
‘ 【核心】画面を表示せずに裏でドキュメントを開く
‘ 引数 True は「読み取り専用（ReadOnly）」で開くことで、元データを保護する安全設計
Set doc = OpenDocument(fileObj.Path, True)
If Not doc Is Nothing Then
‘ 5. ドキュメントのカラーモードを判定
‘ CorelDRAWの仕様: cdrRGBColor = 1, cdrCMYKColor = 2 など
Select Case doc.ColorMode
Case cdrRGBColor
colorModeStr = “RGB”
Case cdrCMYKColor
colorModeStr = “CMYK”
Case Else
colorModeStr = “その他（グレースケール等）”
End Select
‘ CSV行データを出力
Print #fileNum, “””” & fileObj.Name & “””,” & colorModeStr & “,” & “””” & fileObj.Path & “”””
‘ 【鉄則】メモリリークを防ぐため、開いたドキュメントは即座に閉じる（変更を保存しない）
doc.Close
Set doc = Nothing
End If
End If
Next fileObj
‘ 後処理
Close #fileNum
‘ 画面描画と警告を復元
With CorelDRAW.Application
.Optimization = False
.EventsEnabled = True
End With
MsgBox “監査が完了しました！” & vbCrLf & “保存先: ” & csvPath, vbInformation, “成功”
Exit Sub
ErrorHandler:
‘ エラーが発生した場合でも、CorelDRAWがフリーズしないように環境を元に戻す保険
If fileNum > 0 Then Close #fileNum
With CorelDRAW.Application
.Optimization = False
.EventsEnabled = True
End With
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
End Sub
—
4. コードの深掘り解説：ここがエンジニアのこだわりポイント！
初心者の方に向けて、「なぜこのように書く必要があるのか」の核心を3つに絞って解説します。
① `Application.Optimization = True` の魔法
大量のファイルを扱うVBAにおいて、最も避けなければならないのは「画面のチラつき」と「無駄な再描画」です。
コードの最初で `Optimization = True` を宣言すると、CorelDRAWは画面の再描画をピタッと止めます。これにより、処理スピードが何倍にも跳ね上がります。処理の最後で必ず `False` に戻す（元に戻す）のがお約束です。
② `OpenDocument(fileObj.Path, True)` の安全性
第2引数に `True` を指定することで、ファイルを「読み取り専用（ReadOnly）」で開いています。
監査ツールを走らせている最中に、万が一マクロがバグってファイルを上書き保存してしまったら大惨事です。プロのエンジニアは、常に「破壊的変更を防ぐ防御壁」をコードに組み込みます。
③ メモリの掃除（`doc.Close` と `Set doc = Nothing`）
VBAでオブジェクト（ドキュメントなど）を扱うとき、メモリに居座り続ける現象（メモリリーク）が起きます。
処理が終わるたびに `doc.Close` で閉じ、変数の中身を `Set doc = Nothing` で綺麗に消去する。この丁寧な後片付けが、何百個ものファイルを安定して処理し切るための秘訣です。
—
5. 陥りやすいエラーと対処法
- エラー：「ファイルが見つかりません」と言われる
- `targetFolder = “C:\DesignData\CheckFolder\”` のパスが実際に存在するか、末尾のバックスラッシュ（`\`）がついているかを確認してください。
- 「実行時エラー 75: パス名が無効です」
- CSVの保存先であるデスクトップのパス取得でエラーが出ている可能性があります。権限のあるフォルダ（例: `”C:\Temp\result.csv”` など）に直接パスを指定してテストしてみてください。
—
おわりに：ここをクリアすれば、あなたももう自動化エンジニア
いかがでしたでしょうか？
「ファイルを開いてカラーモードを見る」という単純な作業も、VBAのオブジェクトモデルとファイルシステム（FSO）を組み合わせることで、一瞬にして全自動の「監査システム」に生まれ変わります。
手作業によるヒューマンエラーをなくし、デザインの品質をコードで担保する。この快感を覚えてしまったら、もう元の手作業には戻れなくなりますよ。
ここをクリアしたあなたなら、次は「特定のレイヤーの有無をチェックする」「文字のアウトライン化を一括で行う」といった、より高度な自動化への扉を開くことができます。
ぜひ、あなたの現場でもこのツールをカスタマイズして役立ててください。快適なCorelDRAWライフを！
