セルにテーマカラーを設定する【ThemeColorプロパティ】【ExcelVBA】

ThemeColorプロパティ

セルにテーマカラーを設定するにはThemeColorプロパティを使用します。
ページレイアウトのテーマと連動して背景色が変わるので、後からテーマを変更しても統一感があります。

また、TintAndShadeプロパティと組み合わせることで明度の変更も可能です。

構文
object.ThemeColor = 設定値

例）Microsoft365 でテーマ:「Office」を選択した場合

表にテーマカラーを使用するサンプルコード

Public Sub Sample()
 '簡単な表を作る
  Range("C2:D2") = "項目"
  Range("C3:D4") = "データ"
  Range("B2:D4").Borders.LineStyle = xlContinuous
 
 '背景色を設定する
  With Range("B2").CurrentRegion
   .Interior.ThemeColor = 8      'テーマカラーを設定
   .Interior.TintAndShade = 0.6  '明度を設定
   'データ部分の背景をクリア
   .Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).Interior.ColorIndex = 0
  End With
 
End Sub

関連記事

• セルの背景色を明るくする/暗くする【Interior.TintAndShadeプロパティ】