【プロフェッショナル】PowerPoint VBAを掌握せよ：Application.Runで実現する「共通ロジック」の外部呼び出し術
こんにちは。業務自動化の世界へようこそ。
これまで、マクロの記録ボタンを押して生成されたコードをただ眺めるだけだったあなたへ。今日は、その一歩先――「複数のプレゼンテーションを自在に操り、コードを部品化して再利用する」という、アーキテクトの領域へ招待します。
PowerPoint VBAにおいて、コードを使い回すために各ファイルへコピペしていませんか？ それは「保守の地獄」への入り口です。今日は、`Application.Run` を使った、スマートで堅牢なコンポーネント指向アーキテクチャの構築法を伝授します。
—
1. なぜ「外部呼び出し」が必要なのか？
例えば、10個のプレゼンテーションファイルがあり、それぞれに「特定の書式を一括変換するマクロ」が必要だとします。もし各ファイルに同じコードを書いていたら、修正のたびに10箇所を書き直す羽目になりますよね。
これを解決するのが、「共通ロジックを1つのマクロファイル（.pptm）に集約し、他のファイルから呼び出す」という手法です。
全体像のイメージ
- マスター管理ファイル（CommonLibrary.pptm）: 共通関数が格納されている「心臓部」。
- 実行用ファイル（ProjectA.pptm / ProjectB.pptm）: 必要なときにマスターへ「命令」を送る「司令塔」。
—
2. 実践：共通ライブラリを構築する
まずは、マスターとなる `CommonLibrary.pptm` に、呼び出される側の関数を作成します。
‘ — CommonLibrary.pptm の標準モジュール内 —
Public Sub ChangeSlideTitle(ByVal slideIndex As Integer, ByVal newTitle As String)
‘ 指定したインデックスのスライドのタイトルを変更する共通処理
On Error GoTo ErrorHandler
Dim targetSlide As Slide
Set targetSlide = ActivePresentation.Slides(slideIndex)
targetSlide.Shapes.Title.TextFrame.TextRange.Text = newTitle
Exit Sub
ErrorHandler:
MsgBox “エラー発生: ” & Err.Description, vbCritical
End Sub
ポイントは、`Public` を使って外部からアクセスできるようにしている点です。
—
3. Application.Run で「命令」を飛ばす
次に、実行用のファイルからこの関数を動的に呼び出します。ここで登場するのが `Application.Run` です。
‘ — 実行用ファイル（ProjectA.pptm）の標準モジュール内 —
Sub RunExternalMacro()
Dim libraryPath As String
libraryPath = “C:\Macros\CommonLibrary.pptm”
‘ 1. ライブラリが開いていなければ開く（必要に応じて）
Dim libPres As Presentation
Set libPres = Presentations.Open(libraryPath, WithWindow:=msoFalse)
‘ 2. Application.Run で実行
‘ 引数の渡し方: “ファイル名!モジュール名.関数名”, 引数1, 引数2…
Application.Run “CommonLibrary.pptm!ChangeSlideTitle”, 1, “最高峰の自動化へようこそ”
‘ 3. 後始末（必要に応じて閉じる）
libPres.Close
End Sub
なぜこれが強力なのか？
- 疎結合: 実行用ファイルは「何をするか」を知っているだけで、「どう実装されているか」を知る必要はありません。
- 集中管理: 処理を変更したいときは、`CommonLibrary.pptm` を直すだけ。すべてが一瞬でアップデートされます。
—
4. 陥りやすい罠と解決策
プロとして、現場で遭遇する「落とし穴」を先回りしてお伝えしておきます。
罠1：パスの不整合
`Application.Run` で指定するファイル名は、読み込まれている必要があります。ライブラリファイルが閉じていてエラーになる場合は、上記のように `Presentations.Open` でロードする処理を挟むのが鉄則です。
罠2：引数の型不一致
`Application.Run` は柔軟ですが、渡す引数の型にはシビアです。特に `String` と `Variant` が混在すると予期せぬ挙動をすることがあります。呼び出す側と受け取る側の引数型（データ型）を厳密に一致させる癖をつけましょう。
罠3：プロジェクト名の重複
複数のプロジェクト名が同じだと、VBAがどちらを実行すべきか迷い、曖昧なエラーを吐くことがあります。VBAプロジェクトのプロパティから、プロジェクト名（`CommonLibrary`など）をユニークなものに変更しておくのがプロの流儀です。
—
まとめ：ここをクリアすれば、あなたはもう「脱・初心者」
今回のポイントを整理しましょう。
1. 共通ロジックは1つのファイルに集約する（マスター管理）
2. `Public` プロシージャで窓口を作る
3. `Application.Run` を使って動的に命令を送る
このアーキテクチャをマスターすれば、あなたのコードは「ただのスクリプト」から、保守性・拡張性に富んだ「システム」へと進化します。
最初は難しく感じるかもしれませんが、一度この仕組みを構築してしまえば、どんな巨大なプロジェクトも怖くありません。さあ、この知見を武器に、あなたの業務を劇的に自動化していきましょう。
質問があれば、いつでも現場の先輩である私に聞いてくださいね。応援しています！
