【入門編】【実務中級】ActiveWindowプロパティを活用した複数ビューポートの切り替えと画面表示倍率の動的コントロール – CorelDRAW VBA解析バイブル

こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの自動記録を卒業し、一歩進んだ実務レベルの操作に挑戦しようとしているあなたを歓迎します。

CorelDRAW VBAの自動記録で作成されたコードは、「選択して、動かして、拡大する」といった操作を愚直に記録します。しかし、実務で100枚の図面を高速処理したり、複数画面を並べてチェックしたりする自動化ツールを作る際、自動記録のコードは「画面の揺れ（描画負荷）で極端に遅くなる」「意図しないウィンドウを操作してエラーで落ちる」という壁にぶつかります。

その壁を越える鍵こそが、今回解説する `ActiveWindow` オブジェクトと `ActiveView` の完全理解 です。

ここをマスターすれば、CorelDRAWの表示系・描画制御の基本はバッチリです！
オブジェクトの裏側に潜む挙動まで、優しく、そして深く噛み砕いて解説しますね。

—

1. CorelDRAWオブジェクトモデルにおける ActiveWindow の立ち位置

まずはCorelDRAWの内部構造（オブジェクトモデル）における `ActiveWindow` の概念を図解で理解しましょう。多くの初学者や中級者が「データ（ドキュメント）」と「見た目（ウィンドウ）」を混同して躓きます。

Application (CorelDRAW本体)
│
├─ ActiveDocument (図形やページなどの「データ」そのもの)
│ └─ Pages / Layers / Shapes
│
└─ ActiveWindow (ユーザーが目で見ている「表示フレーム」)
└─ ActiveView (倍率、画面位置、ワイヤーフレームなどの「描画状態」)

なぜ ActiveDocument と ActiveWindow を区別するのか？

CorelDRAWでは、「1つのドキュメントに対して複数のウィンドウを開く」ことが可能です（[ウィンドウ] ＞ [新しいウィンドウ]）。

Document: ベクターデータやレイヤーを保持する領域。
Window / View: データのどの部分を、どれくらいの拡大率で、どういう描画モード（拡張表示やワイヤーフレームなど）で見せるかという「カメラ」の役割。

この「カメラ（`ActiveWindow`）」をVBAで制御できるようになると、「バックグラウンドで処理しつつ、必要な瞬間だけ最適化された画面表示に切り替える」というプロの技が可能になります。

—

2. 実務で絶対に外せない「安全な ActiveWindow の取得」

VBA開発において最も恐ろしいのは、プログラム実行時にユーザーがCorelDRAWのウィンドウを閉じていたり、ドキュメントが開かれていなかったりして発生する「Null参照エラー（Object Variable Not Set）」です。

実務レベルのコードでは、必ず以下のような「防御的プログラミング（Guard Clause）」を入れます。

Sub SafeWindowAccess_Example()
‘ 1. ドキュメントが存在するかチェック
If CorelDRAW.ActiveDocument Is Nothing Then
MsgBox “ドキュメントが開かれていません。”, vbExclamation, “中断”
Exit Sub
End If

‘ 2. アクティブウィンドウが存在するかチェック
Dim targetWin As CorelDRAW.Window
Set targetWin = CorelDRAW.ActiveWindow

If targetWin Is Nothing Then
MsgBox “有効なウィンドウが見つかりません。”, vbExclamation, “中断”
Exit Sub
End If

‘ ここまで来れば安全に操作可能！
MsgBox “現在のウィンドウタイトル: ” & targetWin.Caption, vbInformation
End Sub

> アーキテクトからのワンポイントアドバイス：
> CorelDRAWをバッチ処理（非表示モードや大量ファイル処理）で動かす場合、`ActiveWindow` が `Nothing` になるケースが多発します。画面非依存の処理なら `ActiveDocument` を直接操作し、画面制御が必要な時だけ `ActiveWindow` を安全に取得するのが鉄則です。

—

3. 実践コード①：選択オブジェクトへの動的ズームと表示モード切替

それでは実務で使える具体的なコードを見ていきましょう。
以下のコードは、「選択したオブジェクトに安全にズームインし、一瞬だけワイヤーフレーム表示にして描画負荷を下げた上で処理を行い、完了後に元の表示に戻す」というテクニックです。

大量のノードを持つ複雑なパスやベクターデータを処理する際、レンダリング（再描画）のオーバーヘッドを極限まで減らすプロの常套手段です。

Public Sub SmartZoomAndFocus()
‘ 安全チェック
If ActiveDocument Is Nothing Or ActiveWindow Is Nothing Then Exit Sub

Dim doc As Document
Dim win As Window
Dim view As ActiveView

Set doc = ActiveDocument
Set win = ActiveWindow
Set view = win.ActiveView

‘ 選択オブジェクトがない場合は処理を抜ける
If doc.Selection.Shapes.Count = 0 Then
MsgBox “操作対象のオブジェクトを選択してください。”, vbInformation
Exit Sub
End If

‘ — パフォーマンス最適化の準備 —
‘ 元の描画モードとズーム状態を記憶しておく
Dim oldDisplayMode As cdrDisplayMode
oldDisplayMode = view.DisplayMode

