こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押して動かすだけのステージから、「自分の手で自由自在にプレゼン資料を自動制御するエンジニア」へステップアップしようとしているあなたへ、今日はとても大切なお話をします。
世の中の多くのVBA解説書は、「こう書けば動きます」という表面的なお手本ばかりを教えます。しかし、現場で本当にプログラミングができる人と、そうでない人の決定的な違いはなんだと思いますか？
それは、「コードが動く環境（=相手）の機嫌や状態を正しく察知し、トラブルを未然に防ぐ知恵を持っているかどうか」です。
今回は、PowerPoint VBAの根幹をなす `Application` オブジェクトを深掘りし、バージョンやビルド番号を読み解いて「環境依存のバグ」を華麗にかわす、実戦的な互換性設計の極意を伝授しましょう。
ここをクリアすれば、あなたの書くマクロの信頼性はプロのレベルへと一気に跳ね上がりますよ。
—
1. なぜ「バージョン情報」の取得が必要なのか？
あなたが会社やクライアントから預かったPCで、完璧に作り込んだPowerPointマクロを実行したとします。自分の開発環境では何何なく動いたのに、別部署のPCで走らせた途端、「実行時エラー：このメソッドはこのバージョンではサポートされていません」 と冷酷なエラーメッセージが表示されたり、図形がバラバラに崩れる描画バグが発生したり……。
実は、Microsoft 365（旧Office 365）やOffice 2016、2019、2021といった異なるバージョン、さらには同じバージョンであっても「月次アップデートのビルド違い」によって、VBAの挙動や使える機能、さらには既知のバグ（Microsoft側の不具合）が異なります。
ここで登場するのが、PowerPoint自身が今どんな環境で動いているのかを自己申告させる魔法のプロパティ、`Application.Version` と `Application.Build` です。
—
2. 基礎知識：Applicationオブジェクトの階層構造
PowerPoint VBAの頂点に君臨するのが `Application` オブジェクト です。これは「PowerPointというアプリケーションそのもの」を指します。
[Application] (PowerPoint全体)
├── .Version (例: “16.0” -> Office 2016以降)
└── .Build (例: “14326.20404” -> 細かなアップデートのビルド番号)
├── [Presentations] (開いているプレゼンテーション達)
└── [ActiveWindow] (アクティブな画面)
普段私たちが何気なく使う `ActiveWindow` や `Presentations` も、すべてこの `Application` の配下にあります。この親玉から「今のバージョンは何番だい？」と聞き出すことで、コードの実行分岐を行うわけです。
—
3. 実践！バージョンとビルド番号を安全に取得するコード
まずは、あなたのPCのPowerPointが、内部でどのように認識されているかをイミディエイトウインドウに表示させてみましょう。
基本の調査用マクロ
Sub CheckPowerPointEnvironment()
‘ アプリケーションのバージョンとビルドを取得
Dim strVersion As String
Dim strBuild As String
strVersion = Application.Version
strBuild = Application.Build
‘ 結果をイミディエイトウインドウに出力
Debug.Print “— PowerPoint 環境情報 —”
Debug.Print “バージョン (Version): ” & strVersion
Debug.Print “ビルド番号 (Build): ” & strBuild
End Sub
これを実行すると、例えば Version = “16.0”, Build = “17328.20184” のような値が返ってきます。
ここで一つ注意点があります。`Application.Version` は「文字列（String）」として返されます。そのため、数値として大小比較をする場合は、後述するように工夫が必要です。
—
4. 【現場の知恵】特定のアップデートバグを回避する条件分岐ロジック
ここからが本題です。
例えば、ある特定のビルド（仮に `16.0.14000.0` より古い環境、あるいは特定のバグを含むビルド）において、最新の高度な図形結合メソッドやアニメーション操作を行うと、PowerPoint自体が強制終了してしまう深刻なバグがあったとします。
そんな時、「古い環境では安全な代替処理（フォールバック）を走りわせ、新しい環境でのみ最新機能を使う」 という分岐ロジックを組み込みます。
以下の実用的なコードを見てください。
Sub SafeExecutionWithVersionCheck()
Dim dblVersion As Double
Dim lngBuild As Long
‘ バージョンを数値（Double型）に変換して判定しやすくする
‘ (例: “16.0” なら 16.0 に変換)
dblVersion = Val(Application.Version)
‘ ビルド番号を数値（Long型）に変換
lngBuild = CLng(Application.Build)
‘ 【分岐1】そもそもPowerPoint 2016未満（Version 16.0未満）の古い環境か？
If dblVersion < 16# Then
MsgBox "お使いのPowerPointはバージョンが古いため、本マクロの一部機能は制限されます。", vbExclamation, "互換性警告"
' 古い環境向けの安全な処理を呼び出す
Call LegacyProcess
Exit Sub
End If
' 【分岐2】Version 16.0以降であっても、特定の「既知のバグを持つビルド範囲」か？
' 例として、ビルド番号が 14000 以上 14500 未満の間に、描画クラッシュバグがあったと仮定
If lngBuild >= 14000 And lngBuild < 14500 Then
' ユーザーに警告しつつ、バグを踏まない代替処理を実行
MsgBox "現在のOfficeビルド(" & lngBuild & ")には既知の描画不具合があるため、" & vbCrLf & _
"安定モードで処理を実行します。", vbInformation, "互換性モード作動"
Call BugAvoidanceProcess
Else
' 【通常ルート】最新の安全な環境
Call HighPerformanceProcess
End If
End Sub
' --- 以下、それぞれの処理（ダミー） ---
Sub LegacyProcess()
Debug.Print "レガシーモードで実行中..."
End Sub
Sub BugAvoidanceProcess()
Debug.Print "バグ回避モード（安全な描画処理）で実行中..."
End Sub
Sub HighPerformanceProcess()
Debug.Print "最新機能フル活用モードで実行中..."
End Sub
コードのポイント解説
1. `Val(Application.Version)` による型変換:
`Application.Version` は文字列なので、そのまま `< 16` と比較すると予期せぬ挙動をすることがあります。`Val`関数を使うことで、文字列の先頭から数値部分を綺麗に抜き出し、大小比較（`<`や`>`）が安全に行えるようになります。
2. `CLng(Application.Build)` によるビルド番号の数値化:
ビルド番号はドットを含む文字列（例: `”14326.20404″` のように一部環境で小数点が含まれることがあります）である場合もあるため、厳密に比較する際は整数部分のみを抽出するなどの一手間を加えるとさらに堅牢になります。
—
5. 陥りやすいエラーとデバッグの極意
初心者の頃によやりがちなミスが、「自分の開発PCでしかテストせずに配布してしまうこと」 です。
- エラーの罠: 開発者のPCには「Microsoft 365 の最新プレビュー版」が入っていて動いたメソッドが、総務部の「Office 2019（更新を長年止めている環境）」では影も形もなく、`438: オブジェクトは、このプロパティまたはメソッドをサポートしていません。` エラーでマクロが強制終了する。
これを防ぐためには、今日学んだ `Application.Version` を使ったガード節（Guard Clause）をコードの最上部に必ず仕込むクセをつけましょう。
—
まとめ：ワンランク上のエンジニアへ
今回は、`Application.Version` と `Application.Build` を用いた、環境依存バグを回避する互換性設計について解説しました。
「動くコード」を書くだけなら誰でもできます。しかし、「どんな環境で誰が動かしても、決して壊れない、あるいは優しく安全に回避するコード」 を書ける人こそが、現場で本当に重宝される真の自動化エンジニアです。
ここをクリアすれば、あなたのVBAスキルはもう「基礎」の域を脱しています。自信を持って、次のオートメーションの世界へ進んでくださいね！
