Accumulative Balkendiagramm über VBA

Question

Ich habe Code, der eine einfache Grafik generiert. Nun möchte ich, dies zu ändern:

1) Die X-Werte müssen A, B, C, D.

2) Für jede der X-Werte, ich brauche eine akkumulierte Bar, Akkumulieren drei Werte - angezeigt in rot, blau, amber. (Es bedeutet, ich habe vier Bars, jede Bar enthält einen roten, blauen und gelben Teil accumulated bar graph)

Bitte Code vorschlagen? Im Beispielbild muss ich noch die X-Achsen-Tags ändern und die grüne Farbe sollte gelb sein.

BW Peter Hansen Bunde

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

Was ich will, ist eine Art xl3DColumnStacked Graph, aber es nimmt nur so viel:

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