■
Excel用のアドインを調べてみたのですが、いいのが無かったので作成しました。
以下の
http://jfly.iam.u-tokyo.ac.jp/colorset/
推奨配色セットをExcelのカラーパレットに適用するマクロです。
※Excel2007はカラーパレットの仕組みが違うのでExcel2003までのExcelでしか適用出来ません。
以下のコードを標準モジュールにコピペして実行させてみてください。
Sub changeColorPalette() ThisWorkbook.ResetColors MsgBox "カラーパレットを変更します" ThisWorkbook.Colors(3) = RGB(255, 51, 0) ThisWorkbook.Colors(38) = RGB(255, 153, 153) ThisWorkbook.Colors(53) = RGB(102, 51, 0) ThisWorkbook.Colors(45) = RGB(255, 153, 0) ThisWorkbook.Colors(40) = RGB(235, 190, 140) ThisWorkbook.Colors(6) = RGB(255, 255, 0) ThisWorkbook.Colors(36) = RGB(255, 255, 153) ThisWorkbook.Colors(10) = RGB(51, 153, 102) ThisWorkbook.Colors(4) = RGB(118, 228, 166) ThisWorkbook.Colors(35) = RGB(203, 242, 102) ThisWorkbook.Colors(42) = RGB(102, 204, 255) ThisWorkbook.Colors(34) = RGB(180, 235, 250) ThisWorkbook.Colors(5) = RGB(0, 65, 255) ThisWorkbook.Colors(13) = RGB(153, 0, 102) ThisWorkbook.Colors(39) = RGB(195, 180, 220) ThisWorkbook.Colors(15) = RGB(204, 204, 204) End Sub
実行すると、推奨配色セットの色と置き換わります。
一番下の段の色が微妙に濃くなっているのがわかると思います。
戻し方は普通にオプションの色タブからリセットでもとに戻ります。