« No.490 Excelでアクティブセルが飛ぶ | トップページ | No.492 さよならバイ・デザイン »

No.491 Excelでオートシェイプのカラーパレット配色が変

年明けからExcelのトラブルシュートばっか。

ども、KOMOです。

引き続き、Excelでのトラブル解決について。

自分用のメモですが、ご参考になれば。
(備忘録はネットに書くのに限りますね。人に訊かれたら「オレのブログ見ろ」で済むのも利点ですsmile)

当方、Excel2003を使用しております。

オートシェイプで図形を描き、図形をダブルクリック→「塗りつぶし」の「色」をクリック、で色が変更できます。

110121color01

通常ならこのとおり、きれいな色(256色カラー)が選択できるのですが、ひょんな事で、

110121color02

このように、ヘンな色(16色カラー)しか選択できなくなることがしばしば

画像では(JPEG圧縮の関係上)分かりにくいですが、ピンクやイエローの淡い色のパレットがヘンになっています。(くすんだ色になっている)

なんでこんなことになるのか、意味がワカラン。

で、直し方ですが、Excelのツールバーから、「ツール」→「マクロ」→「Visual Basic Editor」を起動します。

110121color03

「Alt」 + 「F11」でも構いません。

んで、んで、んで。(にゃぁ)

左のカラムの「ThisWorkbook」ってのをダブルクリック。

110121color04 

開いたウインドウに、下記のコードを貼り付けます。

110121color05

Public Sub ReColorIndex()
'標準カラーインデックスにリセット
ActiveWorkbook.Colors(1) = RGB(0, 0, 0) '0
ActiveWorkbook.Colors(2) = RGB(255, 255, 255) '16777215
ActiveWorkbook.Colors(3) = RGB(255, 0, 0) '255
ActiveWorkbook.Colors(4) = RGB(0, 255, 0) '65280
ActiveWorkbook.Colors(5) = RGB(0, 0, 255) '16711680
ActiveWorkbook.Colors(6) = RGB(255, 255, 0) '65535
ActiveWorkbook.Colors(7) = RGB(255, 0, 255) '16711935
ActiveWorkbook.Colors(8) = RGB(0, 255, 255) '16776960
ActiveWorkbook.Colors(9) = RGB(128, 0, 0) '128
ActiveWorkbook.Colors(10) = RGB(0, 128, 0) '32768
ActiveWorkbook.Colors(11) = RGB(0, 0, 128) '8388608
ActiveWorkbook.Colors(12) = RGB(128, 128, 0) '32896
ActiveWorkbook.Colors(13) = RGB(128, 0, 128) '8388736
ActiveWorkbook.Colors(14) = RGB(0, 128, 128) '8421376
ActiveWorkbook.Colors(15) = RGB(192, 192, 192) '12632256
ActiveWorkbook.Colors(16) = RGB(128, 128, 128) '8421504
ActiveWorkbook.Colors(17) = RGB(153, 153, 255) '16751001
ActiveWorkbook.Colors(18) = RGB(153, 51, 102) '6697881
ActiveWorkbook.Colors(19) = RGB(255, 255, 204) '13434879
ActiveWorkbook.Colors(20) = RGB(204, 255, 255) '16777164
ActiveWorkbook.Colors(21) = RGB(102, 0, 102) '6684774
ActiveWorkbook.Colors(22) = RGB(255, 128, 128) '8421631
ActiveWorkbook.Colors(23) = RGB(0, 102, 204) '13395456
ActiveWorkbook.Colors(24) = RGB(204, 204, 255) '16764108
ActiveWorkbook.Colors(25) = RGB(0, 0, 128) '8388608
ActiveWorkbook.Colors(26) = RGB(255, 0, 255) '16711935
ActiveWorkbook.Colors(27) = RGB(255, 255, 0) '65535
ActiveWorkbook.Colors(28) = RGB(0, 255, 255) '16776960
ActiveWorkbook.Colors(29) = RGB(128, 0, 128) '8388736
ActiveWorkbook.Colors(30) = RGB(128, 0, 0) '128
ActiveWorkbook.Colors(31) = RGB(0, 128, 128) '8421376
ActiveWorkbook.Colors(32) = RGB(0, 0, 255) '16711680
ActiveWorkbook.Colors(33) = RGB(0, 204, 255) '16763904
ActiveWorkbook.Colors(34) = RGB(204, 255, 255) '16777164
ActiveWorkbook.Colors(35) = RGB(204, 255, 204) '13434828
ActiveWorkbook.Colors(36) = RGB(255, 255, 153) '10092543
ActiveWorkbook.Colors(37) = RGB(153, 204, 255) '16764057
ActiveWorkbook.Colors(38) = RGB(255, 153, 204) '13408767
ActiveWorkbook.Colors(39) = RGB(204, 153, 255) '16751052
ActiveWorkbook.Colors(40) = RGB(255, 204, 153) '10079487
ActiveWorkbook.Colors(41) = RGB(51, 102, 255) '16737843
ActiveWorkbook.Colors(42) = RGB(51, 204, 204) '13421619
ActiveWorkbook.Colors(43) = RGB(153, 204, 0) '52377
ActiveWorkbook.Colors(44) = RGB(255, 204, 0) '52479
ActiveWorkbook.Colors(45) = RGB(255, 153, 0) '39423
ActiveWorkbook.Colors(46) = RGB(255, 102, 0) '26367
ActiveWorkbook.Colors(47) = RGB(102, 102, 153) '10053222
ActiveWorkbook.Colors(48) = RGB(150, 150, 150) '9868950
ActiveWorkbook.Colors(49) = RGB(0, 51, 102) '6697728
ActiveWorkbook.Colors(50) = RGB(51, 153, 102) '6723891
ActiveWorkbook.Colors(51) = RGB(0, 51, 0) '13056
ActiveWorkbook.Colors(52) = RGB(51, 51, 0) '13107
ActiveWorkbook.Colors(53) = RGB(153, 51, 0) '13209
ActiveWorkbook.Colors(54) = RGB(153, 51, 102) '6697881
ActiveWorkbook.Colors(55) = RGB(51, 51, 153) '10040115
ActiveWorkbook.Colors(56) = RGB(51, 51, 51) '3355443
End Sub

そしたらウインドウを閉じまして、VBEのツールバーの「実行」をクリック。

そのなかの「マクロの実行」をクリックしますと、マクロ実行画面が開きますので、先程のマクロが選択されていますから、そのまま「実行」をクリック。

110121color06

その後、VBEのウインドウを閉じて、元のシートに戻ってオートシェイプの色変更を試してみてください。

無事にカラーパレットがリセットされてきれいな色が選択できるようになっていればメデタシメデタシ。

んでわ。

|

« No.490 Excelでアクティブセルが飛ぶ | トップページ | No.492 さよならバイ・デザイン »

パソコン・インターネット」カテゴリの記事

コメント

コメントを書く



(ウェブ上には掲載しません)


コメントは記事投稿者が公開するまで表示されません。



トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/120305/50644246

この記事へのトラックバック一覧です: No.491 Excelでオートシェイプのカラーパレット配色が変:

« No.490 Excelでアクティブセルが飛ぶ | トップページ | No.492 さよならバイ・デザイン »