VBAによる累積棒グラフ

Question

私は単純なグラフを生成するコードを持っています。さて、私はこれを変更したい：X値のそれぞれについて）X値はA、B、C、Dの

2でなければならない）

1、私は三つの値を蓄積、蓄積されたバーを必要とします - 赤色、青色、琥珀色で表示されます。 （それは、私は4つのバーがあり、各バーは赤、青、琥珀色の部分を含んでいます）

コードを提案してください：例ではまだX軸のタグを変更する必要がありますし、緑の色は黄色でなければなりません。

BWピータービュンデハンセン

Sub Example() 
With Sheets("Sheet1").ChartObjects.Add(0, 0, 300, 300).Chart.SeriesCollection.NewSeries 
    .Name = "A B C D type errors" 
    .XValues = Array(1, 2, 3, 4) 
    .Values = Array(1, 4, 9, 16) 
End With 

End Subの

Answer 1

私がしたいことはタイプxl3DColumnStackedグラフであるが、それはこれだけ受け入れ：

Sub Example() 
    With Sheets("Sheet1").ChartObjects.Add(0, 0, 300, 300).Chart.SeriesCollection.NewSeries 
     .Name = "A B C D type errors" 
     .XValues = Array(1, 2, 3, 4, 5) 
     .Values = Array(1, 4, 9, 16, 25) 
     .Type = xl3DColumn 
    End With 
End Sub