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