PowerPoint VBAで文字列を含む図形を探して操作する方法

「PowerPointでVBAを使って、スライド内の特定の文字列を含む図形を見つけて操作したい」と考えているあなたへ。特にパソコンやスマホに詳しくない方でもわかりやすく、実際に使えるコードとともに解説します。

PowerPoint VBAで文字列を含む図形を探す基本的な方法
1. TextRange.Findメソッドを使う
2. InStr関数を使う
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

PowerPoint VBAで文字列を含む図形を探す基本的な方法

PowerPointのイメージ

まず、PowerPointのスライド内で特定の文字列を含む図形を探す方法をご紹介します。

TextRange.Findメソッドを使う

PowerPoint VBAには、スライド内のテキストを検索するための「TextRange.Find」メソッドがあります。このメソッドを使うと、指定した文字列を含むテキストを見つけることができます。

例えば、スライド内のすべての図形を調べて、「重要」という文字列を含むものを見つけるコードは以下のようになります。

vba

Sub FindTextInShapes()

    Dim sld As slide

    Dim shp As shape

    Dim txtRng As TextRange

    Dim foundText As TextRange

' アクティブなプレゼンテーションのすべてのスライドをループ For Each sld In ActivePresentation.Slides ' 各スライド内のすべての図形をループ For Each shp In sld.Shapes If shp.HasTextFrame Then ' 図形にテキストが含まれている場合 Set txtRng = shp.TextFrame.TextRange Set foundText = txtRng.Find("重要") ' 見つかった場合 If Not foundText Is Nothing Then MsgBox "スライド " & sld.SlideIndex & " の図形に「重要」が含まれています。" End If End If Next shp Next sld End Sub

このコードを実行すると、「重要」という文字列を含む図形があるスライド番号がメッセージボックスで表示されます。

InStr関数を使う

もう一つの方法として、「InStr」関数を使う方法があります。この関数は、指定した文字列が他の文字列の中に含まれているかを調べることができます。

以下は、スライド内のすべての図形を調べて、「重要」という文字列を含むものを見つけるコードです。

vba

Sub FindTextInShapesUsingInStr()

    Dim sld As slide

    Dim shp As shape

' アクティブなプレゼンテーションのすべてのスライドをループ For Each sld In ActivePresentation.Slides ' 各スライド内のすべての図形をループ For Each shp In sld.Shapes If shp.HasTextFrame Then ' 図形にテキストが含まれている場合 If InStr(shp.TextFrame.TextRange.Text, "重要") > 0 Then MsgBox "スライド " & sld.SlideIndex & " の図形に「重要」が含まれています。" End If End If Next shp Next sld End Sub

このコードも、先ほどと同様に「重要」という文字列を含む図形があるスライド番号をメッセージボックスで表示します。

よくある質問や疑問

Q1: VBAのコードをどこに入力すればいいですか？

PowerPointでVBAのコードを入力するには、まず「Alt + F11」を押してVBAエディタを開きます。次に、「挿入」→「モジュール」を選択し、表示されたウィンドウにコードを貼り付けてください。コードを貼り付けたら、「F5」キーを押すことで実行できます。

Q2: 特定の文字列を含む図形だけを操作するにはどうすればいいですか？

特定の文字列を含む図形だけを操作するには、先ほどご紹介したコード内で「If InStr(shp.TextFrame.TextRange.Text, “重要”) > 0 Then」の部分を使って条件を設定します。この条件を満たす図形に対して、フォントの変更や色の変更などの操作を追加することができます。