色の設定（ThemeColor プロパティ・TintAndShade プロパティ）

2015/07/20 2015/08/26

ThemeColor プロパティ・TintAndShade プロパティ

テーマカラーを使用して、セルやフォントなどの色を設定する場合、ThemeColor プロパティで、基準となる色を指定し、TintAndShade プロパティで、明るさを指定します。

ThemeColor プロパティ

【書式】

＜取得＞
result = Object.ThemeColor

＜設定＞
Object.ThemeColor = index

引数・戻り値

object ・・・対象となる オブジェクトを指定します。
Border オブジェクト（罫線）、Borders オブジェクト（輪郭線）、Font オブジェクト（文字）、Interior オブジェクト（セル）、FormatColor（カラースケール） など
index ・・・ テーマカラーの基本色を表すMsoThemeColorSchemeindex 列挙型（または XlThemeColor 列挙型）の定数または値（1 ～ 12）を指定します。
result ・・・設定されているテーマカラーを表す値1 ～ 12）。

テーマカラーの基本 12 色（Excel 2007 以降で追加された機能なので、それ以前のバージョンでは使用できません。）

引数 index に指定する定数（MsoThemeColorSchemeIndex 列挙）

定数	値	内容
msoThemeDark1	1	テキスト／背景：濃色 1
msoThemeLight1	2	テキスト／背景：淡色 1
msoThemeDark2	3	テキスト／背景：濃色 2
msoThemeLight2	4	テキスト／背景：淡色 2
msoThemeAccent1	5	アクセント 1
msoThemeAccent2	6	アクセント 2
msoThemeAccent3	7	アクセント 3
msoThemeAccent4	8	アクセント 4
msoThemeAccent5	9	アクセント 5
msoThemeAccent6	10	アクセント 6
msoThemeHyperlink	11	ハイパーリンク
msoThemeFollowedHyperlink	12	表示済みのハイパーリンク

TintAndShade プロパティ

【書式】

＜取得＞
result = Object.TintAndShade

＜設定＞
Object.TintAndShade = single

引数・戻り値

object ・・・対象となる オブジェクトを指定します。
Border オブジェクト（罫線）、Borders オブジェクト（輪郭線）、Font オブジェクト（文字）、Interior オブジェクト（セル）、FormatColor（カラースケール） など
single ・・・色の明るさを -1（暗い） ～ 1（明るい）で指定します。
result ・・・色の明るさを示す値（内部処理形式 Single のバリアント型）。

テーマカラーの基本色の明るさ

ThemeColor プロパティ・TintAndShade プロパティ使用例

サンプルVBAソース

　
Sub Sample_ThemeColor

    Dim myRng As Range
    Set myRng = Range("B2:F6")
    
    With myRng
    
        'セル範囲をテーマカラーで塗りつぶす
        .Interior.ThemeColor = msoThemeAccent5
        .Interior.TintAndShade = 0.8
        
        '範囲の罫線をテーマカラーで色をつける
        .Borders.ThemeColor = msoThemeAccent2
        .Borders.TintAndShade = 0.5
        
        '範囲の罫線を太線にする（わかりやすくするため）
        .Borders.Weight = xlThick
    
    End With

End Sub