‘ CorelDRAWの画面更新を一時停止（ちらつき防止＆超高速化）
Application.Optimization = True

Try
‘ 1. 表示モードを「単純ワイヤーフレーム」に変更（描画を最軽量化）
view.DisplayMode = cdrSimpleWireframeDisplay

‘ 2. 選択オブジェクトにカメラ（ズーム）を合わせる
view.SetToFitSelection

‘ 3. 必要に応じて倍率を少し微調整（例: ズーム率を120%へ調整）
view.Zoom = view.Zoom 1.2

‘ ————————————————–
‘ ここで重い図形処理を実行（例：ノードの自動削減など）
‘ ————————————————–

Catch:
‘ エラー処理が必要な場合はここに記述
Finally:
‘ — 状態の復元 —
‘ 元の描画モードに戻す
view.DisplayMode = oldDisplayMode

‘ 画面更新を再開し、最新状態を描画する
Application.Optimization = False
Application.Refresh
End Try

MsgBox “フォーカスと処理が完了しました！”, vbInformation
End Sub

コードの解説

`view.DisplayMode = cdrSimpleWireframeDisplay`: CorelDRAWのレンダリングエンジンに対して「ドロップシャドウや透過効果の描画をスキップしろ」と命令します。処理速度が劇的に向上します。
`view.SetToFitSelection`: 自動記録では絶対に出てこないエレガントなメソッドです。現在選択されている図形が画面いっぱいに収まるよう、カメラ座標とズーム率を自動計算します。
`Application.Optimization`: 画面の再描画をブロックします。これを忘れると、ズーム変更のたびにグラフィックカードが描画を行い、処理が重くなります。

—

4. 実践コード②：複数ビューポート（ウィンドウ）の安全な切り替え

次に、複数ウィンドウを開いている環境で、それぞれの画面（ビューポート）の表示をプログラムから一括制御する高度なテクニックを紹介します。

例えば、「全体俯瞰用のウィンドウ」と「拡大詳細用のウィンドウ」を並べて作業している時に、ボタン一つですべてのウィンドウをページ全体表示（`SetToFitPage`）にリセットするようなケースです。

Public Sub ControlAllViewports()
If ActiveDocument Is Nothing Then Exit Sub

Dim targetDoc As Document
Set targetDoc = ActiveDocument

‘ アプリケーション全体が開いているウィンドウのコレクションをループ
Dim wnd As Window
Dim windowCount As Long
windowCount = 0

‘ 画面更新をオフにして描画のチラつきを抑える
Application.Optimization = True

For Each wnd In Application.Windows
‘ 対象のドキュメントに属するウィンドウのみを操作
If wnd.Document.Name = targetDoc.Name Then
windowCount = windowCount + 1

‘ ウィンドウをアクティブ（前面）にする
wnd.Activate

‘ ウィンドウごとに異なる表示スタイルを適用する例
If windowCount = 1 Then
‘ 1つ目のウィンドウ：ページ全体を表示＆拡張表示
wnd.ActiveView.SetToFitPage
wnd.ActiveView.DisplayMode = cdrEnhancedDisplay
Else
‘ 2つ目以降のウィンドウ：ワイヤーフレーム表示で全体を表示
wnd.ActiveView.SetToFitPage
wnd.ActiveView.DisplayMode = cdrWireframeDisplay
End If
End If
Next wnd

‘ 画面再描画の解放
Application.Optimization = False
Application.Refresh

MsgBox windowCount & ” 個のビューポートを同期・最適化しました。”, vbInformation
End Sub

陥りやすい罠とその回避法

`Application.Windows` コレクションをループ処理する際、「アクティブなドキュメント以外のウィンドウ」も含まれるという点に注意してください。
上記コードのように `If wnd.Document.Name = targetDoc.Name Then` というフィルタリングを挟むことで、他の開いているファイルに悪影響を与えない「堅牢なマクロ」になります。

—

5. 表示モード（cdrDisplayMode）一覧リファレンス

実務でよく使う `DisplayMode` 定数をまとめました。用途に合わせて使い分けると、ユーザー体験（UX）や処理速度が劇的に変わります。

—

6. まとめ：ここをクリアすればCorelDRAW VBAの基本はバッチリ！

今回学んだ要素を振り返ってみましょう。

1. `ActiveDocument`（データ）と `ActiveWindow`（見た目）は明確に区別する
2. `ActiveWindow` を触る時は必ず `Nothing` チェック（防御的プログラミング）を入れる
3. 重い処理の前には `DisplayMode` を下げ、`Application.Optimization = True` で描画を止める
4. `ActiveView.SetToFitSelection` や `SetToFitPage` でカメラ位置をスマートに制御する

これらは、マクロの自動記録では絶対に到達できない「本物の業務自動化エンジニア」へのパスポートです。

画面表示を完全に手中に収めたあなたは、もう「マクロを実行したら画面がチカチカして固まった…」という事態に悩まされることはありません。自信を持って、次の高度なオブジェクト操作（LayerやShapeRangeの制御）へ進んでくださいね。応援しています！