【プロフェッショナル】Application.Runによるマクロの動的連携：別プレゼンテーションからの共通関数呼び出しとマルチプロジェクト制御
PowerPoint VBAによるエンタープライズ規模の自動化において、最大の足枷となるのは「コードの重複と散逸」である。各発表者が生成する個別の `.pptm`（マクロ有効プレゼンテーション）の中に同じようなデータ整形ロジックやログ出力プロシージャがコピー＆ペーストされ、仕様変更のたびに全ファイルを改修するという悪夢を、多くのシニアエンジニアが経験してきたはずだ。
この構造的欠陥を打破し、単一のマスターライブラリ（共通関数群）から各スライド生成エンジンを動的に統御する唯一無二の解が、`Application.Run` メソッドを用いたマルチプロジェクト制御である。
本稿では、レガシーかつブラックボックス化しがちなPowerPointのオブジェクトモデルの挙動を解剖し、別プロセス・別プロジェクト間の安全な関数呼び出し、引数の厳密な型管理、そして実運用に耐えうる例外制御の極限を提示する。
—
1. PowerPoint VBAにおけるプロジェクト間連携のメカニズム
Excel VBAであれば `Application.Run “C:\Lib\Common.xlsm!MyFunc”, arg` のように比較的直感的に別ブックのマクロを叩くことができる。しかし、PowerPointのアーキテクチャはこれとは異なる。
PowerPointのインスタンス（`Application` オブジェクト）は、起動しているセッション内において、開かれているすべてのプレゼンテーション（`Presentation` オブジェクト）のVBAプロジェクトを同一のメモリ空間（VBEのグローバルな名前空間）にロードする。
したがって、`Application.Run` の第1引数には、単にプロシージャ名だけでなく、どのプレゼンテーションのプロジェクトに属しているかを識別するコンテキストを含める必要がある。
構文の罠とルール
- 呼び出し先のプロシージャは、対象プレゼンテーションの標準モジュールにおいて `Public` で宣言されていなければならない。
- 第1引数の指定方法：`”PresentationFileName.pptm!ModuleName.ProcedureName”`
- 対象の `.pptm` がすでにPowerPointのアプリケーション上で開かれている必要がある（開かれていない場合は、事前に `Presentations.Open` でロード、あるいは `Add` する必要がある）。
—
2. 実装アーキテクチャ：マスターライブラリとクライアントの分離
ここでは、以下の2つのコンポーネントを想定する。
1. 共通ライブラリ (`C:\VBA_Master\PowerPoint_CommonLib.pptm`)
ログ出力や、データ構造体の整形、外部API連携などの共通関数を保持する。
2. クライアントプレゼンテーション (`Report_2023.pptm`)
自身のスライド構築処理の途中で、共通ライブラリの関数を動的に呼び出す。
① 共通ライブラリ側の実装 (`PowerPoint_CommonLib.pptm` の標準モジュール `mCommonFunctions`)
Option Explicit
‘ =========================================================================
‘ 共通ライブラリ：データ集計・整形エンジン
‘ =========================================================================
Public Function FormatAndLogHeader(ByVal TargetPresentation As Presentation, ByVal LogMessage As String) As Boolean
On Error GoTo ErrorHandler
Dim sld As Slide
Set sld = TargetPresentation.Slides(1)
‘ 簡易的なロギングとスライドヘッダーの動的書き換え
Debug.Print “[Library LOG] ” & Now & ” – ” & LogMessage
‘ 正常終了
FormatAndLogHeader = True
Exit Function
ErrorHandler:
‘ 呼び出し元へエラーを隠蔽せず、ログを出力してFalseを返す
Debug.Print “[Library ERROR] ” & Err.Number & “: ” & Err.Description
FormatAndLogHeader = False
End Function
② クライアント側の実装 (`Report_2023.pptm` からの動的呼び出し)
クライアント側では、まず共通ライブラリがメモリ上にロードされている（開かれている）ことを保証し、`Application.Run` を使って安全にプロシージャをキックする。さらに、引数の参照渡し・値渡しの境界に注意を払う。
Option Explicit
‘ =========================================================================
‘ クライアント側：動的連携ランチャー
‘ =========================================================================
Public Sub ExecuteExternalLibraryTask()
Const LIB_PATH As String = “C:\VBA_Master\PowerPoint_CommonLib.pptm”
Const LIB_NAME As String = “PowerPoint_CommonLib.pptm”
Const TARGET_PROC As String = “mCommonFunctions.FormatAndLogHeader”
Dim libPres As Presentation
Dim isLoaded As Boolean
Dim funcResult As Boolean
Dim i As Long
isLoaded = False
‘ 1. 対象のライブラリがすでに開かれているか走査
For i = 1 To Application.Presentations.Count
If Application.Presentations(i).Name = LIB_NAME Then
Set libPres = Application.Presentations(i)
isLoaded = True
Exit For
End If
Next i
‘ 2. 開かれていない場合はバックグラウンド（ウィンドウ非表示）でロード
If Not isLoaded Then
On Error GoTo LoadError
‘ Windowを非表示にして開くことで、ユーザーの作業を邪魔しない（メモリ効率とUXの向上）
Set libPres = Application.Presentations.Open(FileName:=LIB_PATH, ReadOnly:=True, WithWindow:=msoFalse)
On Error GoTo 0
End If
‘ 3. Application.Runによる動的実行（引数の受け渡し）
‘ 構文: Application.Run “ファイル名!モジュール名.関数名”, 引数1, 引数2…
On Error GoTo RunError
Dim runidentifier As String
runidentifier = LIB_NAME & “!” & TARGET_PROC
‘ ActivePresentationを対象として渡し、メッセージ文字列を渡す
‘ ※注意: オブジェクト型を別プロジェクトの関数に渡す場合、型不一致を防ぐためプレーンなオブジェクトとして渡る
funcResult = Application.Run(runidentifier, ActivePresentation, “初期化シーケンス実行完了”)
If funcResult Then
MsgBox “外部ライブラリの処理が正常終了しました。”, vbInformation, “システム連携”
Else
MsgBox “外部ライブラリ側でエラーが発生しました。”, vbCritical, “システム連携”
End If
‘ 4. 自前でロードした場合は、クリーンアップ（メモリ解放）を行う
If Not isLoaded And Not (libPres Is Nothing) Then
libPres.Close
End If
Set libPres = Nothing
Exit Sub
LoadError:
MsgBox “共通ライブラリのロードに失敗しました: ” & Err.Description, vbCritical, “致命的エラー”
Exit Sub
RunError:
MsgBox “Application.Runの実行に失敗しました: ” & Err.Description, vbCritical, “ランタイムエラー”
If Not isLoaded And Not (libPres Is Nothing) Then libPres.Close
Set libPres = Nothing
End Sub
—
3. シニアエンジニアが押さえるべき「極限の知見」と実務上の罠
A. オブジェクトのライフサイクルとメモリリークの防止
PowerPoint VBAにおいて、COMオブジェクトの参照解放を怠ると、背後で `POWERPNT.EXE` のプロセスが残存し（ゾンビプロセス）、ファイルがロックされる原因となる。
特に動的連携を行う場合、`Presentations.Open` で読み込んだライブラリの `Presentation` オブジェクトをローカル変数に保持したまま異常終了すると、メモリリークの温床となる。
必ず `On Error` 時にオブジェクト変数を `Nothing` に明示代入し、必要に応じて `.Close` メソッドを明示的に呼び出すこと。
B. バージョン間のセキュリティポリシー（信頼できる場所）への対応
近年のMicrosoft Officeはセキュリティが極めて厳格である。
外部から読み込む `.pptm` が「信頼できる場所（Trusted Locations）」に登録されていない場合、あるいはマクロが無効化された状態で開かれた場合、`Application.Run` は容赦なく以下の実行時エラーを吐く。
> 実行時エラー ‘1004’: マクロ ‘…’ を見つけられないか、またはマクロが無効になっている可能性があります。
これを防ぐため、企業内展開ではグループポリシー（GPO）等で共通ライブラリの格納フォルダを必ず「信頼できる場所」に指定させること。コード側での動的なマクロ有効性チェックはVBA単体ではセキュリティサンドボックス上不可能であるため、事前の環境構築がアーキテクチャの成否を分ける。
C. 引数の型制約（Variantの罠）
`Application.Run` を経由して渡される引数は、内部的に一度シリアライズ／バインドの解決が行われるため、厳密な型（ユーザー定義型 UDT や特定のクラスモジュールインスタンスなど）をそのまま渡すと、「型が一致しません（Error 13）」 を引き起こす。
- 推奨される引数の型: `String`, `Long`, `Boolean`, などのプリミティブ型、または汎用的な `Object`（`Presentation`, `Slide` などインターフェースが公開された組み込みオブジェクト）。
- 複雑な構造体を渡したい場合は、JSON文字列にシリアライズして `String` として渡し、受け取り側でパースするアプローチが最も堅牢である。
—
4. 総括：レガシーの殻を破るシステム連携へ
PowerPointは、ExcelやAccessに比べると「単体で完結するプレゼンテーションツール」として扱われがちであり、VBAのモジュール性や拡張性にかけては冷遇されてきた歴史がある。
しかし、今回解説した `Application.Run` によるマルチプロジェクト制御をマスターすれば、散在するプレゼンテーション群を統括する「スライド生成プラットフォーム」を構築することが可能となる。
コードの重複を排除し、ロジックを中央集権化せよ。それこそが、プロフェッショナルなVBAエンジニアに課された使命である。
