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ソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
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 |
実行結果
