PowerPoint VBAで表の塗りつぶしを簡単に！初心者でもできる実践マクロ解説

PowerPointで作成したプレゼンテーションの表に色を付けたいけれど、手作業では面倒だし、VBA（マクロ）を使うのは難しそう…と感じていませんか？でも安心してください。今回は、初心者の方でもわかりやすく、PowerPoint VBAを使って表のセルに色を塗る方法を、実際の手順とともに解説します。

なぜVBAで表を塗りつぶすのか？
VBAで表のセルを塗りつぶす基本のコード
色を条件で塗り分ける応用例
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

なぜVBAで表を塗りつぶすのか？

PowerPointのイメージ

「手作業で色を付ければいいじゃないか」と思うかもしれませんが、大量の表や複数のスライドにわたる作業では、VBAを使うことで作業効率が格段にアップします。例えば、毎回同じ色を使う場合や、特定の条件に基づいて色を変えたい場合など、VBAを活用することで時間と手間を大幅に削減できます。

VBAで表のセルを塗りつぶす基本のコード

まずは、PowerPoint VBAで表のセルに色を塗る基本的なコードをご紹介します。

Sub 塗りつぶし_セル()

Dim slide As slide

Dim shape As shape

Dim table As table

Dim cell As cell
 ' アクティブなスライドを取得

Set slide = ActivePresentation.Slides(1)

' スライド内の図形をループ For Each shape In slide.Shapes ' 図形がテーブルの場合 If shape.HasTable Then Set table = shape.Table ' テーブルの各セルをループ For Each cell In table.Range.Cells ' セルの塗りつぶし色を設定（例RGB(255, 255, 0)は黄色） cell.Shape.Fill.ForeColor.RGB = RGB(255, 255, 0) Next cell End If Next shape End Sub

このコードを実行すると、指定したスライド内のすべてのテーブルのセルが黄色に塗りつぶされます。

色を条件で塗り分ける応用例

次に、セルの内容に応じて色を変える応用例をご紹介します。例えば、セルの値が「重要」の場合に赤色に、そうでない場合に緑色に塗り分けるコードは以下の通りです。

Sub 塗りつぶし_条件付き()

Dim slide As slide

Dim shape As shape

Dim table As table

Dim cell As cell
 ' アクティブなスライドを取得

Set slide = ActivePresentation.Slides(1)

' スライド内の図形をループ For Each shape In slide.Shapes ' 図形がテーブルの場合 If shape.HasTable Then Set table = shape.Table ' テーブルの各セルをループ For Each cell In table.Range.Cells ' セルのテキストが「重要」の場合 If cell.Shape.TextFrame.HasText Then If cell.Shape.TextFrame.TextRange.Text = "重要" Then ' セルの塗りつぶし色を赤に設定 cell.Shape.Fill.ForeColor.RGB = RGB(255, 0, 0) Else ' セルの塗りつぶし色を緑に設定 cell.Shape.Fill.ForeColor.RGB = RGB(0, 255, 0) End If End If Next cell End If Next shape End Sub

このコードを実行すると、テーブル内のセルの内容が「重要」の場合に赤色、それ以外の場合に緑色に塗りつぶされます。

よくある質問や疑問

Q1: VBAを使うにはどうすればいいですか？

PowerPointでVBAを使用するには、まず「開発」タブを表示する必要があります。リボンの上で右クリックし、「リボンのユーザー設定」を選択。「開発」にチェックを入れてOKをクリックすると、「開発」タブが表示されます。そこから「Visual Basic」を選択してVBAエディタを開き、コードを入力・実行できます。