No.2ベストアンサー
- 回答日時:
#1 さんに付けたします。
その3(途中まで、#1さんのその1と同じです)
カラーパレットを変更したブックを、ファイル-名前を付けて保存で、テンプレート(.xlt) を選び、名前を、Book にします。
そのままで保存すると、おそらく、Templates フォルダに入ります。
<ドライブ>:\Documents and Settings\<ログイン ユーザ名>\Application Data\Microsoft\Templates\
エクスプローラーで、そのお使いのExcelのスタートアップ・フォルダに、そのテンプレートを移してください。保存の際に、最初から、そのフォルダを指定しても構いません。
(XPの場合)
<ドライブ>:\Documents and Settings\<ログイン ユーザ名>\Application Data\Microsoft\Excel\Xlstart\
なるべく、上記の個人設定側のスタートアップ・フォルダがよいと思います。共通設定側のスタートアップフォルダでも、ご自身しか使わない場合は、そこでもよいです。
テンプレートファイルに限ります。他は、場合によっては、Personal.xls が入っているはずですが、それ以上は入れないでください。
そうすれば、今まで通りに使えます。
なお、マクロで登録する方法ですが、Personal.xls (個人用マクロブック)に、新規ブック用のクラス(Class)を設定をします。その3とまったく同じようになりますが、色インデックス(ColorIndex)を、ご自身でRGBの色の決定をしていただくことになるかと思います。
この回答への補足
ウェンディさん、先回は有難うございました。自作ソフトもどきにしっかり使っております。エクセルの奥の深さのとりこです。
今回もうまく行きました。
>色インデックス(ColorIndex)を、ご自身でRGBの色の決定をしていただくことになるかと思います
今回それで色の決定をしました。
No.4
- 回答日時:
こんばんは。
では、マクロで行う方法を説明しますね。まず、お好みのカラーパレットを持ったブックを用意します。
このブックを開いたまま Alt+F11 を押して、VBEを表示します。
クラスモジュールを挿入し、そこに、以下のコードを貼りつけます。
Option Explicit
Public WithEvents ap As Excel.Application
Private Sub ap_NewWorkbook(ByVal Wb As Excel.Workbook)
Wb.Colors = ThisWorkbook.Colors
End Sub
次にThisWorkbookモジュールを開いて以下のコードを貼りつけ。
Option Explicit
Dim cls As New Class1
Private Sub Workbook_Open()
Set cls.ap = Application
End Sub
Alt+Qでエクセルに戻って、このブックをアドイン形式で保存します。(例: カラーパレット.xla)
エクセルのメニューからツール-アドインをクリック。
アドインのダイアログから今、保存したカラーパレットをさがして、チェックを入れる。
なければ、参照ボタンを押して、探して下さい。
OKボタンを押してダイアログを閉じます。
開いているブックは無くてもかまいませんが、今後のために保存して閉じておきます。
この後、新規にブックを作成すると、新しいカラーパレットが、反映されているはずです。
うまく反映されないときはエクセルを再起動してみて下さい。
なお、既存のブックには新しいカラーパレットは反映されません。
以上です。
この回答への補足
masa_019さん、こんばんは。
素早い追加ご回答本当に有難うございました。
未だ勉強に取り掛かっていないのでこの記述をどう使うのかもわかりません。でも、保存して置いて理解出来た時に使わせて頂きます。
No.3
- 回答日時:
エクセルのカラーパレットは56種で、配列のインデックスで指定できる。
VBAでの表現を見ると、オブジェクトが、ActiveWorkbook,Workbookとなっており、今開いているブックにしか設定できないのでしょう。もしApplication.Colors(1)=RGB(R,G,B)のように指定できるなら、最終に設定したカラーパレットでブックが開かれると思いますが、そうなっていない。(ツールーオプションの設定はエクセル単位なのか・ブック単位・シート単位の設定になるかが私にはすっきりしません。不勉強のぼやき。)
またWorkbooks("ブック名.xls").Colors(1)=RGB(R,G,B)のように使えればよいのですが無理のように思います。できるかも知れないが、例が出ているのが、ほとんどがActiveWorkbookの例です。
---
ですから1つよく使うカラーパレットのブック(テンプレートでなくても)を作っておいて、そこから(通常では新規や既存のブックを開いたはじめ時期に)VBAでコピーはできるようですので、それを使うことになります。
ActiveWorkbook.Colors = Workbooks("元パレット.xls").Colors
http://www2.moug.net/cgi-bin/technic.cgi?exvba+T …など
カラーパレットはその場限り(画家が毎回パレットを水で洗い流すイメージ)に設計者は考えたのかもしれません。(推測)
引き継がないほうが(毎回標準に戻るほうが)よい場合も多いかもしれない。
この回答への補足
いもがしさん、有難うございます。先回は有難うございました。先回の質問がきっかけになりましてVBを購入しました。
>カラーパレットはその場限り(画家が毎回パレットを水で洗い流すイメージ)に設計者は考えたのかもしれません。(推測)
理解、納得!
>引き継がないほうが(毎回標準に戻るほうが)よい場合も多いかもしれない。
使いたいデフォルトカラーが3色しかありません。後はため息をつきながら使っています。そんな事から今回の質問を起こしました。
No.1
- 回答日時:
あまり良い方法は思いつかないのですが、
その1
お好みに変更したカラーパレットを持つブックを
テンプレートにして(拡張子 .xlt で)保存して、
次回からこのテンプレートを使う。
その2
マクロになりますが,新規ブックのカラーパレットを
変更するアドインを作って登録する。
これなら意識しなくも変更されたカラーパレットが
デフォルトのように使えます。
エクセルの設定で簡単に、と言うわけにはいかないようです。
(私が知らないだけかも知れませんが・・・。)
その1のやり方がお勧めです。もし、やってみたければ
その2の方法もご説明します。
この回答への補足
masa_019さん、こんにちは、有難うございます。
<その1>はウェンディさんの助けもお借りして成功しました。
でも、マクロにも興味があります。これからVBを勉強するところですから宜しかったらお教え下さい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの編集オプション セル移動 2 2022/04/02 09:19
- その他(Microsoft Office) エクセルの休日について教えてください。 1 2023/01/06 15:45
- Excel(エクセル) エクセルでセルを挿入するとき、デフォルトのシフト方向を変更したい 3 2023/08/02 18:17
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/04/13 10:55
- Excel(エクセル) エクセルについて教えてください。 1 2023/03/03 08:38
- Android(アンドロイド) スマホ初心者です。 そろそろバッテリーの寿命が来たみたいです。 機種変更したら自分で設定した現在のG 5 2022/06/10 21:18
- Google Drive Googleカレンダーの新規予定登録のカレンダー変更方法 2 2022/06/11 19:16
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/08 15:45
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/09 10:33
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
荷捌作業効率をあげるためのエ...
-
アクリル絵の具の落とし方
-
縦に重ねた物の数え方を知りたい
-
イラレわかる方お願いします!
-
EXCEL VBAのユーザーフォームの...
-
一太郎の文字パレットが表示さ...
-
商品をパレットに積む時にひと...
-
カラーチャート(カラーパレット...
-
excel2010でカラーパレットを出...
-
文字パレットの表示
-
エクセルである行以下全部を削...
-
EXCEL VBAで全選択範囲の解除
-
白飛びした(明るい)写真をiPhon...
-
言語の選択や国の選択をする時...
-
「無」と「未」の使い方
-
Androidのスマホで毎回毎回ホー...
-
VBAでファイルを開くときにファ...
-
PANTONE の 正しいCMYK値の調べ方
-
Excel VBA あるセルでENTERを押...
-
visual studio でインデントを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクリル絵の具の落とし方
-
荷捌作業効率をあげるためのエ...
-
イラレわかる方お願いします!
-
縦に重ねた物の数え方を知りたい
-
何か月ぶりの工場内の物流業務...
-
excel2010でカラーパレットを出...
-
一太郎の文字パレットが表示さ...
-
木製パレットをベッドにすると...
-
文字パレットの表示
-
フォークリフト操作
-
巨大な鉄のかごの名前
-
Excelで勝手に色が変わる?
-
アプリアイコンの色の変え方が...
-
mac カラーパレットを保存したい
-
EclipseでEditTextが表示されな...
-
教えてください。 直径43センチ...
-
エクセル2013~2016の色の対処方法
-
エクセルでシートによって選択...
-
EXCEL VBAのユーザーフォームの...
-
スーパーのチラシなどで使われ...
おすすめ情報