[[戻る>DoldoWorkz#ExcelMacro]]
-[[''Excelマクロ''>Excelマクロ]]
--[[Excelマクロ/クラシック色カラーパレット]]&color(red){''✓''};
--[[Excelマクロ/VBAマクロのモジュールをエクスポート]]
--[[Excelマクロ/アクティブファイルすべての図を元のサイズに戻す]]

*目次 [#x4688ecd]
#contents

* クラシック色カラーパレット [#e488d070]
#ref(XL2003ColorPallete2_1.jpg)
Excel2007・Excel2010で、Excel2003以前で使われていたクラシック色が扱えるマクロ(アドイン)です。~
「塗りつぶしの色」と「フォントの色」に対応しています。~
通常、Excelでマクロを実行すると「元に戻す(Ctrl+Z)」が消えてしまうのですが、このマクロでは実行する直前の状態(つまり1回だけ)元に戻せる様になっているのが特徴です。~

#hr

&color(red){''このマクロの大部分は下記サイト「Hard Day's Night」の管理者である「okey-doke」さんが作成された物''};です。~
このような有用なソフトを作っていただき、ありがとうございます。~
これに、私が少々改造した物を公開しても良いか聞いたところ、快く許可をしていただきました、ありがとうございます。~

-[[Hard Day's Night (Hard Day's Night)>https://sites.google.com/site/mznetlab/]]~
--[[Excel 2003 のカラーパレットをリボンUIに配置 (Hard Day's Night)>https://sites.google.com/site/mznetlab/home/officedev/colorpalette/colorpalettepart2]]~
--[[Excel 2003 カラーパレット - 実装 (Hard Day's Night)>https://sites.google.com/site/mznetlab/home/officedev/colorpalette/colorpalettepart3]]~

okey-dokeさんのサイトは&color(blue){''Excel2007のマクロ作成方法について丁寧に解説が載っている''};ので、自分でマクロを作りたい方必見のブログとなっています。~

**ダウンロード [#r5504cd4]

-Excel2007 アドイン ダウンロード~
2147483648個以内のセル・図形・ワードアート・図・クリップアート・テキストボックスが1回だけの「元に戻す(Ctrl+Z)」に対応しています~
#ref(XL2003ColorPallete3_xlam_20111117.zip)
　~
-Excel2007 アドイン 旧バージョンダウンロード (安定版)~
32768個以内のセル・図形・ワードアート・図・クリップアート・テキストボックスが1回だけの「元に戻す(Ctrl+Z)」に対応しています~
#ref(XL2003ColorPallete3_xlam_20110519.zip)
32768個以内のセルのみ、1回だけの「元に戻す(Ctrl+Z)」に対応しています~
#ref(XL2003ColorPallete2_xlam.ZIP)

*詳細および要件 [#o9dfebce]

-OS~
Windows XP・Vista・7~
-その他条件~
Excel2007・2010 (32bit版で確認)~
Excel2013(Office Professional 2013 Preview 32/64bit版で確認)~
-利用条件~
誰でも無料でお使い頂けます(もちろん企業内でもご自由にお使い頂けます)~

窓の杜に紹介記事が載りました~
[[窓の杜 - 【REVIEW】Excel 2003の塗りつぶし色をExcel 2007/2010でも「クラシック色カラーパレット」>http://www.forest.impress.co.jp/docs/review/20100802_385058.html]]~

** スクリーンショット [#ldc4de47]
-ホームの[フォント]の右横に[クラシック色]として配置されます~
#ref(XL2003ColorPallete2_1.jpg)~
　~
-プルダウンメニューでクラシックカラーパレットを選択出来ます~
#ref(XL2003ColorPallete2_2.jpg,around)
#ref(XL2003ColorPallete2_3.jpg)~
#img(,clear)~
　~
-通常、Excelでマクロを実行すると「元に戻す(Ctrl+Z)」が消えてしまいます。~
ですが、このマクロでは実行する直前の状態(つまり1回だけ)元に戻せる様になっています。~
#ref(XL2003ColorPallete2_4.jpg)~

**インストール方法 [#h2a38488]
特に特別な手順は無く、通常のアドオンを入れる方法何らと変わりません。~

+ファイルをダウンロードする
+ダウンロードされたファイル[XL2003ColorPallete3_xlam.ZIP]を解凍する。
+解凍されたファイル[XL2003ColorPallete3.xlam]を以下の場所にコピーする
--Windows2000・XP
 C:\Documents and Settings\(ユーザー名)\Application Data\Microsoft\AddIns\
--Windows Vista・7
 C:\Users\(ユーザー名)\AppData\Roaming\Microsoft\AddIns\
+[Officeボタン](左上のアイコン)→[Excelのオプション]ボタンを押す
#ref(MacroInst1.jpg,,70%)
+「Excelのオプション」ウインドウの[アドイン]をクリック~
下の[管理]を「Excel アドイン」にし、[設定]ボタンを押す~
#ref(MacroInst2.jpg,,50%)
+「アドイン」ウインドウの[参照(B)]ボタンを押す~
※既に「XL2003ColorPallete3」が一覧にあるなら必要ありません~
#ref(MacroInst3.jpg)
+先ほどコピーした[XL2003ColorPallete3.xlam]を選択してOKを押す~
※既に「XL2003ColorPallete3」が一覧にあるなら必要ありません~
#ref(MacroInst4.jpg,,50%)
+XL2003ColorPallete3が表示され、チェックが付いている事を確認してOKを押す
#ref(MacroInst5.jpg)
+[ホーム]タブ内の[フォント]の右横に[クラシック色]として配置されます
#ref(XL2003ColorPallete2_1.jpg)

**仕様(という言い訳) [#c9b8ffba]
***以下の場合は「元に戻す(Ctrl+Z)」が使えません [#hdc3d487]
-2147483648個のセルorオブジェクトより多く編集した場合~
-セル・図形・ワードアート・図・クリップアート・テキストボックス以外のオブジェクトを編集した場合~
-ワークシート内に同じ名前の図形・ワードアート・図・クリップアート・テキストボックスを編集した場合~
※確認されているのは、クリップアートを複製すると同じ名前の図形が出来てしまいます

以上の条件の場合は、実行前に「実行後元に戻せなくなります」というダイアログが出ます。~
そのダイアログで実行をキャンセルする事も出来、その場合は「元に戻す(Ctrl+Z)」が消える事はありません。~

***以下の場合は「元に戻す(Ctrl+Z)」を使っても元に戻りません [#gca4e63b]
-「グラデーション」・「図またはテクスチャ」等の特殊な塗りつぶしがあるセルを編集した場合~
「元に戻す(Ctrl+Z)」を使うと、白色で塗りつぶされて戻されます~
実行前の事前警告も出ません~
&color(blue){''事前に「グラデーション」・「図またはテクスチャ」が使われているかを調べる方法が見つからない''};のでこの様な残念な仕様となってます…知っている方はぜひ情報を下さい&worried;~
***ボタンの色が以前選択した色で表示されない [#o409a2f8]
以前に選択した色がボタンに表示されず、虹色のままなのは仕様です~

***特殊な起動をしているExcelで表示されない [#l8eab832]
通常使っている分にはこの問題は起きません。~
ExcelOLE(ActiveX)をコントロールし、マクロを停止して開かれた場合に非表示となります。~
解決策としては、Excelを起動し直せば戻りますが、まれにこれでも戻らない事があります。~
その場合、バックグラウンドでExcelが起動しっぱなしになっていますので、以下の手順でExcelを終了させて下さい。~
+タスクバーを右クリック~
+[タスク マネージャ(K)] をクリック~
+[プロセス]タブをクリック~
+「EXCEL.EXE」を右クリック~
+[プロセスの終了(E)]をクリック~

** 履歴と旧バージョンダウンロード [#tf3c09cc]
&color(red){''2011/11/17修正''};~
-xlsファイルでセル全体を選択していた場合に動作がおかしかった問題を修正(xlsxファイルは問題無し)~

&color(red){''2011/11/8修正''};~
-セル全体を選択していた場合に動作がおかしかった問題を修正~
-保持をしない選択を行った場合に、再度保持をしないで良いか聞いてくるダイアログを追加

&color(red){''2011/10/8修正''};~
-2147483648セルorオブジェクト以上の変更に対しての「元に戻す(Ctrl+Z)」を対応~
32768個より多いセルorオブジェクトの変更は、変更前の保持を行う処理量が多いため警告ウインドウが出ます。
#ref(XL2003ColorPallete3_xlam_20111008.zip)

&color(red){''2011/5/19修正(安定版)''};~
-数値が入っているセルのフォント色を設定すると「元に戻す(Ctrl+Z)」が使えない様になっていたバグを修正
#ref(XL2003ColorPallete3_xlam_20110519.zip)

&color(red){''2011/1/2修正''};~
-図形・ワードアート・図・クリップアート・テキストボックスも、1回だけの「元に戻す(Ctrl+Z)」に対応しています~
ただし、ワークシート内に同じ名前がある場合元に戻せません(確認されているのは、クリップアートを複製すると同じ名前の物が出来てしまいます)~

&color(red){''2010/1/17修正(安定版)''};~
-「元に戻す(Ctrl+Z)」処理で32767セルを変更した場合だけ、内部のカウンタがオーバーフローを起こしていた。~
特にほおっておいても問題ない場所だったが、念のため修正。~
-旧バージョンダウンロード
#ref(XL2003ColorPallete2_xlam.ZIP)


&color(red){''2010/1/12修正''};~
-Internet Explorerでダウンロードした際に、拡張子がzipに化ける現象が起きていました。~
そうならない様にアーカイブしたファイルを置きました（中身のマクロに変更はありません）

&color(red){''2009/12/25修正''};
-複数のフォントの色が存在しているセルでも「元に戻す(Ctrl+Z)」が使えるように修正
-「フォントの色(クラシック)」ボタンを押した際にエラーダイアログが出る可能性があったのを修正

&color(red){''2009/12/21～22修正''};
-セル内に複数のフォント色が設定されている判定に引っかかった際に実行キャンセルをしても、「元に戻す(Ctrl+Z)」の内容がおかしくなってしまうバグを修正
-セルの内容保持の上限判定に引っかかった際に実行キャンセルをしても、「元に戻す(Ctrl+Z)」の内容がおかしくなってしまうバグを修正

&color(red){''2009/12/20修正''};
-セルの内容保持の上限判定をするように修正、上限を超えた場合は「元に戻す(Ctrl+Z)」が出来ないメッセージを出す
-セル内に複数のフォント色が設定されている場合は「元に戻す(Ctrl+Z)」が出来ないメッセージを出す