エクセル VBA【配色テーマ Office】セルの塗りテーマの色からRGB（赤・緑・青）を取得 #

【本日のミッション】

Excel VBA にて、配色テーマを「Office」に設定しているファイルの、セルの塗りつぶしからテーマの色のRGB（赤・緑・青）を取得せよ。

1 ミッションの概要
2 プロシージャ
3 RGB取得の計算方法
4 セルの塗りのRGBの値の確認方法
5 参照

ミッションの概要

Excel VBA にて、配色テーマを「Office」に設定しているファイルの、セルの塗りつぶしからテーマの色のRGB（赤・緑・青）を取得せよ、というのが今回のミッションです。

リボン「ページレイアウト」タブの「テーマ」ー「配色」を「Office」に設定してしているエクセルファイルが対象です。

「テーマの色」の5列目ブルーから10列目グリーンの、1～6行目の色をエクセルのセルに塗りました。

縦×横並びの「テーマの色」を縦1列に並び変えて塗っています。

それぞれのカラーの、テーマの色（ThemeColor）と色の明暗（TintAndShade）とRGBの数値を取得していきましょう。

テーマの色・色の明暗取得についてはこちらをご覧ください。
参照：エクセル VBA【配色テーマ Office】セルの塗りつぶしのテーマの色・色の明暗を取得

■■■スポンサーリンク■■■

プロシージャ

Sub テーマの色からRGBを取得()

    Dim t_row As Long     '処理対象行
    Dim MyColor As Long   'Colorプロパティ

    For t_row = 2 To 37
        MyColor = Cells(t_row, 2).Interior.Color                 'Colorプロパティ
        Cells(t_row, 3) = Cells(t_row, 2).Interior.ThemeColor    'テーマの色
        Cells(t_row, 4) = WorksheetFunction.Round(Cells(t_row, 2).Interior.TintAndShade, 2) ’色の明暗
        Cells(t_row, 5) = MyColor Mod 256                'R
        Cells(t_row, 6) = Int(MyColor / 256) Mod 256     'G
        Cells(t_row, 7) = Int(MyColor / 256 / 256)       'B
    Next t_row
End Sub

アクティブなシートのB列2～37行目の塗りつぶしのテーマの色（ThemeColor）をC列に、色の明暗（TintAndShade）をD列に、RGB（赤・緑・青）の数値をE～G列に取得するコードです。

■■■スポンサーリンク■■■

RGB取得の計算方法

RGBの値を得るのに、Interior.Colorプロパティの数値を使用します。

似たような名前でColorIndexプロパティがありますが、こちらは56色の表現しかできません。なので、RGBの数値取得には使用できません。

RGBの計算方法は、それぞれ下記の通りになります。

R（赤）= Interior.Colorの数値 Mod 256

G（緑）= Int(Interior.Colorの数値/256) Mod 256

B（青）= Int(Interior.Colorの数値/256/256)

今回は Interior.Colorの数値 を変数 MyColor に入れているので、下記のコードになっています。

R（赤）= MyColor Mod 256

G（緑）= Int(MyColor/256) Mod 256

B（青）= Int(MyColor/256/256)

逆にInterior.Colorプロパティの数値を求める計算方法は下記の通りになります。

Interior.Colorプロパティの数値 = R（赤）＋G（緑）× 256＋B（青）× 256 × 256

セルの塗りのRGBの値の確認方法

セルの塗りのRGBは、下記方法で確認することができます。

［ホーム］タブ－［フォント］－［塗りつぶしの色］の「その他の色」をクリックします。

色の設定ダイアログの［ユーザー設定］タブで、赤（R）=91、緑（G）=155、青（B）=213と、それぞれの数値が確認できます。

参照

■■■スポンサーリンク■■■