質問: vbaで棒グラフの色を変えたい vbaの初心者です。 棒グラフで1つの系列の色を自動で変えたいのですが、うまくできません。 エクセルファイルは品目ごとにシートが分かれていてすべておなじようにグラフがあります。 図のように、進行率順に並び替えるので、シートごとに店舗「e」は順番がかわります。 例としてシート「りんご」のグラフの店舗「e」のみを色を変えていく場合はどのようにしたらできるでしょうか? マクロの記録でやってみてもうまくいきません。 ご回答、よろしくおねがいします。
回答: atom11290301さん こんにちは。 グラフはマクロ記録だけではなかなか難しいようですね。 一応簡単ですが、以下の処理でできると思います。 sub eの色変更() dim i as integer dim 店舗名 as variant with sheets("りんご").chartobjects("グラフ 1").chart.seriescollection(1) 店舗名 = .xvalues for i = 1 to ubound(店舗名) if 店舗名(i) = "e" then .points(i).interior.colorindex = 3 next i end with end sub 注)sheet1、"グラフ 1"、色(colorindex)等は変更してください。