PowerPoint VBAの極致：Application.Runによる疎結合アーキテクチャの構築
VBAは「使い捨てのスクリプト」ではない。大規模な社内業務自動化において、コードの重複は技術的負債の最大の温床だ。全プレゼンテーションに同じロジックをコピー＆ペーストする時代は終わった。
本稿では、`Application.Run` を駆使し、機能モジュールを外部化・一元管理する「コンポーネント指向VBA」の設計思想を伝授する。
—
1. なぜ「外部参照」ではなく「Application.Run」なのか
通常、VBAで他プロジェクトを参照するには「参照設定」を用いるが、これは以下の重大なリスクを孕んでいる。
- パスの固定化: 共有サーバーのパスが変われば、即座にプロジェクトは崩壊する。
- 循環参照の地獄: 相互に依存し合うプロジェクトは、デバッグ不能なメモリリークを引き起こす。
`Application.Run` は、実行時に動的に対象ファイル（.pptm）のメモリ空間へアクセスし、プロシージャを呼び出す。いわば、VBAにおける動的ライブラリロード（DLL化に近い概念）だ。これにより、共通ロジックを「マスターファイル」として一箇所で管理し、各スライドファイルは「実行インターフェース」としてのみ機能させる疎結合なシステムが完成する。
—
2. 実装：マスターファイル（共通ロジック側）
まずは、機能を呼び出される側の共通関数を定義する。ここでのポイントは、徹底的なカプセル化だ。
‘ 共通ロジック管理ファイル: CommonLibrary.pptm
‘ モジュール名: CoreUtility
Public Function ProcessSlideData(ByVal targetSlide As Slide, ByVal configValue As String) As Boolean
On Error GoTo ErrHandler
‘ ここで複雑なロジックを処理
Debug.Print “Processing: ” & targetSlide.Name & ” with config: ” & configValue
ProcessSlideData = True
Exit Function
ErrHandler:
‘ ログ出力やエラーハンドリングを共通化
MsgBox “Critical Error in CommonLibrary: ” & Err.Description
ProcessSlideData = False
End Function
—
3. 実装：メイン駆動ファイル（クライアント側）
次に、クライアント側から動的に呼び出す実装を行う。重要なのは、「対象ファイルが開かれているかの確認」と「メモリの明示的解放」である。
‘ メイン制御ファイル: ClientProject.pptm
Sub ExecuteRemoteLogic()
Dim commonApp As Presentation
Dim targetPath As String
targetPath = “C:\Shared\CommonLibrary.pptm”
‘ 1. 対象ファイルがロードされているか確認し、無ければ開く
Set commonApp = GetOpenPresentation(targetPath)
If commonApp Is Nothing Then
Set commonApp = Presentations.Open(targetPath, WithWindow:=msoFalse)
End If
‘ 2. Application.Run で動的呼び出し
‘ 引数を渡す際は、マクロ名を文字列で指定し、その後に引数を並べる
Dim result As Boolean
result = Application.Run(“CommonLibrary.pptm!CoreUtility.ProcessSlideData”, ActiveWindow.View.Slide, “HighPriorityTask”)
‘ 3. オブジェクトの後始末（メモリ最適化）
‘ これを怠ると、PowerPointのインスタンスがバックグラウンドにゾンビとして残る
Set commonApp = Nothing
End Sub
Private Function GetOpenPresentation(path As String) As Presentation
Dim p As Presentation
For Each p In Presentations
If StrComp(p.FullName, path, vbTextCompare) = 0 Then
Set GetOpenPresentation = p
Exit Function
End If
Next
End Function
—
4. プロフェッショナルが守るべき3つの鉄則
① 実行コンテキストの分離
`Application.Run` で呼び出す関数は、必ず `Public` でなければならない。しかし、グローバル変数の安易な共有は避けるべきだ。全ての引数は関数の引数（Value）として渡し、ステートレスな設計を心がけよ。
② Windows APIとの調和
大規模なシステムでは、PowerPointがフリーズした際の「強制終了」や「ウィンドウの最前面表示」など、VBA標準機能では届かない領域が必要になる。`Declare PtrSafe Function` を使用する際は、必ず 64bit/32bit 環境のポインタ長を意識し、条件付きコンパイル (`#If VBA7`) を徹底すること。
③ オブジェクトの明示的解放
VBAはガベージコレクションが脆弱だ。特に `Presentation` オブジェクトや `Slide` オブジェクトをループ処理で回す際は、`Set p = Nothing` をループの最後で必ず実行せよ。これを怠ると、数千枚のスライドを扱う際にメモリ不足でクラッシュする。
—
結びに：技術は「仕組み」に宿る
「動けば良い」というコードは、明日には負債に変わる。
今回紹介した `Application.Run` によるアーキテクチャは、プレゼンテーションというUIレイヤーと、VBAというロジックレイヤーを分離する第一歩だ。
この設計をマスターすれば、貴殿の管理するシステムは、単なるマクロの集合体から、保守可能な「業務プラットフォーム」へと昇華するはずだ。技術の限界を決めつけるな。VBAは、設計次第でどこまでも鋭利な武器になる。
