テーマカラーで網かけ（パターン）の色の取得・設定（PatternThemeColor プロパティ・PatternTintAndShade プロパティ）

2015/08/01 2015/08/26

PatternThemeColor プロパティ・PatternTintAndShade プロパティ

テーマカラーを使用して、網かけ（パターン）の色を設定する場合、PatternThemeColor プロパティで、基準となる色を指定し、PatternTintAndShade プロパティで、明るさを指定します。
網かけを取得・設定する方法は、網かけ（パターン）の取得・設定（Pattern プロパティ）を参照してください。

PatternThemeColor プロパティ

【書式】

＜取得＞
result = Object.PatternThemeColor

＜設定＞
Object.PatternThemeColor = index

引数・戻り値

object ・・・対象となる Interior オブジェクトを指定します。
index ・・・ テーマカラーの基本色を表すMsoPatternThemeColorSchemeindex 列挙型（または XlThemeColor 列挙型）の定数または値（1 ～ 12）を指定します。
result ・・・設定されているテーマカラーを表す値1 ～ 12）。

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

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

定数	値	内容
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	表示済みのハイパーリンク

PatternTintAndShade プロパティ

【書式】

＜取得＞
result = Object.PatternTintAndShade

＜設定＞
Object.PatternTintAndShade = single

引数・戻り値

object ・・・対象となる Interior オブジェクトを指定します。
single ・・・網かけ（パターン）の色の明るさを -1（暗い） ～ 1（明るい）で指定します。
result ・・・網かけ（パターン）の色の明るさを示す値（内部処理形式 Single のバリアント型）。

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

PatternThemeColor・PatternTintAndShade 使用例

サンプルVBAソース

　
Sub Sample_PatternThemeColor()


    With Range("B2:E5").Interior
            
        'パターンの種類を設定
        .Pattern = xlPatternHorizontal
        
        'パターンの色を設定
        .PatternThemeColor = msoThemeAccent1
        
        'パターンの色の明るさを設定
        .PatternTintAndShade = 0.2
    
    End With
    

End Sub