関数・メソッド

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

ThemeColorプロパティ

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

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

構文
object.ThemeColor = 設定値

XlThemeColorの定数
名前説明
xlThemeColorDark11ダーク1
xlThemeColorLight12ライト1
xlThemeColorDark23ダーク2
xlThemeColorLight24ライト2
xlThemeColorAccent15アクセント1
xlThemeColorAccent26アクセント2
xlThemeColorAccent37アクセント3
xlThemeColorAccent48アクセント4
xlThemeColorAccent59アクセント5
xlThemeColorAccent610アクセント6

例)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


関連記事

コメント

タイトルとURLをコピーしました