テーマカラーで網かけ(パターン)の色の取得・設定(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 |
実行結果
関連記事
-
-
オートフィルタ(平均より上・平均より下)AutoFilter メソッド
平均値よりも大きい(小さい)値のレコードを抽出 AutoFilter メソッドで …
-
-
別シートのセルを選択(Goto メソッド / PreviousSelections プロパティ)
Goto メソッド 次の例のように、1 行で、Activate メソッド や S …
-
-
並べ替え(Sort メソッド)
Sort メソッド 任意のセル範囲内で、並べ替えを行います。引数で、並べ替えの条 …
-
-
現在選択されているセルを参照(RangeSelection プロパティ)
RangeSelection プロパティ 実際に何が選択されているかにかかわらず …
-
-
セルをアクティブにする・セルを選択する(Activate, Select)
セルをアクティブにする・選択する 【書式:セルをアクティブにする】 object …
-
-
フリガナの設定(Characters プロパティ,PhoneticCharacters メソッド)
Characters プロパティ Characters プロパティは、文字範囲を …
-
-
セルの幅・高さの自動調整(AutoFit メソッド)
AutoFit メソッド AutoFit メソッドは、指定したセル・セル範囲(R …
-
-
オートフィルタ(日付による抽出)AutoFilter メソッド
日付で、抽出する(AutoFilter メソッド) 【書式】 object.Au …
-
-
文字列の横位置を取得・設定する(HorizontalAlignment プロパティ)
HorizontalAlignment プロパティ HorizontalAlig …
-
-
重複するデータを削除(RemoveDuplicates メソッド)
RemoveDuplicates メソッド 指定したセル範囲から重複データを含む …