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
コメント