PowerPoint VBAで簡単に文字列を一括置換する方法

PowerPointのプレゼンテーションで、同じ言葉を何度も手動で修正するのは面倒ですよね。特に、スライドが多くなると、その手間は膨大になります。そんなときに便利なのが、VBA（Visual Basic for Applications）を使った「文字列の一括置換」です。今回は、初心者の方でもわかりやすいように、親しみやすい言葉で解説します。

VBAって何？
文字列を一括置換するVBAコードの基本
注意点と補足
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

VBAって何？

PowerPointのイメージ

VBAは、Microsoft Office製品（ExcelやPowerPointなど）に組み込まれているプログラミング言語です。これを使うことで、普段の操作を自動化したり、複雑な作業を簡単にこなすことができます。

例えば、PowerPointで「株式会社ABC」を「株式会社XYZ」に一括で変更したいとき、手動で一つ一つ修正するのは大変ですが、VBAを使えば一瞬で終わります。

文字列を一括置換するVBAコードの基本

まずは、PowerPointのVBAエディターを開きます。方法は以下の通りです

PowerPointを開きます。
「Alt」キーと「F11」キーを同時に押して、VBAエディターを起動します。
「挿入」メニューから「標準モジュール」を選択します。

次に、以下のコードをコピーして貼り付けてください

vba

Sub ReplaceText()

    Dim oSld As Slide

    Dim oShp As Shape

    Dim oTxtRng As TextRange

    Dim oTmpRng As TextRange
    ' 1枚目のスライドを対象にする

    Set oSld = Application.ActivePresentation.Slides(1)

' スライド内のすべての図形をチェック For Each oShp In oSld.Shapes ' 図形にテキストが含まれている場合 If oShp.HasTextFrame Then If oShp.TextFrame.HasText Then ' テキスト範囲を取得 Set oTxtRng = oShp.TextFrame.TextRange ' "ABC"を"XYZ"に置換 Set oTmpRng = oTxtRng.Replace(FindWhat:="ABC", ReplaceWhat:="XYZ", WholeWords:=True) ' 置換があった場合、次の位置から再度置換 Do While Not oTmpRng Is Nothing Set oTxtRng = oTxtRng.Characters(oTmpRng.Start + oTmpRng.Length, oTxtRng.Length) Set oTmpRng = oTxtRng.Replace(FindWhat:="ABC", ReplaceWhat:="XYZ", WholeWords:=True) Loop End If End If Next oShp End Sub

このコードは、1枚目のスライド内のすべての図形をチェックし、「ABC」という文字列を「XYZ」に置き換えます。

注意点と補足

WholeWords:=Trueこのオプションを指定すると、部分一致ではなく、完全一致の単語のみを対象に置換します。例えば、「ABC123」は置換されません。
Do While Not oTmpRng Is Nothingこのループは、置換後に残ったテキスト範囲がなくなるまで繰り返し処理を行います。
スライド番号の指定上記のコードでは1枚目のスライドを対象にしていますが、他のスライドを対象にする場合は、Set oSld = Application.ActivePresentation.Slides(スライド番号)の部分を変更してください。

よくある質問や疑問

Q1: すべてのスライドで置換したい場合はどうすればいいですか？

すべてのスライドを対象にする場合、以下のようにコードを変更します

vba

For Each oSld In Application.ActivePresentation.Slides

    ' 以下、置換処理

Next oSld

Q2: 表やグラフ内の文字も置換できますか？

はい、可能です。表の場合は、以下のようにセルごとにテキストを取得して置換します

vba

For Each oShp In oSld.Shapes

    If oShp.HasTable Then

        For i = 1 To oShp.Table.Rows.Count

            For j = 1 To oShp.Table.Columns.Count

                Set oTxtRng = oShp.Table.Rows(i).Cells(j).Shape.TextFrame.TextRange

                Set oTmpRng = oTxtRng.Replace(FindWhat:="ABC", ReplaceWhat:="XYZ", WholeWords:=True)

                ' 以下、置換処理

            Next j

        Next i

    End If

Next oShp

Q3: 他の文字列を一括で置換するにはどうすればいいですか？

複数の文字列を一括で置換する場合、以下のように配列を使って処理を行います

vba

Dim findWords As Variant

Dim replaceWords As Variant

Dim i As Integer
findWords = Array("ABC", "DEF", "GHI")

replaceWords = Array("XYZ", "JKL", "MNO")

For i = LBound(findWords) To UBound(findWords) Set oTmpRng = oTxtRng.Replace(FindWhat:=findWords(i), ReplaceWhat:=replaceWords(i), WholeWords:=True) ' 以下、置換処理 Next i