テーマカラーで網かけ(パターン)の色の取得・設定(PatternThemeColor プロパティ・PatternTintAndShade プロパティ)
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ソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
Sub Sample_PatternThemeColor() With Range("B2:E5").Interior 'パターンの種類を設定 .Pattern = xlPatternHorizontal 'パターンの色を設定 .PatternThemeColor = msoThemeAccent1 'パターンの色の明るさを設定 .PatternTintAndShade = 0.2 End With End Sub |
実行結果
関連記事
-
-
引数に指定したセル範囲の共通のセル範囲を取得(Intersect メソッド)
Intersect メソッド Intersect メソッドは、引数に指定したセル …
-
-
A1参照形式、R1C1参照形式の設定・取得(ReferenceStyle プロパティ)
ReferenceStyle プロパティ ReferenceStyle プロパテ …
-
-
AutoFilter オブジェクト(メソッド・プロパティ)
AutoFilter.ShowAllData メソッド AutoFilter.S …
-
-
並べ替え(Sort オブジェクト, SortFields コレクション)
Sort オブジェクトによる並べ替え Excel 2007 以降のバージョンでの …
-
-
オートフィルタ(色で抽出する)AutoFilter メソッド
オートフィルタ(色で抽出する) フォントの色、セルの背景色(条件付き書式による設 …
-
-
入力規則(Validation オブジェクト)
Validation オブジェクト セル範囲に入力できる値を制限するには 入力規 …
-
-
オートフィルタ(日付による抽出)AutoFilter メソッド
日付で、抽出する(AutoFilter メソッド) 【書式】 object.Au …
-
-
指定した条件に一致するセルを取得(SpecialCells メソッド)
SpecialCells メソッド SpecialCells メソッドは、指定し …
-
-
セルが選択されているか確認する(TypeName 関数)
セルが選択されているか確認する方法と使用例 TypeName 関数の引数に、Se …
-
-
指定した行数・列数移動したセル・セル範囲を参照(Offset プロパティ)
Offset プロパティ Offset プロパティは、基準となるセル・セル範囲か …