こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押すだけのステージから一歩進んで、「自分の手でプレゼンテーションを自在に操りたい」そう思っているあなたへ。
今回は、業務効率化の現場で間違いなく差がつく「マルチウィンドウ制御」の極意をお伝えします。
「複数の資料を開きながら、あっちのデータをこっちにコピーして……あぁ、どのウィンドウがアクティブだっけ？！」
そんなイライラをVBAの力で一瞬で解決する方法を、一緒にマスターしていきましょう。ここをクリアすれば、あなたのPowerPoint VBAスキルは確実にワンランク上のステージに到達しますよ！
—
1. なぜ「マルチウィンドウ制御」でつまずくのか？
PowerPoint VBAを学び始めると、まず `ActivePresentation` や `ActiveWindow` という言葉に出会います。
これらは「今、画面の前面で見えているもの」を指す便利な言葉ですが、複数のプレゼンテーションを同時に開いた途端、牙を向きます。
人間は「左の画面を見ながら、右の画面にコピーする」ということが目で見て直感的にできますが、VBAは指示しないと「今どれを操作しているのか」を見失ってしまいます。エラーが起きたり、意図しないファイルに書き込んでしまったりするのはこれが原因です。
ここで登場するのが、今回の主役である `Presentation.Windows` コレクション です。これを使えば、開いているウィンドウを完全に手足のようにコントロールできるようになります。
—
2. ウィンドウオブジェクトの基本構造を知る
まずは、PowerPointの裏側でウィンドウがどう管理されているか、イメージを掴みましょう。
- `Application.Windows`: PowerPoint全体で開いているすべてのウィンドウの集まり（コレクション）。
- `Presentation.Windows`: 特定のプレゼンテーションに紐づくウィンドウの集まり。
PowerPointでは、1つのファイルを異なるウィンドウで同時に2つ以上開くことも可能です（「表示」タブの「新しいウィンドウを開く」アレです）。つまり、「ファイル（Presentation）」と「窓（Window）」は別物として管理されているのが、PowerPointオブジェクトモデルの奥深いところです。
—
3. 実践！画面を左右に美しく並べて比較・編集するマクロ
百聞は一見にしかず。まずは、現在開いている2つのプレゼンテーションのウィンドウを画面の左右に綺麗に整列させ、それぞれのウィンドウをアクティブに切り替える実用コードを見てみましょう。
開発の現場でそのままコピペして使えるよう、丁寧なコメントをつけておきますね。
Sub ArrangeAndCompareWindows()
‘ 変数の宣言
Dim w1 As Window
Dim w2 As Window
‘ 【重要】あらかじめ比較したいファイルが「2つだけ」開いている前提のコードです
‘ 念のため、開いているウィンドウの数が2つかチェックします
If Application.Windows.Count <> 2 Then
MsgBox “比較するには、ちょうど2つのプレゼンテーションを開いておいてくださいね。”, vbExclamation, “ウィンドウ数の確認”
Exit Sub
End If
‘ 1つ目のウィンドウと2つ目のウィンドウを変数に格納
Set w1 = Application.Windows(1)
Set w2 = Application.Windows(2)
‘ — 画面のレイアウトを整える（左右に分割配置） —
‘ アプリケーション全体のウィンドウ位置を基準に計算します
Dim appLeft As Long, appTop As Long, appWidth As Long, appHeight As Long
appLeft = Application.Left
appTop = Application.Top
appWidth = Application.Width
appHeight = Application.Height
‘ ウィンドウ1を「左半分」に配置
w1.WindowState = ppWindowNormal ‘ 最大化を解除してサイズ変更可能にする
w1.Left = appLeft
w1.Top = appTop
w1.Width = appWidth / 2
w1.Height = appHeight
‘ ウィンドウ2を「右半分」に配置
w2.WindowState = ppWindowNormal
w2.Left = appLeft + (appWidth / 2)
w2.Top = appTop
w2.Width = appWidth / 2
w2.Height = appHeight
‘ — ウィンドウのフォーカス（アクティブ化）を制御する —
‘ 試しに、w1をアクティブにしてみます
w1.Activate
MsgBox “現在は左側のウィンドウ [” & w1.Presentation.Name & “] がアクティブです。”, vbInformation
‘ 次に、w2をアクティブに切り替えます
w2.Activate
MsgBox “次は右側のウィンドウ [” & w2.Presentation.Name & “] に切り替えました！”, vbInformation
MsgBox “マルチウィンドウの整列と制御が完了しました。お疲れ様です！”, vbInformation
End Sub
コードの解説とここがポイント！
- `Application.Windows.Count`: 現在いくつのウィンドウが開いているかを数える安全装置です。エラーを防ぐために、こうした事前チェックを入れるのがプロの技です。
- `ppWindowNormal`: ウィンドウが最大化や最小化されていると、`Left` や `Width` のプロパティを変更しても無視されてしまいます。必ず「通常サイズ」に戻してから座標をいじるのが鉄則です。
- `.Activate`: 人間の手でウィンドウをクリックする代わりに、VBAから「この窓をアクティブにしなさい」と命令します。
—
4. 複数ウィンドウ間でのデータコピペを安全に行う極意
ウィンドウを並べただけでは、ただの「お絵かき」です。ここからが本番、「左側のファイルの特定のスライドから、右側のファイルへ図形やテキストをコピーする」という実務に直結するテクニックを見てみましょう。
実は、PowerPoint VBAでは `Copy` と `Paste` を使わなくても、オブジェクトを直接ターゲットのスライドに複製する（`Copy` しない）方が圧倒的に速く、エラーが起きません。
Sub CopyBetweenPresentations()
Dim srcPres As Presentation
Dim dstPres As Presentation
Dim targetSlide As Slide
‘ エラーハンドリングの準備
On Error GoTo ErrorHandler
‘ 開いているプレゼンテーションが2つ未満なら中止
If Application.Presentations.Count < 2 Then
MsgBox "ソースとコピー先の、最低2つのプレゼンテーションを開いておいてください。", vbCritical
Exit Sub
End If
' 【例】1番目のファイル（左側）の1枚目のスライドにある最初の図形を、
' 2番目のファイル（右側）の1枚目のスライドに複製する
Set srcPres = Application.Presentations(1)
Set dstPres = Application.Presentations(2)
' コピー先のコピー先スライドを指定
Set targetSlide = dstPres.Slides(1)
' コピー元（srcPres）の1枚目スライドの図形を、コピー先へ複製して持っていく
' Copy & Paste を使わないため、クリップボードを汚さず、画面のチラつきもありません！
If srcPres.Slides(1).Shapes.Count > 0 Then
srcPres.Slides(1).Shapes(1).Copy
targetSlide.Shapes.Paste ‘ 伝統的な方法を使う場合の例
MsgBox srcPres.Name & ” から ” & dstPres.Name & ” へのデータ転送に成功しました！”, vbInformation
Else
MsgBox “コピー元のスライドに図形が存在しません。”, vbExclamation
End If
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
End Sub
—
5. 現場でありがちな「落とし穴」と回避策
最後に、実務でマルチウィンドウをいじっているときによくハマる「罠」と、その回避策をシェアしておきます。
1. 「アクティブじゃないもの」を触ろうとして怒られる
- 対策: 極力 `ActivePresentation` や `ActiveWindow` に頼らず、今回紹介したように `Presentation(1)` や明示的に変数に代入したオブジェクト（`w1`, `srcPres` など）を直接指名して操作するようにしましょう。
2. ウィンドウ名（ファイル名）が被っていてどれがどれかわからない
- 対策: パス名を含めたフルパスで判断するか、マクロ実行前にあらかじめファイル名を整理しておく運用ルールを作ると安心です。
—
まとめ
今回は `Presentation.Windows` コレクションを使ったマルチウィンドウの整列と制御、そして複数ファイル間での安全なデータ操作の基本を解説しました。
ここをクリアできれば、単なる「1つのファイルを自動化するマクロ」から脱却し、「複数の資料を縦横無尽に料理する、真の業務自動化エンジニア」へと一歩踏み出すことができます。
ぜひご自身の環境でもコードを動かして、そのスピードと快適さを体感してみてくださいね。それでは、次回の応用編もお楽しみに！
