色の設定(ThemeColor プロパティ・TintAndShade プロパティ)
2015/08/26
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 |
実行結果
関連記事
-
-
データをクリアする(ClearContents メソッド)
ClearContents メソッド 対象がセル範囲(Range オブジェクト) …
-
-
式の値に応じて多分岐を行う(Switch 関数)
Switch 関数 の使い方 Switch 関数は、「式・値」を対にして指定して …
-
-
日付時刻:年・月・日を取得(Year、Month、Day 関数)
日付から年・月・日を取得する関数 【書式】 date_year = Year ( …
-
-
四捨五入・切り上げ・切り捨て・丸め(Round 関数 他)
Round 関数(丸め)の使い方 【書式】 value = Round ( ex …
-
-
VBA で正規表現を使う(RegExp オブジェクトのプロパティ)
RegExp オブジェクトのプロパティ RegExp オブジェクトの詳細に関して …
-
-
文字列:文字列変数の値を右詰めまたは左詰めにする(RSet ステートメント・LSet ステートメント)
RSet ステートメント・LSet ステートメント 【書式】 < RSet ステ …
-
-
エラー(CVErr 関数・IsError 関数・Error 関数)
CVErr 関数(エラー番号をエラー値に変換する)の使い方 【書式】 retur …
-
-
指定した数値を文字列に変換する(Str 関数)
Str 関数 の使い方 Str 関数は、数値・数式を文字列に変換して返す関数です …
-
-
データ型変換関数
データ型変換関数の使い方 【書式】 function ( expression …
-
-
変数がEmpty 値かどうかをチェックする( IsEmpty 関数 )
IsEmpty 関数の使い方 【書式】 result = IsEmpty ( e …