PowerPoint VBAの「For Each」ループを使ってみよう！初心者でもわかる基本の使い方

2025.10.092026.01.27

PowerPointでのプレゼンテーション作成がもっと楽になるマクロ（自動化プログラム）を作りたいと思ったことはありませんか？でも、「VBAって難しそう」「プログラミングなんてできない」と感じている方も多いはず。そんなあなたに、まずは「For Each」ループを使った簡単なマクロの作り方をご紹介します。

For Eachループって何？
実際にやってみよう！スライド内のフォントを変更するマクロ
For EachとForの違いは？
よくある質問や疑問
まとめ

For Eachループって何？

PowerPointのイメージ

「For Each」は、VBAでよく使われる繰り返し処理の一つです。例えば、スライドの中にあるすべての図形（テキストボックスや画像など）に同じ操作をしたいときに便利です。

こんなときに使います

ここがポイント！

スライド内のすべての図形のフォントを変更したい
特定の条件に合う図形を探して操作したい
複数のスライドにわたって同じ処理を繰り返したい

実際にやってみよう！スライド内のフォントを変更するマクロ

まずは、PowerPointを開いて、以下の手順でマクロを作成してみましょう。

PowerPointを開き、Alt + F11キーを押してVBAエディタを開きます。
「挿入」→「標準モジュール」を選択して、新しいモジュールを作成します。
以下のコードをコピーして、モジュールに貼り付けます。

vba

Sub ChangeFontForAllShapes()

    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 shp.TextFrame.HasText Then

                    shp.TextFrame.TextRange.Font.Name = "Meiryo UI"

                    shp.TextFrame.TextRange.Font.Size = 18

                End If

            End If

        Next shp

    Next sld

End Sub

F5キーを押してマクロを実行します。
すべてのスライドの図形内のテキストのフォントが「Meiryo UI」に、サイズが18に変更されます。

For EachとForの違いは？

「For Each」と「For」は、どちらも繰り返し処理を行う構文ですが、使い方に違いがあります。

例えば、スライドの数が決まっている場合は「For」を使い、スライド内のすべての図形に対して操作を行いたい場合は「For Each」を使います。

よくある質問や疑問

Q1: For EachとForはどちらを使うべきですか？

一般的には、コレクション（複数のオブジェクト）を一つずつ処理する場合は「For Each」を使います。例えば、スライド内のすべての図形に対して操作を行いたい場合などです。

Q2: For Eachを使うときの注意点はありますか？

「For Each」はコレクションの順番に依存しないため、順番通りに処理を行いたい場合は「For」を使う方が適しています。

Q3: VBAのコードがうまく動かないときはどうすればいいですか？

コードのエラーメッセージを確認し、どの行でエラーが発生しているかを特定します。また、変数の宣言やオブジェクトの存在確認など、基本的な部分を再確認すると良いでしょう。

まとめ

PowerPointでの作業を効率化するために、VBAを使ったマクロはとても便利です。特に「For Each」ループを使うことで、スライド内のすべての図形に対して同じ操作を簡単に行うことができます。最初は難しく感じるかもしれませんが、少しずつ覚えていけば、作業の効率が格段にアップします。

他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。