PowerPointでVBAを使ってフォントを一括変更する方法

「PowerPointのスライドで、フォントを一括で変更したいけど、どうすればいいのか分からない…」そんなお悩みをお持ちの方へ、初心者でもできる方法をわかりやすくご紹介します。

PowerPointでフォントを一括変更するVBAとは？
初心者でもできる！VBAでフォントを変更する手順
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

PowerPointでフォントを一括変更するVBAとは？

PowerPointのイメージ

PowerPointのスライドに使われているフォントを一括で変更するには、VBA（Visual Basic for Applications）という機能を使います。VBAは、Microsoft Office製品に組み込まれているプログラミング言語で、普段の操作を自動化することができます。

例えば、スライドのタイトルやテキストボックス、表、グラフなど、すべてのフォントを一度に変更したいときに便利です。

初心者でもできる！VBAでフォントを変更する手順

PowerPointでVBAを使えるようにする

まず、PowerPointでVBAを使えるようにするために、「開発」タブを表示させます。

PowerPointを開き、左上の「ファイル」をクリックします。
「オプション」を選択し、「リボンのユーザー設定」をクリックします。
右側のリストから「開発」にチェックを入れ、「OK」をクリックします。

これで、リボンに「開発」タブが表示されます。

VBAエディターを開く

次に、VBAエディターを開きます。

リボンの「開発」タブをクリックし、「Visual Basic」を選択します。

これで、VBAエディターが開きます。

新しいモジュールを作成する

VBAエディターで、フォントを変更するためのコードを入力する場所を作ります。

VBAエディターで、「挿入」→「標準モジュール」を選択します。

これで、新しいモジュールが作成されます。

フォント変更のコードを入力する

以下のコードをコピーして、新しく作成したモジュールに貼り付けます。

vba

Sub フォントをメイリオに変更()

    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

                    With shp.TextFrame.TextRange.Font

                        .NameFarEast = "メイリオ"

                    End With

                End If

            End If

        Next shp

    Next sld

End Sub

このコードは、プレゼンテーション内のすべてのスライドとその中のすべての図形を調べ、テキストが含まれている場合に、そのフォントを「メイリオ」に変更するものです。

マクロを実行する

コードを入力したら、実際にマクロを実行してみましょう。

VBAエディターを閉じ、PowerPointに戻ります。
リボンの「開発」タブをクリックし、「マクロ」を選択します。
表示されたダイアログで、「フォントをメイリオに変更」を選択し、「実行」をクリックします。

これで、プレゼンテーション内のすべてのフォントが「メイリオ」に変更されます。

よくある質問や疑問

Q1: フォントを他のものに変更したい場合はどうすればいいですか？

コード内の「.NameFarEast = “メイリオ”」の部分を、変更したいフォント名に書き換えてください。例えば、「.NameFarEast = “MS ゴシック”」とすれば、MS ゴシックに変更されます。

Q2: 表やグラフのフォントも変更できますか？

はい、できます。上記のコードでは、スライド内のすべての図形（テキストフレームを持つもの）を対象にしていますので、表やグラフも含まれます。

Q3: 特定のスライドだけのフォントを変更したい場合はどうすればいいですか？

コード内の「For Each sld In ActivePresentation.Slides」の部分を、対象のスライド番号を指定するように変更します。例えば、1枚目のスライドだけを対象にする場合は、「For Each sld In ActivePresentation.Slides(1)」とします。