ウィリアムのいたずらの、まちあるき、たべあるきーPART2

gooブログ「ウィリアムのいたずらの、まちあるき、たべあるき」がお引越ししてきました

Excelの標準の色と2007からのテーマの色のRGB

Excel2003までは、色のパレットがあって、
そこから適当に色が選べた。

2007でも色は選べるんだけど、
まず、上にはテーマの色というのが、出てくる。

このテーマの色は、ページレイアウトの配色で変えられる

たとえば、

キュートに設定すると

キュートになっている。

ここで、そのテーマの色のRGBが知りたいとき・・
マクロでしらべればいい。
こんなかんじ。

(ブルー、グリーン、レッドの順(つまり逆)になっている)
このマクロはこんなかんじ。
Sub getMyRGB()
    
    For i = 1 To 56
        Cells(i + 2, 1).Interior.ColorIndex = i
        Cells(i + 2, 1) = i
        Cells(i + 2, 2) = Cells(i + 2, 1).Interior.Color
    Next
    
    For i = 1 To 12
        Cells(i + 2, 4).Interior.ThemeColor = i
        Cells(i + 2, 4).Interior.TintAndShade = 0
        Cells(i + 2, 4) = i
        Cells(i + 2, 5) = Cells(i + 2, 4).Interior.Color
    Next
    
End Sub



(C桁、F桁は =DEC2HEX(B3) のように16進数に変換している)



参考サイト

セルの操作(文字色の設定)
http://officetanaka.net/excel/vba/cell/cell04.htm