こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押すだけのステージから抜け出し、「いよいよ本格的な自動化やツール開発に挑戦したい！」という素晴らしい一歩を踏み出そうとしているあなたへ、最高にエキサイティングな技術をお伝えします。
今回は、複数ファイルを跨いでマクロを連携させる「Application.Run」というプロフェッショナル御用達のテクニックを取り上げます。
「社内で使い回す共通の便利ツールを作ったけれど、プレゼン資料ごとに同じコードをコピペして回っている……」
そんな絶望的な非効率からあなたを解放し、保守性抜群のスマートなシステムを構築する方法を、一緒に紐解いていきましょう。ここをクリアすれば、あなたのPowerPoint VBAスキルは間違いなく一皮むけますよ！
—
1. なぜ「別プレゼン（.pptm）」との連携が必要なのか？
PowerPoint VBAでコードを書いていると、こんな壁にぶつかります。
- 「すべての資料で使う『スライドの一括整形ロジック』、修正するたびに全ファイルのコードを書き換えるの面倒だな……」
- 「巨大なマクロ付きプレゼンがいくつも乱立して、どれが最新のコードかわからなくなった」
Excel VBAであれば「アドイン（.xlam）」という強力な共通化の仕組みがありますが、PowerPointの現場では、「共通関数をまとめた専用の親ファイル（ライブラリ）」を用意し、そこへ各実務ファイルから処理を飛ばす設計が非常にスマートかつ現実的です。
それを実現するのが、今回主役となる `Application.Run` メソッド です。
—
2. `Application.Run` の基本概念と仕組み
`Application.Run` は、一言で言うと「別の場所にあるマクロの名前を文字（文字列）で指定して、引数を渡しながら実行する」ための命令です。
通常、VBAで別のプロシージャを呼ぶときは `Call MyMacro` のように直接名前を書きますが、この方法だと「同じプロジェクト内（または参照設定されたファイル）」にそのコードが存在しなければなりません。
しかし、`Application.Run` であれば、現在開いている別の `.pptm` ファイルの中にあるマクロを、名前の文字列を指定するだけでリモート呼び出しできるのです。
データの流れ（イメージ）
[ 実行用プレゼン (Data.pptm) ]
｜ 「このデータを処理して！」
｜ Application.Run(“CommonLibrary.pptm!FormatSlides”, targetSlide)
↓
[ 共通ライブラリ (CommonLibrary.pptm) ]
┗ 実際に重い処理や共通処理を行うプロシージャ
—
3. 実践！マルチプロジェクト制御の実装コード
百聞は一見に如かず。実際に動くコードを見てみましょう。
今回は、「共通ライブラリ側に関数を置き、実行用ファイルからそれを呼び出して引数を渡す」というシナリオを実装します。
ステップ1：共通ライブラリ側（CommonLibrary.pptm）のコード
まず、共通処理を提供する側のプレゼンテーションに標準モジュールを追加し、以下のコードを記述します。
‘ ==========================================
‘ 共通ライブラリ側 (CommonLibrary.pptm)
‘ モジュール名: modCommonTasks
‘ ==========================================
Option Explicit
Public Sub ApplyProfessionalDesign(ByVal targetSlide As Slide, ByVal headerText As String)
On Error GoTo ErrorHandler
‘ 例として、渡されたスライドの背景色を変え、タイトルを設定する処理
Dim shp As Shape
‘ 背景を白に設定
targetSlide.Background.Fill.Solid
targetSlide.Background.Fill.ForeColor.RGB = RGB(255, 255, 255)
‘ ヘルパーテキスト（タイトル等）を動的に配置
Set shp = targetSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 30, 600, 60)
shp.TextFrame.TextRange.Text = headerText
shp.TextFrame.TextRange.Font.Size = 28
shp.TextFrame.TextRange.Font.Color.RGB = RGB(30, 30, 30)
Exit Sub
ErrorHandler:
MsgBox “共通処理内でエラーが発生しました: ” & Err.Description, vbCritical
End Sub
ステップ2：実行用プレゼン側（MyPresentation.pptm）のコード
次に、実際に発表資料として使う側のプレゼンテーションに記述するコードです。ここでは、先ほどのライブラリファイルを事前に開き、`Application.Run` で関数を叩きます。
‘ ==========================================
‘ 実行用ファイル側 (MyPresentation.pptm)
‘ ==========================================
Option Explicit
Sub RunExternalMacroSample()
Dim libPresentation As Presentation
Dim targetLibPath As String
Dim macroName As String
Dim targetSlide As Slide
‘ 1. 共通ライブラリファイルのパスを指定（※環境に合わせて変更してください）
targetLibPath = ActivePresentation.Path & “\CommonLibrary.pptm”
‘ 2. ライブラリファイルがすでに開いているかチェックし、なければ開く
Set libPresentation = GetOrOpenPresentation(targetLibPath)
If libPresentation Is Nothing Then
MsgBox “共通ライブラリを開けませんでした。処理を中断します。”, vbCritical
Exit Sub
End If
‘ 3. 処理対象のスライドを指定（ここではアクティブなスライド）
Set targetSlide = ActiveWindow.View.Slide
‘ 4. Application.Run による動的連携の実行
‘ 書式: Application.Run “ファイル名.pptm!マクロ名”, 引数1, 引数2…
macroName = libPresentation.Name & “!ApplyProfessionalDesign”
On Error GoTo RunError
‘ ライブラリ側のSubに、スライドオブジェクトと文字列を引数として渡す
Application.Run macroName, targetSlide, “【自動生成】プロフェッショナル・レポート”
On Error GoTo 0
MsgBox “外部ライブラリとの連携処理が正常に完了しました！”, vbInformation
Exit Sub
RunError:
MsgBox “マクロの実行に失敗しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“内容: ” & Err.Description, vbCritical
End Sub
‘ — 補助関数：プレゼンテーションが起動中か確認し、無ければ開く —
Private Function GetOrOpenPresentation(ByVal filePath As String) As Presentation
Dim p As Presentation
Dim fileName As String
‘ パスからファイル名だけを抽出
fileName = Mid(filePath, InStrRev(filePath, “\”) + 1)
‘ すでに開いているプレゼンテーションを走査
For Each p In Application.Presentations
If p.Name = fileName Then
Set GetOrOpenPresentation = p
Exit Function
End If
Next p
‘ 開いていない場合は、ファイルが存在するか確認してサイレント（または通常）で開く
If Dir(filePath) <> “” Then
Set GetOrOpenPresentation = Application.Presentations.Open(filePath, ReadOnly:=True, WithWindow:=msoFalse)
Else
Set GetOrOpenPresentation = Nothing
End If
End Function
—
4. 現場で絶対にハマる「3つの罠」と回避策
このマルチプロジェクト制御、非常に強力ですが、初心者だけでなく中級者でも以下のトラップにハマりがちです。事前にしっかり押さえておきましょう。
トラップ1：「マクロが見つかりません」エラー (Run-time error ‘1004’)
- 原因: `Application.Run` に渡す文字列の構文ミス、または呼び出し先のマクロが `Private` になっている。
- 対策:
- 構文は必ず `”ファイル名.pptm!プロシージャ名”` の形式にしてください（拡張子 `.pptm` が抜けないように注意！）。
- 呼び出す側のプロシージャは必ず `Public Sub` または `Public Function` で宣言する必要があります。
トラップ2：マクロのセキュリティブロック
- 原因: 信頼されていない場所にあるファイルから別ファイルのマクロを叩こうとすると、ExcelやPowerPointのセキュリティ機能によってブロックされます。
- 対策: 共通ライブラリを置くフォルダを、あらかじめPowerPointの「信頼できる場所（Trusted Locations）」に登録しておきましょう。
トラップ3：オブジェクトの参照切れ
- 原因: 異なるプレゼンテーション間で `Slide` などのオブジェクトをやり取りする際、ファイルの閉じるタイミングやスコープを誤ると「オブジェクト変数または With ブロック変数が設定されていません」というお馴染みのエラーが出ます。
- 対策: 今回のサンプルコードのように、対象のスライドを明確に特定してから引数として渡す設計を徹底しましょう。
—
おわりに：ここをクリアすれば、あなたはもう初心者ではない！
今回は、`Application.Run` を使った別プレゼンテーションとの動的連携について解説しました。
コードを1つのファイルに閉じ込めず、機能ごとにモジュールやファイルを分割して連携させる手法は、まさにソフトウェアエンジニアリングの第一歩です。この設計思想が身につけば、PowerPoint VBAだけでなく、ExcelやWordなどOffice製品全体をまたいだ大規模な自動化システムも構築できるようになります。
「ここをクリアすれば、PowerPoint VBAの基本はバッチリですよ！」
ぜひご自身の環境でもコードを組み合わせて、その圧倒的な利便性を体感してみてください。あなたの自動化ライフがより一層素晴らしいものになることを応援しています！
