[[20050511192730]]　『ピボットグラフの塗りつぶしの色を固定したい』（こけっこ）　ページの最後に飛ぶ

『ピボットグラフの塗りつぶしの色を固定したい』（こけっこ）

Excel2000でピボットグラフを使って、各項目の割合を図示しています。
ただ、各項目と言うのが固定ではなく、表示するグループを変えると項目の色が変わってしまいます。何か良い方法はありませんでしょうか？

例：

 人 グループ 項目 値
 A  あ       イ   5 
 A  あ       ロ   7
 B  い       イ   1
 B  い       ロ   2
 B  い       ハ   3

このようなシートがあった時、ピボットグラフを作ります。
（ページ＝「グループ」、行＝「人」、列＝「項目」、データ＝「値（合計）」）

この時、グループ＝「あ」を表示した場合は、「ロ」の色は紫になりますが、グループ＝「い」を表示した場合は、「ロ」の色は薄い黄色になってしまいます。
できれば、「ロ」の色は紫に固定したいのですが、その方法が分かりません。
長くなってしまいましたが、どなたか教えてください。
宜しくお願いします。

 私のもっているデータでおこなってみたのですが、ページを変更しても項目の色は変更されませんでした。
 何か他に条件があるのでしょうか？
 使用しているグラフは割合ということなので、100積み上げ縦棒グラフに変更しておこなってみました。
 （みーこ）

 Excel2000 の仕様のようです。
 [XL2000] ピボットグラフを変更すると系列の書式が削除される
http://support.microsoft.com/default.aspx?scid=kb;ja;215904

 マクロの記録で対応できるようです。
 納得いくグラフを作ってユーザー定義し、それを呼び出せば
 面倒な呪文コードは一行でいいようですよ。　　（jun53）

jun53さん、回答ありがとうございます。
一つ追加で教えてください。
マクロを記録しようとしたのですが、「ActiveChart.SeriesCollection(2).Select」のような形で、「何番目」の指定しか記録に残りませんでした。これを、「イの項目」や「ロの項目」などについて指定する事は可能でしょうか？マクロがあまり得意ではないので、すみませんが宜しくお願いします。
また、できれば、ページが変更されると自動的に指定したマクロが実行されるようにしたいのですが、可能でしょうか？可能であれば、方法を教えてください。
（こけっこ）

 ショウトツしました。最初に書いてた部分です。

 「イの項目」色指定～「ロの項目」色指定...
 これを順に記録、で出来ると思いますが意味が違ってますか？

 今回は
 >表示するグループを変えると項目の色が変わってしまいます。
 ↑これに対する簡単な対処方法を提案します。

 まず、グラフをユーザー定義します。
 １）ピボットグラフのグループで(すべて)を選択し、
     ご自分の納得いく色指定などで「これだっ！」というようなグラフを作成。
 ２）グラフ上右クリック ～ [グラフの種類] ～ [ユーザー定義] ～ [ユーザー定義]の選択元に[ユーザー定義]チェック
 ３）[追加ボタン] ～ 名前を付けて　OK

 以下を自動記録します。
 グラフ上右クリック ～ [グラフの種類] ～ [ユーザー定義]の選択元に[ユーザー定義]チェック ～
 付けた名前のグラフを選択してを　OK ～ マクロの記録を停止
 ↑以上をボタンに登録します。

 Sub Macro1()

     ActiveChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:="定義の名前"

 End Sub

 標準モジュールに、こんな感じになると思います。　　（jun53）

 ピボットグラフの各項目変更時点で働いてくれ、ということなら

 ↓[ピボットテーブル]の有るシートモジュールに貼り付けてください。

 Private Sub Worksheet_Change(ByVal Target As Range)

     Sheets("Graph1").Select
     ActiveChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:="定義の名前"

 End Sub

 "Graph1"     → ピボットグラフのあるシート名にする。
 "定義の名前" → ユーザー定義で付けた名前に。
 でしょうか。　　（jun53）

jun53さん、度々ありがとうございます。
教えていただいた方法でやってみたのですが、ピボットグラフの項目を変えた時に自動では動いてくれませんでした。
変わりに、Worksheet_Calculateでやってみると、一応思い通りのができました。
これは、やり方の問題でしょうか？
（ちなみに、Worksheet_Changeでは、セルの変化は読めるようですが、ピボットグラフの項目変更は読めないような感じでした。
何度もすみませんが、宜しくお願いします。
（こけっこ）

 ダメでしたか？
 こちらでは[こけっこ]さんの提示されたデータで、指定された手順通りにテーブルを作り
 グラフを作って試したのですが、
 テーブルのほうに何らか直接の変化が有った時や、グラフで選択項目変更時に
 きちんと動いてくれるのですが...困りました。

 もう少しお待ち下さい、詳しい方が教えてくれると思いますので。　　（jun53）

コメント返信：

[ 一覧(最新更新順) ]

[[20050511192730]] 『ピボットグラフの塗りつぶしの色を固定したい』（こけっこ） ページの最後に飛ぶ

[[20050511192730]]　『ピボットグラフの塗りつぶしの色を固定したい』（こけっこ）　ページの最後に飛ぶ