テーマの色を指定するマクロ【エクセルVBA】

2024年7月26日

マクロを使って、’文字の色にテーマの色を指定することができます。

ThemeColorプロパティで、テーマの色を指定します。
TintAndShadeプロパティで色の明るさを指定することができます。

色の明るさは「1」から「－1」の範囲で指定します。「1」が最も明るく「－1」が最も暗くなります。

テーマの色は「フォント」→「フォントの色」から表示することができます。

サンプルデータ入力用のコード

次のコードを実行すると、データが入力できます。罫線やセル幅は調整してください。

Sub データ5531_d()

　　Range("A1") = "売上表"
　　Range("A3") = "日付"
　　Range("B3") = "分類"
　　Range("C3") = "品名"
　　Range("D3") = "単価"
　　Range("E3") = "個数"
　　Range("F3") = "合計"

　　Range("A4") = "2021/10/2"
　　Range("B4") = "C2"
　　Range("C4") = "メモ帳"
　　Range("D4") = 3500
　　Range("E4") = 12
　　Range("F4") = "=D4 * E4"

　　Range("A5") = "2021/10/3"
　　Range("B5") = "S1"
　　Range("C5") = "名刺セット"
　　Range("D5") = 4500
　　Range("E5") = 10
　　Range("F5") = "=D5 * E5"

　　Range("A6") = "2021/10/4"
　　Range("B6") = "D1"
　　Range("C6") = "ネームペン"
　　Range("D6") = 2200
　　Range("E6") = 12
　　Range("F6") = "=D6 * E6"

　　Range("A7") = "2021/10/5"
　　Range("B7") = "S1"
　　Range("C7") = "名刺セット"
　　Range("D7") = 4500
　　Range("E7") = 8
　　Range("F7") = "=D7 * E7"

End Sub

テーマの色を指定するマクロ

次のサンプルマクロは、フォントの色を「アクセント2」に、セルの背景を「アクセント6」に設定します。

Sub サンプル5762_1()

With Range("A3:F3")
    With .Font
        .ThemeColor = xlThemeColorAccent2
    End With

    With .Interior
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0.4
    End With
End With

End Sub

コードの解説

With .Font
.ThemeColor = xlThemeColorAccent2
’フォントの色にテーマの色の「アクセント2」を指定します。

With .Interior
.ThemeColor = xlThemeColorAccent6
’背景色に「アクセント6」を指定します。

.TintAndShade = 0.4
’テーマの色の明るさを「0.4」に指定します。

ThemeColorプロパティ

ThemeColorプロパティのテーマ色とコードの一覧です。

テーマ色の一覧

テーマ色のコード

種別	説明
xlThemeColorDark1	背景１
xlThemeColorLight1	テキスト１
xlThemeColorDark2	背景２
xlThemeColorLight2	テキスト２
xlThemeColorAccent1	アクセント１
xlThemeColorAccent2	アクセント２
xlThemeColorAccent3	アクセント３
xlThemeColorAccent4	アクセント４
xlThemeColorAccent5	アクセント５
xlThemeColorAccent6	アクセント６
xlThemeColorFllowedHyperlink	表示済みのハイパーリンク
xlThemeColorHyperlink	ハイパーリンク