「PowerPointのスライドで、フォントを一括で変更したいけど、どうすればいいのか分からない…」そんなお悩みをお持ちの方へ、初心者でもできる方法をわかりやすくご紹介します。
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)」とします。
まとめ
PowerPointでVBAを使ってフォントを一括変更する方法をご紹介しました。最初は難しそうに感じるかもしれませんが、手順を追っていけば誰でもできるようになります。資料作成の効率化にぜひ役立ててください。
他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。
コメント