|
Hallo zusammen.
Heute eine relativ schnell zu beantwortende Frage:
Wie kann ich ein Säulendiagramm mit Gruppierter Achse erstellen?
Meine Idee ist einen zwei dimensionalen Array zu verwenden. Allerdings scheitere ich hier und schaffe es nicht, den gewünschten Effekt zu erzielen:
Dim a(4) As Variant
Dim b(4, 2) As Variant
Dim i As Integer
For i = 0 To 3
a(i) = i
Next i
b(0, 0) = "Säule 1"
b(1, 0) = "Säule 2"
b(2, 0) = "Säule 3"
b(3, 0) = "Säule 4"
b(0, 1) = "Gruppe 1"
b(1, 1) = "Gruppe 1"
b(2, 1) = "Gruppe 2"
b(3, 1) = "Gruppe 2"
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).Values = a
ActiveChart.FullSeriesCollection(1).XValues = b
Alternativ könnte ich vielleicht auch schon etwas damit anfangen, wenn mir einer sagen kann, welches Format
=Diagram!$C$2:$C$6
ausgibt. Weil das soweit funktioniert:
ActiveChart.FullSeriesCollection(1).Values = "=Diagram!$C$2:$C$6"
ActiveChart.FullSeriesCollection(1).XValues = "=Diagram!$A$2:$B$6"
vielen Dank.
lg. Saturi
|