FC2ブログ

Excelじゆうちょう

Excelのお絵描きツール『りっぷ2(りっぷつぅ)』のサポートページ、まずは「はじめに」をご覧ください。 [NewEntry] [Admin]

記事更新カレンダー

03 « 2019-04 « 05
- 1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 - - - -

やたらに多いカテゴリ

比較的新しい記事

新しいコメント

ありがたいブログ拍手

拍手コメント一覧(拍手はしない)

さみしいトラックバック

申し訳ないプロフィール

申し訳ない

管理人  [ 申し訳ない ]

pxivもやってます
リンクの一番上からのぞきに来てください
※閲覧にはユーザー登録が必要です

RSSってなんぞ?

広告は消せないらしい

FC2Ad

        --------       スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

        2011-11-29       互換カラーパレット作成

旧Excelと新Excelのカラーパレットにはほとんど互換性がなく、赤、黄、黒、50%黒以外の色は正しく保存されないことがわかりました。
これではあまりにも不便すぎます。
この不便を少しでも解消するために、ひとつ工夫をしてみようと思います。

新Excelのカラーパレットの色を旧Excelのカラーインデックスに登録します。

そうすれば、旧Excelのカラーインデックスが56色なのに対し、新Excelのカラーパレットの色が70色ありますので、少なくとも80%は互換性が取れたことになります。
問題はどの色をチョイスするかです。

↓私の独断と偏見で作ったカラーパレットです↓
互換カラーパレット

↓この色を使用しました↓
カラーインデックス登録色

これをブックのColorsプロパティに登録しておけば、ほぼほぼ互換性のとれたパレットになるはずです。
それを実行するマクロは以下になります。


'【コードウインドウ】
Public Sub setColors() 'カラーインデックスを新Excelのカラーパレットに合わせる
Application.ScreenUpdating = False '画面更新オフ
With ActiveWorkbook 'アクティブブックを対象
  .Colors(1) = 0
  .Colors(2) = 16777215
  .Colors(3) = 255
  .Colors(4) = 2704713
  .Colors(5) = 14994616
  .Colors(6) = 682978
  .Colors(7) = 65535
  .Colors(8) = 3969910
  .Colors(9) = 12611584
  .Colors(10) = 9944516
  .Colors(11) = 15853276
  .Colors(12) = 11851260
  .Colors(13) = 13082801
  .Colors(14) = 12379352
  .Colors(15) = 14474460
  .Colors(16) = 8421504
  .Colors(17) = 8210719
  .Colors(18) = 5066944
  .Colors(19) = 4626167
  .Colors(20) = 14806254
  .Colors(21) = 5880731
  .Colors(22) = 12419407
  .Colors(23) = 10642560
  .Colors(24) = 13020235
  .Colors(25) = 13995347
  .Colors(26) = 192
  .Colors(27) = 49407
  .Colors(28) = 5296274
  .Colors(29) = 15773696
  .Colors(30) = 6299648
  .Colors(31) = 10498160
  .Colors(32) = 14470546
  .Colors(33) = 9592886
  .Colors(34) = 2646607
  .Colors(35) = 1055517
  .Colors(36) = 411543
  .Colors(37) = 6438948
  .Colors(38) = 5287936
  .Colors(39) = 5321024
  .Colors(40) = 2303331
  .Colors(41) = 14136213
  .Colors(42) = 10213316
  .Colors(43) = 9420794
  .Colors(44) = 3421846
  .Colors(45) = 9737946
  .Colors(46) = 12040422
  .Colors(47) = 14336204
  .Colors(48) = 12040119
  .Colors(49) = 14610923
  .Colors(50) = 5540500
  .Colors(51) = 12900829
  .Colors(52) = 14281213
  .Colors(53) = 14408946
  .Colors(54) = 8014176
  .Colors(55) = 15523812
  .Colors(56) = 4210752
End With
Application.ScreenUpdating = True '画面更新オン
End Sub


コードがだらだらと長くて申し訳ないです。
拡張子が.xlsじゃないとだめなんですっていう人はぜひお試しください。

↓旧Excelで開くとこんな感じ↓
互換カラーパレット(オプション)
スポンサーサイト

コメント

コメントの投稿

管理者にだけ表示を許可  

トラックバック

http://likep.blog63.fc2.com/tb.php/252-652ae3c3

 | HOME | 

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。