Excelで勝手に変わったカラーパレットの直し方

質問

故意に変更したわけではないのに，いつの間にかセル色や文字色を選択するカラーパレットの配色が変わってしまい，戻そうとしてもリセットが効かずに悩んでいます．

過去の質問にも全く同じ現象と思われるものがありましたが，解決には至らなかったようです．
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1209778

Ｗｅｂ上で検索すると，ディスプレイドライバが関係しているらしいとわかったのですが，どうすれば解決できるのかはわかりませんでした．
http://cgi.fuji.ne.jp/~fj2094/cgi-bin5/wwwlng.cgi?print+200510/05100059.txt
http://cgi.fuji.ne.jp/~fj2094/cgi-bin1/wwwlng.cgi?print+200502/05020091.txt

ちなみに，１箇所のみ故意に配色を変えてからリセットしてみましたが何の変化もなく，勝手に変わったところも故意に変えた配色もそのままでした．リセットボタンが機能していないのではと思います．

解決方法をご存知の方，ぜひご教示下さい．

回答No.1

BLUEPIXY · ベストアンサー

リセットボタンが機能していないということであれば、
マクロで
Public Sub colorReset()
ActiveWorkbook.ResetColors
End Sub
を試してみてください。リセットボタンと同じ機能です。
またそれでダメな場合、強制的に標準のカラーをセットする
Public Sub colorReset2()
ActiveWorkbook.Colors(1) = 0
ActiveWorkbook.Colors(2) = 16777215
ActiveWorkbook.Colors(3) = 255
ActiveWorkbook.Colors(4) = 65280
ActiveWorkbook.Colors(5) = 16711680
ActiveWorkbook.Colors(6) = 65535
ActiveWorkbook.Colors(7) = 16711935
ActiveWorkbook.Colors(8) = 16776960
ActiveWorkbook.Colors(9) = 128
ActiveWorkbook.Colors(10) = 32768
ActiveWorkbook.Colors(11) = 8388608
ActiveWorkbook.Colors(12) = 32896
ActiveWorkbook.Colors(13) = 8388736
ActiveWorkbook.Colors(14) = 8421376
ActiveWorkbook.Colors(15) = 12632256
ActiveWorkbook.Colors(16) = 8421504
ActiveWorkbook.Colors(17) = 16751001
ActiveWorkbook.Colors(18) = 6697881
ActiveWorkbook.Colors(19) = 13434879
ActiveWorkbook.Colors(20) = 16777164
ActiveWorkbook.Colors(21) = 6684774
ActiveWorkbook.Colors(22) = 8421631
ActiveWorkbook.Colors(23) = 13395456
ActiveWorkbook.Colors(24) = 16764108
ActiveWorkbook.Colors(25) = 8388608
ActiveWorkbook.Colors(26) = 16711935
ActiveWorkbook.Colors(27) = 65535
ActiveWorkbook.Colors(28) = 16776960
ActiveWorkbook.Colors(29) = 8388736
ActiveWorkbook.Colors(30) = 128
ActiveWorkbook.Colors(31) = 8421376
ActiveWorkbook.Colors(32) = 16711680
ActiveWorkbook.Colors(33) = 16763904
ActiveWorkbook.Colors(34) = 16777164
ActiveWorkbook.Colors(35) = 13434828
ActiveWorkbook.Colors(36) = 10092543
ActiveWorkbook.Colors(37) = 16764057
ActiveWorkbook.Colors(38) = 13408767
ActiveWorkbook.Colors(39) = 16751052
ActiveWorkbook.Colors(40) = 10079487
ActiveWorkbook.Colors(41) = 16737843
ActiveWorkbook.Colors(42) = 13421619
ActiveWorkbook.Colors(43) = 52377
ActiveWorkbook.Colors(44) = 52479
ActiveWorkbook.Colors(45) = 39423
ActiveWorkbook.Colors(46) = 26367
ActiveWorkbook.Colors(47) = 10053222
ActiveWorkbook.Colors(48) = 9868950
ActiveWorkbook.Colors(49) = 6697728
ActiveWorkbook.Colors(50) = 6723891
ActiveWorkbook.Colors(51) = 13056
ActiveWorkbook.Colors(52) = 13107
ActiveWorkbook.Colors(53) = 13209
ActiveWorkbook.Colors(54) = 6697881
ActiveWorkbook.Colors(55) = 10040115
ActiveWorkbook.Colors(56) = 3355443
End Sub
を試してみてください。
これでダメな場合、
コントロールパネル～画面～設定
を確認してみて下さい。

お礼

長いほうのマクロで解決できました！　ありがとうございます．マクロは一度も使ったことがなかったので不安でしたが，数分で対処できました．同じことを手でやっていたらと思うと気が遠くなります（汗）．
リセットが効くようになる根本的な解決策が寄せられるのを期待して，締め切るのはもう少し後にしようと思います．