Kreisdiagramm Datenreihe hinzufügen
25.07.2017 22:50:14
J-
Ich will verschiedene Kreisdiagramme zeichnen. Der Punkt ist, eines meiner Kreisdiagramme soll 4 Datenreihen haben (mit Legendenbeschriftung), wobei der/die/das (?) value von einer der Reihen bei ={1} liegt und alle anderen sind bei ={0}, es soll für diese Datenreihen im Kreisdiagramm also "nur" die Legendenbeschriftung angezeigt werden.
Hier ist mein Code:
Sub zeichnen()
ActiveSheet.Shapes.AddChart2(251, xlPie).Select
ActiveChart.SetSourceData Source:=Cells(8, 10)
ActiveChart.ChartStyle = 261
ActiveChart.SetElement (msoElementDataLabelNone)
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).Name = Cells(8, 10)
ActiveChart.FullSeriesCollection(1).Values = "={1}"
ActiveChart.FullSeriesCollection(1).XValues = Cells(7, 10)
ActiveChart.ChartTitle.Text = "xy:"
End Sub