Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Kreisdiagramm Datenreihe hinzufügen

Kreisdiagramm Datenreihe hinzufügen
25.07.2017 22:50:14
J-
Zur späten Stunde könnte ich kurz Hilfe gebrauchen. Ich vermute, die Lösung ist ganz einfach, aber ich komm nicht drauf....
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
Die eigentliche Frage ist jetzt; Wie füge ich weitere Datenreihen hinzu?
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kreisdiagramm Datenreihe hinzufügen
26.07.2017 15:00:39
J-
Hat sich bereits Verlegung! Haben selber rausgefunden!
Lösung, falls noch jemand das Problem hat:

ActiveChart.FullSeriesCollection(1).values = "1,0,0,0"
Es muss für jede gewünschte Datenreihe ein Wert übergeben werden, auch wenn dieser 0 ist. Alternativ kann natürlich direkt ein Array übergeben werden.
Anzeige
SORRY FÜR DIE TIPPFEHLER!!
26.07.2017 15:02:15
J-
:(
Ohne Select
26.07.2017 21:56:42
Beverly
Hi,
mal nur als Tipp am Rande: man kann in 99% aller Fälle auf Select/Activate verzichten:

Dim arrWerte
arrWerte = Array(1, 0, 0, 0)
With ActiveSheet.Shapes.AddChart2(251, xlPie).Chart
.ChartStyle = 260
.SetSourceData Source:=Cells(8, 10)
With .SeriesCollection.NewSeries
.Name = Cells(8, 10)
.Values = arrWerte
.ApplyDataLabels
.DataLabels.Delete
End With
.ChartTitle.Text = "xy:"
.HasLegend = True
End With



Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige