テーマカラーで網かけ(パターン)の色の取得・設定(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 |
実行結果
関連記事
-
セルを挿入する(Insert メソッド)
Insert メソッド Insert メソッドで、指定した場所に新規の空白セルを …
-
文字列を縮小して全体を表示(ShrinkToFit プロパティ)
ShrinkToFit プロパティ ShrinkToFit プロパティは、セルに …
-
入力規則(エラーメッセージの設定)Validation オブジェクト
無効値を入力時に、エラーメッセージの表示 Validation.ShowErro …
-
罫線の設定(Borders プロパティ)
罫線の設定 罫線を一括(上下左右すべて)で設定するには、Borders プロパテ …
-
オートフィルタ(日付フィルタ)AutoFilter メソッド
日付フィルタを使用してレコードを抽出する Excel 2007 から「日付フィル …
-
セル・セル範囲をコピーする(Copy メソッド)
Copy メソッド Copy メソッドは、セル範囲をコピーし、指定したセル範囲に …
-
対象のセル・セル範囲に数式があるかどうか調べる(HasFormula プロパティ)
HasFormula プロパティ HasFormula プロパティは、対象のセル …
-
セル範囲を結合・結合を解除(MergeCells プロパティ)
MergeCells プロパティ MergeCells プロパティは、指定したセ …
-
入力規則(Validation オブジェクト)
Validation オブジェクト セル範囲に入力できる値を制限するには 入力規 …
-
文字列の一部の書式を変更(Characters プロパティ)
文字列の一部を参照(Characters プロパティ) Characters プ …