ThemeColorプロパティ
セルにテーマカラーを設定するにはThemeColorプロパティを使用します。
ページレイアウトのテーマと連動して背景色が変わるので、後からテーマを変更しても統一感があります。
また、TintAndShadeプロパティと組み合わせることで明度の変更も可能です。
構文
object.ThemeColor = 設定値
XlThemeColorの定数 | ||
---|---|---|
名前 | 値 | 説明 |
xlThemeColorDark1 | 1 | ダーク1 |
xlThemeColorLight1 | 2 | ライト1 |
xlThemeColorDark2 | 3 | ダーク2 |
xlThemeColorLight2 | 4 | ライト2 |
xlThemeColorAccent1 | 5 | アクセント1 |
xlThemeColorAccent2 | 6 | アクセント2 |
xlThemeColorAccent3 | 7 | アクセント3 |
xlThemeColorAccent4 | 8 | アクセント4 |
xlThemeColorAccent5 | 9 | アクセント5 |
xlThemeColorAccent6 | 10 | アクセント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
コメント