困っています。エクセルの３D棒グラフを作る時に特定の値だけ色を変える方法を教えて下さい

質問

エクセル（２００７）で３D棒グラフを作りたいのですが、特定の値だけ色を変えたい場合はどうやればいいのでしょうか？
例えば、次のような４×４のデータがあったとします。
　　１　２　 ３　　４
１　12　33　33　84
２　21　12　48　53
３　35　50　62　31
４　41　42　43　24

この時に各列の最大値だけ色を変えて棒グラフを表示させたいのです（他の値は同じ色）。具体的には、
１列目の41の色を変える
２列目の50の色を変える
３列目の62の色を変える
４列目の84の色を変える
ということがやりたいのです。

棒グラフを直接クリックして書式設定で色を変える方法しかないのでしょうか？データが多く、１個づつこのやり方をするのは時間がかかりすぎます。

大変困っております、どうかよいやり方を教えて下さい。

回答No.1

xls88 · ベストアンサー

グラフを選択してから下記VBAを実行してください。

Dim ser As Series
Dim v As Variant
Dim maxv As Variant
Dim i As Integer

For Each ser In ActiveChart.SeriesCollection
v = ser.Values
maxv = WorksheetFunction.Max(v)
ser.Interior.ColorIndex = ser.Interior.ColorIndex
For i = LBound(v) To UBound(v)
If v(i) = maxv Then
ser.Points(i).Interior.ColorIndex = 6
End If
Next i
Next

お礼

プログラムまだ載せていただいてありがとうございます。
実行してみたところ、思っていたような結果になりましたが、何ヶ所か最大値ではないのにグラフの色が変わってしまっているところがありました。なぜでしょうか？

回答No.2

xls88

＞何ヶ所か最大値ではないのにグラフの色が変わってしまっているところがありました。
＞なぜでしょうか？
salty_saltさんと、全く同じ環境でテストできないので、解りません。
ご自分でデバッグして原因を突き止めてください。
あるいは、実際の環境はどうなっているか、具体的に教えてください。

試しに、先のコードでIf文を下記に変えてみてください。
実行時に対象要素が選択され、値がメッセージ表示されます。
合っているかどうか確認できます。

If v(i) = maxv Then
ser.Points(i).Select
Application.ScreenUpdating = True
MsgBox v(i)
ser.Points(i).Interior.ColorIndex = 6
End If

お礼

すいません、最初のプログラムでうまくいってました。
勘違いしてたみたいです。
丁寧に教えて下さって本当にありがとうございました。