[エクセル]マクロで、自動的にグラフの色を変える方法

エクセルでの質問です。

例えば、5種類の項目がありそれをＡ～Ｅとします。
それぞれがｘ軸になりグラフがあったとします。
Ａ～Ｅそれぞれのグラフで色が決まっていたとします。
しかしながら、通常はこのＡ～Ｅの順番を変えてもグラフの色は
もとの順番のままだと思います。
（左から順番に赤・青・黄色・・・・等になっていてＡ～Ｅ
　の項目とは無関係）

なので、関数とかではそれぞれの項目ごとに色を決定させることは
できず、やるならマクロを組むことになると思います。

どのような構文にすればいいのでしょうか？
よろしくお願いします。

No.2 ベストアンサー 回答者： xls88 回答日時： 2008/10/02 04:47

文面から推察すると、グラフの種類は集合縦棒グラフでしょうか？

Excelのグラフでは、系列毎に同じ色が自動的に割り当てられます。
塗りつぶし色変更操作を「マクロの記録」すれば参考コードが得られます。

≪系列1の棒の色を変更≫
Sub test特定系列の塗り潰し()
　　With ActiveChart.SeriesCollection(1)
　　　　.Interior.ColorIndex = 25
　　End With
End Sub

≪特定要素の棒の色を変更≫
Sub test特定要素の塗り潰し()
　　With ActiveChart.SeriesCollection(1).Points(3)
　　　　.Interior.ColorIndex = 23
　　End With
End Sub

≪折れ線とマーカーの色を変更≫
Sub test折れ線の色()
　　With ActiveChart.SeriesCollection(1)
　　　　.Border.ColorIndex = 6
　　　　.MarkerBackgroundColorIndex = 6
　　　　.MarkerForegroundColorIndex = 6
　　End With
End Sub

No.1 回答者： okormazd 回答日時： 2008/10/02 01:47

どんなグラフかわからないので、なんとも。

グラフを作って、マクロ記録しながら、変えたいところの色を変えるのをやってみて、記録されたマクロを見て研究してください。