「PowerPoint VBAを掌握する極限の知見」へようこそ！
皆さん、こんにちは。伝説のチーフアーキテクト、○○です。
PowerPointは単なるプレゼンテーションツールだと思っていませんか？
実は、VBA（Visual Basic for Applications）の力を借りれば、日々のルーティンワークから解放され、創造的な作業にもっと時間を費やせる、強力な業務自動化プラットフォームへと変貌します。
今日は、PowerPoint VBAの基本の「キ」から、少し応用的な内容まで、皆さんの業務を劇的に効率化する魔法をお伝えします。
テーマは、「既存のプレゼンテーションをセクションごとに分割して、複数の新しいPPTXファイルとして保存する分割マクロ」です。
「マクロの記録」で一歩踏み出した方も、これからVBAを学びたい方も、ここをクリアすれば、PowerPoint VBAの基本はバッチリですよ。
さあ、一緒にPowerPointの秘めたる力を解き放ちましょう！
—
🚀 なぜ「セクション分割マクロ」が必要なのか？
PowerPointの「セクション」機能は、長いプレゼンテーションを論理的に整理し、編集しやすくするための素晴らしい機能ですよね。しかし、以下のような場面で、手作業での分割に手間を感じたことはありませんか？
- チームメンバーへの配布: 各担当セクションを個別のファイルとして配布したい。
- モジュール化されたコンテンツ管理: 一つの巨大なプレゼンテーションから、特定のテーマのセクションだけを切り出して再利用したい。
- 個別プレゼン作成: 全体の中から、特定の顧客や会議に向けた数セクションだけを抜き出して、新しいプレゼンテーションとして保存したい。
- PDF/画像の一括出力: 各セクションを独立したPDFや画像ファイルとして出力したい（今回のマクロはPPTX保存ですが、応用が効きます！）。
手作業で「新規プレゼンテーションを作成」→「必要なスライドをコピー」→「ペースト」→「保存」…を繰り返すのは、時間も労力もかかり、何よりヒューマンエラーの元です。
そこでVBAの出番です！一度マクロを作ってしまえば、クリック一つでこの煩雑な作業が完了します。
—
💡 PowerPoint VBAの基本の「キ」：VBAエディタとオブジェクトモデル
マクロを記述する前に、まずはPowerPoint VBAの基本的な世界観を覗いてみましょう。
1. VBAエディタの開き方
PowerPointを開いた状態で、キーボードの `Alt` + `F11` を押してください。
すると、「Microsoft Visual Basic for Applications」という別のウィンドウが開きます。これがVBAエディタです。
プログラミングの世界への入り口ですね！
2. 標準モジュールの挿入
VBAエディタの左側にある「プロジェクト エクスプローラー」で、現在のプレゼンテーション（通常は「VBAProject (プレゼンテーション名)」）を選択します。
次に、メニューバーから `挿入(I)` → `標準モジュール(M)` をクリックしてください。
これで、コードを記述するための真っ白なキャンバス（モジュールシート）が現れます。
3. オブジェクトモデルの超基礎
VBAでPowerPointを操作する際、私たちは「オブジェクト」というものを扱います。PowerPointの機能や要素は、すべてオブジェクトとして表現され、階層構造をなしています。
まるで、会社組織のようです。
- Application: PowerPointアプリケーション全体（社長）
- Presentation: 開いているプレゼンテーションファイル（部署）
- Section: プレゼンテーション内のセクション（課）
- Slide: 個々のスライド（社員）
- Shape: スライド上の図形やテキストボックス（社員の机や文房具）
私たちはVBAを通じて、これらのオブジェクトに「指示」を出したり、「情報」を取得したりします。
例えば、「今開いているプレゼンテーション（`Application.ActivePresentation`）の中の、特定のセクション（`Presentation.Sections(i)`）にあるスライド（`Section.Slides`）をコピーして、新しいプレゼンテーションに貼り付けなさい」といった具体的な指示をコードで表現するわけです。
4. 変数宣言の重要性 (`Option Explicit`)
モジュールの先頭に必ず `Option Explicit` と記述してください。
これは、「変数をすべて宣言してから使いなさい」というルールを強制するおまじないです。
初めは面倒に感じるかもしれませんが、タイプミスによるエラーを防ぎ、コードの可読性を高める上で非常に重要です。
私も新人の頃に先輩から口酸っぱく言われましたし、今では無意識に書いていますね（笑）。
—
🛠️ 【実践】セクション分割マクロを構築する
それでは、いよいよ本題のセクション分割マクロを段階的に見ていきましょう。
目標は、以下の処理を自動化することです。
1. アクティブなプレゼンテーションを取得する。
2. そのプレゼンテーション内のセクションを一つずつ処理する。
3. 各セクションに対し、新しいプレゼンテーションを作成する。
4. そのセクションに属するスライドをすべて、新しいプレゼンテーションにコピー＆ペーストする。
5. 新しいプレゼンテーションを、セクション名をファイル名にして保存する。
6. 新しいプレゼンテーションを閉じる。
ステップ1: アクティブなプレゼンテーションを取得する
まず、私たちが作業したい「元のプレゼンテーション」をVBAに認識させる必要があります。
‘ 変数宣言は忘れずに！
Dim objSrcPres As Presentation ‘ 元のプレゼンテーションを格納する変数
‘ 今開いているアクティブなプレゼンテーションをobjSrcPresにセットする
Set objSrcPres = Application.ActivePresentation
ここで重要なのが `Set` キーワードです。VBAでは、オブジェクトを変数に代入する際に `Set` を使います。これは「オブジェクトそのものを参照する」という意味合いで、値の代入とは区別されます。オブジェクトのライフサイクルを意識する上で、非常に重要な概念ですよ。
ステップ2: セクションをループ処理する
次に、元のプレゼンテーションにあるセクションを一つずつ取り出して処理します。
Dim objSection As Section ‘ 各セクションを格納する変数
Dim i As Long ‘ セクションのインデックス（番号）を格納する変数
‘ For Each … Next ループで、objSrcPres内のすべてのセクションを処理する
For i = 1 To objSrcPres.Sections.Count ‘ セクションは1から始まる
Set objSection = objSrcPres.Sections.Item(i) ‘ i番目のセクションを取得
‘ ここに各セクションに対する処理を記述していく
‘ 例えば、セクション名を表示してみる
Debug.Print “セクション名: ” & objSection.Name
Next i
`For Each … Next` は、コレクション（PowerPointでいうところの`Sections`や`Slides`など、複数のオブジェクトの集まり）内の各要素を順番に処理するのに非常に便利です。今回はインデックス（番号）でアクセスしましたが、`For Each objSection In objSrcPres.Sections` とすることも可能です。
ステップ3: 新規プレゼンテーションを作成する
各セクションを処理するたびに、そのセクション専用の新しいプレゼンテーションファイルを作成します。
Dim objNewPres As Presentation ‘ 新しいプレゼンテーションを格納する変数
‘ 新しいプレゼンテーションを追加する
‘ Application.Presentations は開いているすべてのプレゼンテーションのコレクション
Set objNewPres = Application.Presentations.Add(WithWindow:=msoFalse) ‘ 新規作成時にウィンドウを表示しない
`Application.Presentations.Add` メソッドで、新しい空のプレゼンテーションが作成されます。`WithWindow:=msoFalse` を指定することで、裏で処理が行われ、画面がちらつくのを防ぎます。ユーザーエクスペリエンスを向上させるための細かい配慮ですね。
ステップ4: セクション内のスライドをコピー＆ペーストする
ここがこのマクロの肝です。
元のプレゼンテーションから、対象セクションのスライドだけを抽出し、新しいプレゼンテーションに貼り付けます。
Dim firstSlideIndex As Long ‘ セクションの開始スライドインデックス
Dim lastSlideIndex As Long ‘ セクションの終了スライドインデックス
Dim objSlideRange As SlideRange ‘ コピーするスライド範囲
‘ 現在処理中のセクションの開始スライドインデックスを取得
firstSlideIndex = objSection.FirstSlideIndex
‘ セクション内のスライド数を考慮して、終了スライドインデックスを計算
‘ セクションのCountはスライド数。FirstSlideIndexから数えてCount個目まで
lastSlideIndex = firstSlideIndex + objSection.Count – 1
‘ コピー対象のスライド範囲をSlideRangeオブジェクトとして取得
‘ Array(firstSlideIndex To lastSlideIndex) とは書けないので、
‘ まず配列を作成し、その配列をSlideRangeに渡す
Dim slideIndices() As Long
ReDim slideIndices(objSection.Count – 1) ‘ スライド数分の配列を再定義
Dim j As Long
For j = 0 To objSection.Count – 1
slideIndices(j) = firstSlideIndex + j
Next j
Set objSlideRange = objSrcPres.Slides.Range(slideIndices)
‘ 取得したスライド範囲をコピーする
objSlideRange.Copy
‘ 新しいプレゼンテーションにスライドを貼り付ける
‘ 1は新しいプレゼンテーションのどこに貼り付けるかを指定（1番目のスライドの後ろ）
‘ 今回は空のプレゼンテーションなので、先頭に貼り付け
objNewPres.Slides.Paste (1) ‘ ここでコピーしたスライドが新しいプレゼンテーションに貼り付けられる
‘ 初期状態の空スライドが邪魔なので削除する
‘ 新規作成されたプレゼンテーションには、通常1枚の空白スライドが含まれる
‘ 貼り付けたスライドの前にそれが存在するので、削除する
If objNewPres.Slides.Count > objSection.Count Then
objNewPres.Slides(1).Delete
End If
ここで重要なのは、`SlideRange` オブジェクトと `Paste` メソッドの挙動です。
`SlideRange` は複数のスライドをまとめて扱うためのオブジェクトで、`Range(Array(…))` で作成します。
`Paste (1)` は、新しいプレゼンテーションの1番目のスライドの「後」に貼り付けることを意味します。そのため、初期状態で存在する空のスライドを後で削除する処理が必要になります。オブジェクトの振る舞いを理解することが、効果的なVBAコードを書く上で不可欠です。
ステップ5: 新しいプレゼンテーションを保存する
作成した新しいプレゼンテーションを、適切な名前と場所に保存します。
Dim saveFolderPath As String ‘ 保存先のフォルダパス
Dim newFileName As String ‘ 新しいファイル名
Dim cleanedSectionName As String ‘ セクション名から不正な文字を除去した名前
‘ 保存先のフォルダパスを指定
‘ ActivePresentation.Path は、元のプレゼンテーションがあるフォルダパス
saveFolderPath = objSrcPres.Path & “\”
‘ セクション名をファイル名にする
cleanedSectionName = objSection.Name
‘ ファイル名に使用できない文字を除去（例: \ / : ? ” < > |）
cleanedSectionName = Replace(cleanedSectionName, “\”, “”)
cleanedSectionName = Replace(cleanedSectionName, “/”, “”)
cleanedSectionName = Replace(cleanedSectionName, “:”, “”)
cleanedSectionName = Replace(cleanedSectionName, “”, “”)
cleanedSectionName = Replace(cleanedSectionName, “?”, “”)
cleanedSectionName = Replace(cleanedSectionName, Chr(34), “”) ‘ ”
cleanedSectionName = Replace(cleanedSectionName, “<", "")
cleanedSectionName = Replace(cleanedSectionName, ">“, “”)
cleanedSectionName = Replace(cleanedSectionName, “|”, “”)
newFileName = saveFolderPath & cleanedSectionName & “.pptx”
‘ 新しいプレゼンテーションを保存する
objNewPres.SaveAs newFileName, ppSaveAsPresentation
ファイルパスの構築と、ファイル名に使用できない文字の除去は非常に重要です。特にセクション名には、パスに使えない記号が含まれている可能性があるため、`Replace` 関数で適切に処理しましょう。
`ppSaveAsPresentation` は、`.pptx` 形式で保存するための定数です。他にもPDF (`ppSaveAsPDF`) や画像 (`ppSaveAsJPG`) など、様々な形式で保存できます。この辺りは応用が効きますね！
ステップ6: 新しいプレゼンテーションを閉じる（とオブジェクトの解放）
最後に、作成して保存した新しいプレゼンテーションを閉じ、使用したオブジェクトを解放します。
‘ 変更を保存して閉じる（SaveAsで保存済みなので変更はなし）
objNewPres.Close
‘ オブジェクトを解放する（メモリ管理上非常に重要）
Set objNewPres = Nothing
`objNewPres.Close` でファイルを閉じます。そして、最も重要なのが `Set objNewPres = Nothing` です。
これは、変数 `objNewPres` が参照していたオブジェクト（新しいプレゼンテーション）との接続を断ち切り、メモリを解放する指示です。これを怠ると、VBAが終了してもPowerPointのプロセスがメモリ上に残り続けたり、予期せぬエラーの原因になったりします。
伝説のチーフアーキテクトとしては、この「オブジェクトの解放」は必ず皆さんにお伝えしたい本質的な知識です。巨大なファイルを扱ったり、多くのオブジェクトを生成したりする際には、メモリリークやパフォーマンス低下に直結しますからね。
—
💻 全体コードと詳細解説
ここまでのステップを統合した、完成版のコードです。
VBAエディタの標準モジュールに、このコードをコピー＆ペーストして使ってみてください。
Option Explicit ‘ 変数宣言を強制するおまじない
Sub SplitPresentationBySections()
‘ — 1. 変数の宣言 —
‘ オブジェクト変数を宣言する際は、Setキーワードを使って代入する必要があります。
Dim objSrcPres As Presentation ‘ 元のプレゼンテーション
Dim objNewPres As Presentation ‘ 新しく作成するプレゼンテーション
Dim objSection As Section ‘ 各セクションを処理するための変数
Dim objSlideRange As SlideRange ‘ コピーするスライド範囲を格納する変数
‘ 通常変数の宣言
Dim i As Long ‘ セクションのループ用カウンター
Dim j As Long ‘ スライドインデックス配列のループ用カウンター
Dim firstSlideIndex As Long ‘ セクションの開始スライドインデックス
Dim lastSlideIndex As Long ‘ セクションの終了スライドインデックス
Dim slideIndices() As Long ‘ スライド範囲指定用のインデックス配列
Dim saveFolderPath As String ‘ 保存先のフォルダパス
Dim newFileName As String ‘ 新しいファイル名
Dim cleanedSectionName As String ‘ ファイル名に使用できない文字を除去したセクション名
‘ — 2. エラーハンドリングの開始 —
‘ エラーが発生した際に、処理を中断せず指定のラベルへジャンプさせます。
‘ これにより、マクロが途中で止まってもオブジェクトの解放処理を実行できます。
On Error GoTo ErrorHandler
‘ — 3. 処理開始のメッセージ —
MsgBox “セクションごとのプレゼンテーション分割処理を開始します。”, vbInformation
‘ — 4. アクティブなプレゼンテーションの取得 —
‘ 現在PowerPointで開いているプレゼンテーションをobjSrcPresにセットします。
Set objSrcPres = Application.ActivePresentation
‘ — 5. セクションが存在するか確認 —
If objSrcPres.Sections.Count = 0 Then
MsgBox “このプレゼンテーションにはセクションがありません。処理を中止します。”, vbExclamation
GoTo CleanUp ‘ エラーハンドリングのクリーンアップへジャンプ
End If
‘ — 6. 保存先のフォルダパスを設定 —
‘ 元のプレゼンテーションと同じフォルダに保存します。
‘ 最後に”\”がない場合は追加します。
saveFolderPath = objSrcPres.Path
If Right(saveFolderPath, 1) <> “\” Then
saveFolderPath = saveFolderPath & “\”
End If
‘ — 7. 各セクションをループ処理 —
‘ プレゼンテーション内のすべてのセクションを順番に処理します。
For i = 1 To objSrcPres.Sections.Count
Set objSection = objSrcPres.Sections.Item(i) ‘ i番目のセクションを取得
‘ 処理中のセクション名を表示し、ユーザーに進行状況を伝えます。
Application.StatusBar = “処理中: ” & objSection.Name & “…”
‘ — 8. 新しいプレゼンテーションを作成 —
‘ 新しい空のプレゼンテーションをバックグラウンドで作成します。
Set objNewPres = Application.Presentations.Add(WithWindow:=msoFalse)
‘ — 9. セクション内のスライド範囲を特定し、コピー —
firstSlideIndex = objSection.FirstSlideIndex
lastSlideIndex = firstSlideIndex + objSection.Count – 1
‘ SlideRangeオブジェクトを作成するために、スライドインデックスの配列を動的に作成します。
ReDim slideIndices(objSection.Count – 1)
For j = 0 To objSection.Count – 1
slideIndices(j) = firstSlideIndex + j
Next j
‘ 元のプレゼンテーションから指定されたスライド範囲をコピーします。
Set objSlideRange = objSrcPres.Slides.Range(slideIndices)
objSlideRange.Copy
‘ — 10. 新しいプレゼンテーションにスライドを貼り付け —
‘ コピーしたスライドを新しいプレゼンテーションの先頭に貼り付けます。
objNewPres.Slides.Paste (1)
‘ 新規作成されたプレゼンテーションには通常1枚の空スライドが含まれるため、これを削除します。
‘ 貼り付けたスライドの前にデフォルトの空スライドが存在するため、それを削除
If objNewPres.Slides.Count > objSection.Count Then
objNewPres.Slides(1).Delete
End If
‘ — 11. 新しいプレゼンテーションを保存 —
‘ セクション名をファイル名として、不正な文字を除去した上で保存します。
cleanedSectionName = objSection.Name
‘ ファイル名に使用できない文字を半角スペースに置換（または除去）
cleanedSectionName = Replace(cleanedSectionName, “\”, ” “)
cleanedSectionName = Replace(cleanedSectionName, “/”, ” “)
cleanedSectionName = Replace(cleanedSectionName, “:”, ” “)
cleanedSectionName = Replace(cleanedSectionName, “”, ” “)
cleanedSectionName = Replace(cleanedSectionName, “?”, ” “)
cleanedSectionName = Replace(cleanedSectionName, Chr(34), ” “) ‘ ”
cleanedSectionName = Replace(cleanedSectionName, “<", " ")
cleanedSectionName = Replace(cleanedSectionName, ">“, ” “)
cleanedSectionName = Replace(cleanedSectionName, “|”, ” “)
‘ 不要な連続スペースや前後のスペースを削除
cleanedSectionName = Trim(Replace(Replace(cleanedSectionName, ” “, ” “), ” “, ” “))
‘ もしセクション名が空になった場合（記号しかなかった場合など）の対策
If cleanedSectionName = “” Then
cleanedSectionName = “無題セクション_” & i
End If
newFileName = saveFolderPath & cleanedSectionName & “.pptx”
‘ 重複ファイル名対策 (ファイルが存在すれば連番を付与)
Dim fileCounter As Long
fileCounter = 0
Dim tempFileName As String
tempFileName = newFileName
Do While Dir(tempFileName) <> “”
fileCounter = fileCounter + 1
tempFileName = saveFolderPath & cleanedSectionName & “_” & fileCounter & “.pptx”
Loop
newFileName = tempFileName
objNewPres.SaveAs newFileName, ppSaveAsPresentation
‘ — 12. 新しいプレゼンテーションを閉じる —
‘ メモリを解放するため、保存後にプレゼンテーションを閉じます。
objNewPres.Close
‘ — 13. オブジェクトの解放 (新しいプレゼンテーション) —
‘ 次のループのために、objNewPresを解放します。
Set objNewPres = Nothing
Next i ‘ 次のセクションへ
‘ — 14. 処理完了のメッセージ —
MsgBox “セクションごとのプレゼンテーション分割処理が完了しました。”, vbInformation
CleanUp:
‘ — 15. オブジェクトの解放 (元のプレゼンテーション) —
‘ マクロ終了時に使用したオブジェクトをすべて解放し、メモリリークを防ぎます。
Set objSrcPres = Nothing
Set objSection = Nothing
Set objSlideRange = Nothing
Application.StatusBar = False ‘ ステータスバーをリセット
Exit Sub ‘ 正常終了時はエラーハンドラへ行かないようにする
ErrorHandler:
‘ — 16. エラー発生時の処理 —
‘ エラーメッセージを表示し、どの行でエラーが発生したかを伝えます。
MsgBox “エラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description & vbCrLf & _
“発生モジュール: SplitPresentationBySections” & vbCrLf & _
“発生行: ” & Erl & ” (※行番号は正確ではない場合があります)”, vbCritical
Resume CleanUp ‘ エラー発生時もクリーンアップ処理へジャンプ
End Sub
コード解説のポイント
- `Application.StatusBar`: 処理中にPowerPointのステータスバーにメッセージを表示することで、ユーザーにマクロが動いていることを伝えます。地味ですが、ユーザーエクスペリエンスを向上させる良いテクニックです。
- ファイル名に使えない文字の除去: セクション名がそのままファイル名になるため、ファイルシステムが許可しない文字（`\ / : ? ” < > |`など）を `Replace` 関数で除去しています。これ、実務では本当に重要です。
- 重複ファイル名対策: `Do While Dir(tempFileName) <> “”` のループで、もし同名のファイルが既に存在したら、`_1`, `_2` のように連番を付与して保存するようにしています。これで、誤って既存ファイルを上書きしてしまう事故を防げます。
- エラーハンドリング: `On Error GoTo ErrorHandler` でエラー発生時の処理を定義しています。万が一エラーが発生しても、VBAが異常終了せず、クリーンアップ処理（オブジェクトの解放など）を実行してからメッセージを表示できます。堅牢なマクロには必須の要素です。
—
🚀 パフォーマンスとオブジェクトライフサイクルの深い話
ここで、伝説のチーフアーキテクトとしての私の知見を少しだけ共有しましょう。初学者向けの記事ですが、本質的な部分に触れることで、皆さんの理解を一段深くしたいと考えています。
`Set obj = Nothing` の真の意味
先ほども触れましたが、`Set obj = Nothing` は単なる「変数の初期化」ではありません。
VBAがPowerPointのオブジェクト（プレゼンテーション、セクション、スライドなど）を操作する際、メモリ上にそれらの「インスタンス」を生成し、そのインスタンスへの「参照」を変数に保持します。
`Set obj = Nothing` は、その参照を断ち切る行為です。
これにより、VBAのガベージコレクタ（自動メモリ解放機構）が、参照されなくなったオブジェクトのメモリを解放できるようになります。
特に、今回のようにループ内で何度も新しいプレゼンテーションを作成・保存・閉じる操作を行う場合、`Set objNewPres = Nothing` をループの最後に記述しないと、生成されたプレゼンテーションオブジェクトがメモリ上に残り続け、処理速度の低下や最悪の場合PowerPointのクラッシュにつながる可能性があります。
これは、プログラムの「メモリ管理」という、非常に重要な概念の一部です。
想像してみてください。何十ものプレゼンテーションを短時間で開閉するたびに、その痕跡がメモリに残っていく…まるで、使い終わったお皿を洗わずに放置し続けるようなものです。やがて台所は使えなくなってしまいますよね。
ファイルI/Oとパフォーマンス
今回のマクロは、ファイルの「作成」「保存」「閉じる」という、ディスクI/O（入出力）を伴う操作を多用します。ディスクI/Oは、CPU処理に比べて非常に時間がかかる処理です。
そのため、以下の点に注意することが、高速化と安定化に繋がります。
- 無駄な保存を避ける: 今回は一度 `SaveAs` で保存しているので、`Close` の際に `ppSaveDoNotSaveChanges` を指定しても良いですが、もし途中で変更を加える場合は `Save` メソッドで明示的に保存することを検討します。
- 画面更新の抑制: 今回は `WithWindow:=msoFalse` を使って新規プレゼンテーションのウィンドウ表示を抑制しましたが、もし画面上で大量のオブジェクト操作を行う場合は、`Application.ScreenUpdating = False` を処理の開始時に、`Application.ScreenUpdating = True` を終了時に記述することで、画面描画のオーバーヘッドを減らし、処理速度を向上させることができます。
これらの知識は、PowerPoint VBAだけでなく、他のOffice VBAや、さらに本格的なプログラミング言語を学ぶ上でも非常に役立つ、本質的な考え方です。
「見えない裏側で何が起こっているのか」を想像する力は、優れたエンジニアの必須スキルですよ。
—
⚠️ よくあるエラーとトラブルシューティング
初学者が陥りやすいエラーとその対処法も少しご紹介しておきます。
- 「実行時エラー ‘424’: オブジェクトが必要です。」:
`Set` キーワードを忘れてオブジェクト変数に代入しようとした場合や、`Nothing` になっているオブジェクトを使おうとした場合に発生します。
例: `objSrcPres = Application.ActivePresentation` (`Set` がない)
例: `Set objNewPres = Nothing` の後に `objNewPres.Close` を実行しようとした
- 「実行時エラー ’76’: パスが見つかりません。」:
`saveFolderPath` の指定が間違っているか、存在しないパスを指定した場合に発生します。
ファイルパスのスペルミスや、ドライブレターの確認をしましょう。
- 「実行時エラー ‘5’: プロシージャの呼び出し、または引数が不正です。」:
`Range` メソッドなどに渡す引数が不正な場合や、存在しないインデックス番号を指定した場合に発生しやすいです。
特にスライドインデックスは1から始まること、配列の添え字は0から始まることに注意してください。
- ファイル名に使えない文字:
セクション名に `\` や `/` などの記号が含まれていると、`SaveAs` でエラーになります。今回のコードでは `Replace` で対処していますが、もし別の形でエラーが出た場合は、ファイル名に使えない文字が残っていないか確認しましょう。
エラーが発生したら、落ち着いてエラーメッセージを読み、VBAエディタでエラーが発生した行を確認してください。`Debug.Print` を使って変数の内容をイミディエイトウィンドウに出力することも、デバッグの強力な味方になります。
—
🌟 まとめ：PowerPoint VBAの扉は開かれた！
皆さん、今日の記事はいかがでしたか？
既存のプレゼンテーションをセクションごとに分割し、個別のPPTXファイルとして保存するマクロを通じて、PowerPoint VBAの基本から、オブジェクトのライフサイクル、エラーハンドリングといった本質的な部分まで、幅広く学んでいただけたかと思います。
このマクロ一つを理解し、自分の手で動かせたなら、もうPowerPoint VBAの基本はバッチリです！
これからは、皆さんの目の前にある退屈なルーティンワークが、VBAの力で次々と自動化されていくことでしょう。
今日の学びを足がかりに、今度はユーザーフォームを作って操作画面をつけたり、イベントプログラミングで特定の操作をトリガーにマクロを動かしたりと、さらに Power Point VBA の深い世界を探求してみてください。
未来の業務自動化エンジニアとしての皆さんの活躍を、心から応援しています！
—
