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

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

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

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

たとえば、

キュートに設定すると

キュートになっている。

ここで、そのテーマの色の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