|
とりあえずこんな感じで色付けは出来ましたが、棒グラフの値を表示する必要
があるなど、どんどん要求事項が増えてきて、手に負えなくなってきたので、
やはりエクセルのグラフ機能を使うことにしました。
色々とありがとうございました。
(追伸)
そもそも、どうしてこういうことを始めたかというと、エクセルで書いた
3Dの棒グラフはグラフエリアの高さを極端に小さくすると、幅が勝手に
小さくなって、どうしても広くすることが出来ないという問題があるからです。
2Dのグラフならこんな問題は無いのですが。
今回は3Dで高さの大きいグラフを書いて、ビットマップとして高さを
小さくすることで対処することにしました。
Dim 図形 As Shape
Count = 0
For Each 図形 In ActiveSheet.Shapes
図形.Select
If Count Mod 3 = 0 Then '3で割った余り
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 15
End If
If Count Mod 3 = 1 Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
End If
If Count Mod 3 = 2 Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 14
End If
Count = Count + 1
Next
|
|