【パワポVBA】Excelに入力した文字列でパワポ内を検索するマクロ

VBA・マクロ

2023.11.132024.04.14

通常、PowerPointでは1度の検索につき1つの文字列しか検索できません。

そこで、PowerPoint VBAとExcelを連携し、複数の文字列を同時に検索できるマクロを作りました。

Excelを更新するだけで検索ワードの変更ができるので便利です。

この記事の目次

Excelに入力した文字列でパワポ内を検索するマクロ
1. コード
2. Excelファイルの作成
実行結果

Excelに入力した文字列でパワポ内を検索するマクロ

コード

Sub SearchTextBox()

    'Excelオブジェクトの宣言
    Dim xlApp As Object
    Dim xlBook As Object
    Dim xlSheet As Object

    'PowerPointオブジェクトの宣言
    Dim ppt As Presentation
    Dim sld As Slide
    Dim shp As Shape

    'その他の変数の宣言
    Dim i As Integer
    Dim strSearch As String

    'Excelファイルを開く
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\Users\ユーザー名\Desktop\searchword.xlsm") 'ここにExcelファイルのパスを入力してください
    Set xlSheet = xlBook.Worksheets(1)

    'PowerPointプレゼンテーションを設定
    Set ppt = ActivePresentation

    'すべてのスライドをループ
    For Each sld In ppt.Slides
        'すべてのシェイプをループ
        For Each shp In sld.Shapes
            'テキストボックスの場合
            If shp.HasTextFrame Then
                'すべての行をループ
                For i = 1 To xlSheet.Cells(xlSheet.Rows.Count, 1).End(-4162).Row
                    'Excelファイルの検索文字列を取得
                    strSearch = xlSheet.Cells(i, 1).Value
                    'テキストボックスのテキストに検索文字列が含まれているか確認
                    If InStr(shp.TextFrame.TextRange.Text, strSearch) > 0 Then
                        'メッセージボックスで通知
                        MsgBox "Found '" & strSearch & "' in slide " & sld.SlideIndex
                    End If
                Next i
            End If
        Next shp
    Next sld

    'Excelファイルを閉じる
    xlBook.Close
    Set xlSheet = Nothing
    Set xlBook = Nothing
    xlApp.Quit
    Set xlApp = Nothing
    
End Sub

「Set xlBook = xlApp.Workbooks.Open(“C:\Users\ユーザー名\Desktop\searchword.xlsm”) 」には、次で作成するExcelファイルまでのパスを入力してください。