Excel VBAでPowerPointの文字列を一括置換する方法

PowerPointのプレゼンテーション資料を作成していると、同じような表現やフレーズが繰り返し登場することがあります。これらを手作業で修正するのは時間がかかり、ミスも生じやすいものです。そんなときに便利なのが、Excel VBAを使ってPowerPointの文字列を一括で置換する方法です。

本記事では、初心者の方でも理解しやすいように、Excel VBAを活用してPowerPointのテキストを効率的に置換する方法をご紹介します。実際のコード例や注意点も交えて解説しますので、ぜひ最後までご覧ください。

Excel VBAでPowerPointの文字列を一括置換する基本の流れ
実際の利用シーンと応用例
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

Excel VBAでPowerPointの文字列を一括置換する基本の流れ

PowerPointのイメージ

まずは、Excel VBAからPowerPointを操作して、特定の文字列を一括で置換する基本的な流れを押さえましょう。

PowerPointを開くExcel VBAからPowerPointを起動し、対象のプレゼンテーションを開きます。
スライドと図形をループ処理プレゼンテーション内の各スライドと、その中の図形を順番に処理します。
テキストの置換各図形内のテキストを確認し、指定した文字列があれば、それを新しい文字列に置換します。
保存と終了変更が完了したら、プレゼンテーションを保存し、PowerPointを終了します。

この流れを実現するためのVBAコードは以下の通りです。

Sub ReplaceTextInPowerPoint()
    Dim pptApp As Object
    Dim pptPres As Object
    Dim slide As Object
    Dim shape As Object
    Dim findText As String
    Dim replaceText As String

    ' Excelのセルから置換前と置換後の文字列を取得
    findText = ThisWorkbook.Sheets("Sheet1").Range("").Value
    replaceText = ThisWorkbook.Sheets("Sheet1").Range("B1").Value

    ' PowerPointを起動
    Set pptApp = CreateObject("PowerPoint.Application")
    pptApp.Visible = True

    ' プレゼンテーションを開く
    Set pptPres = pptApp.Presentations.Open("C:\path\to\your\presentation.pptx")

    ' スライドごとに処理
    For Each slide In pptPres.Slides
        ' 図形ごとに処理
        For Each shape In slide.Shapes
            If shape.HasTextFrame Then
                ' テキストの置換
                shape.TextFrame.TextRange.Replace FindWhat:=findText, ReplaceWhat:=replaceText
            End If
        Next shape
    Next slide

    ' 保存して終了
    pptPres.Save
    pptPres.Close
    pptApp.Quit
End Sub

このコードでは、Excelの「Sheet1」のセルに置換前の文字列、B1セルに置換後の文字列を入力し、指定したPowerPointファイル内のテキストを一括で置換します。