ExcelWork.info

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

色の設定(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ソース


実行結果

ThemeColor プロパティ TintAndShade プロパティ 例


 - VBA基本 , , , , ,

Message

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

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

  関連記事

ThisCell プロパティ
ユーザー定義関数:セルを取得する(ThisCell プロパティ)

入力されたセルを取得する ワークシート上で使用する Function プロシージ …

四捨五入・切り上げ・切り捨て・丸め(Round 関数 他)

Round 関数(丸め)の使い方 【書式】 value = Round ( ex …

色の設定(ColorIndex プロパティ・Colors プロパティ)

ColorIndex プロパティ ColorIndex プロパティは、指定したオ …

引数が省略されたかどうかをチェックする( IsMissing 関数 )

IsMissing 関数の使い方 【書式】 result = IsMissing …

固定長形式で分割(TextToColumns メソッド)
セルのデータを固定長形式で複数のセルに分割する(TextToColumns メソッド・Parse メソッド)

固定長形式でセルを分割 TextToColumns メソッドや Parse メソ …

RegExp オブジェクト Test メソッド
VBA で正規表現を使う(RegExp オブジェクトのメソッド)

RegExp オブジェクトのメソッド RegExp オブジェクトの詳細に関しては …

文字列:文字列右から指定文字数取得(Right 関数,RightB 関数)

Right 関数・RightB 関数 の使い方 【書式】 result_righ …

Collection 01a
コレクション(Collection)オブジェクト「連想配列」

コレクション(Collection)オブジェクトの使い方 【書式】 Dim my …

RSet 関数・LSet 関数 例1
文字列:文字列変数の値を右詰めまたは左詰めにする(RSet ステートメント・LSet ステートメント)

RSet ステートメント・LSet ステートメント 【書式】 < RSet ステ …

文字に下線を設定する(Underline プロパティ)

下線を設定(Underline プロパティ) Underline プロパティは、 …