ExcelWork.info

Excel(エクセル)のマクロ・VBA・関数・操作などのメモ

テーマカラーで網かけ(パターン)の色の取得・設定(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ソース


実行結果

PatternThemeColor プロパティ 例


 - セルの操作 , , , , , ,

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください

  関連記事

非連続のセルが選択されているか確認する(Areas コレクション)

Areas コレクション の使い方 複数の離れた位置にあるセル範囲を選択した場合 …

オートフィルタ(平均より上・平均より下)AutoFilter メソッド

平均値よりも大きい(小さい)値のレコードを抽出 AutoFilter メソッドで …

セルの幅・高さの自動調整(AutoFit メソッド)

AutoFit メソッド AutoFit メソッドは、指定したセル・セル範囲(R …

Goto メソッド
指定したセルへ移動(Goto メソッド)

指定したセルへ移動 指定したシートの指定したセルへジャンプするには、Goto メ …

文字列の一部の書式を変更(Characters プロパティ)

文字列の一部を参照(Characters プロパティ) Characters プ …

ハイパーリンク(Hyperlinks オブジェクト)

Hyperlinks オブジェクト ワークシートまたはセル範囲のワークシートコレ …

次の検索(FindNext メソッド,FindPrevious メソッド)

FindNext メソッド Find メソッドで開始された検索を継続します。引数 …

ShrinkToFit プロパティ 例
文字列を縮小して全体を表示(ShrinkToFit プロパティ)

ShrinkToFit プロパティ ShrinkToFit プロパティは、セルに …

オートフィルタ(日付フィルタ)AutoFilter メソッド

日付フィルタを使用してレコードを抽出する Excel 2007 から「日付フィル …

オートフィルタ(抽出件数の取得・結果集計)AutoFilter メソッド

ワークシート関数の Subtotal 関数 の使い方 VBA には、オートフィル …