PowerPoint VBAで文字列を検索してフォントを変更する方法

PowerPointを使っていると、スライド内の特定の文字列のフォントを一括で変更したい場面が出てきますよね。例えば、プレゼンテーション中の「重要」や「注意」といったキーワードを目立たせたいときなどです。そんなときに活躍するのが、PowerPoint VBA（Visual Basic for Applications）を使ったマクロです。

今回は、初心者の方でもわかりやすいように、PowerPoint VBAを使ってスライド内の文字列を検索し、そのフォントを変更する方法をご紹介します。

PowerPoint VBAとは？
文字列を検索してフォントを変更するマクロの作成
Excelと連携して複数の文字列を検索する方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

PowerPoint VBAとは？

PowerPointのイメージ

PowerPoint VBAとは、PowerPointに組み込まれているプログラミング言語で、スライドの操作を自動化したり、複雑な作業を効率化したりするためのツールです。例えば、スライドのレイアウトを一括で変更したり、特定の文字列を検索してそのフォントを変更したりすることができます。

文字列を検索してフォントを変更するマクロの作成

まずは、PowerPoint VBAを使って、スライド内の特定の文字列を検索し、そのフォントを変更するマクロを作成してみましょう。

サンプルコード

vba

Sub 文字列を検索してフォントを変更する()

    Const FIND_TXT = "重要"

    Const FONT_NAME = "Arial Black"

    Dim sld As Slide

    Dim shp As Shape

    Dim rng As TextRange

    Dim find_rng As TextRange

For Each sld In ActivePresentation.Slides For Each shp In sld.Shapes If shp.HasTextFrame Then Set rng = shp.TextFrame.TextRange Set find_rng = rng.Find(FindWhat:=FIND_TXT) Do Until find_rng Is Nothing With find_rng .Font.Name = FONT_NAME Set find_rng = rng.Find(FindWhat:=FIND_TXT, After:=.Start + .Length - 1) End With Loop End If Next Next End Sub

このマクロは、プレゼンテーション内のすべてのスライドを順番にチェックし、「重要」という文字列を見つけたら、そのフォントを「Arial Black」に変更します。

Excelと連携して複数の文字列を検索する方法

複数の文字列を一度に検索してフォントを変更したい場合、ExcelとPowerPoint VBAを連携させる方法があります。Excelに検索したい文字列をリストとして入力し、そのリストを元にPowerPoint内の文字列を検索していきます。

サンプルコード

vba

Sub Excelから検索文字列を取得してフォントを変更する()

    Dim xlApp As Object

    Dim xlBook As Object

    Dim xlSheet As Object

    Dim ppt As Presentation

    Dim sld As Slide

    Dim shp As Shape

    Dim i As Integer

    Dim strSearch As String
    Set xlApp = CreateObject("Excel.Application")

    Set xlBook = xlApp.Workbooks.Open("C:\path\to\your\excel\file.xlsx")

    Set xlSheet = xlBook.Worksheets(1)

    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

                    strSearch = xlSheet.Cells(i, 1).Value

                    If InStr(shp.TextFrame.TextRange.Text, strSearch) > 0 Then

                        shp.TextFrame.TextRange.Font.Name = "Arial Black"

                    End If

                Next i

            End If

        Next shp

    Next sld