Liniengrafik Werte werden nicht richtig eingetragn

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Range("C1:C30,E2,E3,E4,E5,E6,E7,E8,E9,E10:E30").Select Range("E10").Activate ActiveSheet.Shapes.AddChart.Select ActiveChart.SetSourceData Source:=Range( _ "d!$C$1:$C$30;d!$E$2;d!$E$3;d!$E$4;d!$E$5;d!$E$6;d!$E$7;d!$E$8;d!$E$9;d!$E$10:$E$30" _ ) ActiveChart.ChartType = xlXYScatterSmooth ActiveChart.SeriesCollection(2).Select ActiveSheet.ChartObjects("Diagramm 3").Activate Selection.MarkerStyle = -4142

Nun bin ich, mit altem Code, zwar schon ein Stückchen weiter - ich kann ein Chart anlegen und auch einige Einstellungen machen.
Wo es aber noch hakt ist die Definition der Grafen. Unter Excel binde ich den Grafen so ein.


=DATENREIHE(d!$D$1;d!$C$2:$C$30;d!$E$2:$E$30;1)

Aber wie erreiche ich das selbe in meinem Konstrukt zum Erstellen eines Diagramms:
irgendwie muss es doch auch da möglich sein, den Bereich zu spezifizieren - und auch den Grafen - am Ende steht ja ;1 - und da müsste ich ja ;1 ;2 ;3 ;4 - für alle 4 Grafen irgendwie einbauen können - da ja 4 Grafen (aus unterschiedlichen Spalten-Bereichen) erzeugt werden sollen


With ActiveSheet.Shapes.AddChart.Chart
.Parent.Top = Rows(4).Top
.Parent.Left = Columns(2).Left
v0 = Left(ActiveWorkbook.ActiveSheet.name, 1)
' v1 = "'" & v0 & "'!$D$" & 1 & ":$C$" & 2 & ",'" & v0 & "'!$C$" & 9 & ":$C$" & 19
'v1 = "d!$D$1;d!$C$2:$C$30;d!$E$2:$E$30"

With ActiveSheet.Shapes.AddChart.Chart .Parent.Top = Rows(4).Top .Parent.Left = Columns(2).Left .SetSourceData Source:=Worksheets("d").Range("C1:E30") .ChartType = xlXYScatterLinesNoMarkers .Axes(xlValue).MinimumScale = 0 .Axes(xlValue).MaximumScale = 100 .Axes(xlCategory).MinimumScale = 0 .Axes(xlCategory).MaximumScale = 80 End With

Danke für die Antwort...
Aber nein - es geht darum das in D1 der NAME der Grafik steht, in C1 der Name der Kurve und die Kurve sich aus der Spalte C (2-30) für die X-Werte und Spalte E (2-30) für die Y-Werte zusammen setzt.
Name und Beschreibung passt nun. Aber ich weiss einfach nicht, wie ich die beiden Bereiche bei der Range angeben kann - wie gesagt,


=DATENREIHE(d!$D$1;d!$C$2:$C$30;d!$E$2:$E$30;1)

so sieht es aus, wenn ich es direkt in Excel eingebe - den Titel habe ich selber rausgefunden,


.HasTitle = True
.ChartTitle.Text = Worksheets(v0).Cells(1, 4)

Aber die Range-Bereichs-Angabe, da komme ich einfach nicht weiter: Es sollen halt 2 nicht nebeneinander stehende Spalten für die Wertepaare herangezogen werden.
Tommi

With ActiveSheet.Shapes.AddChart.Chart .Parent.Top = Rows(4).Top .Parent.Left = Columns(2).Left .SetSourceData Source:=Worksheets("d").Range("C1") .ChartType = xlXYScatterLinesNoMarkers .HasTitle = True .ChartTitle.Text = Worksheets("d").Range("D1") .Axes(xlValue).MinimumScale = 0 .Axes(xlValue).MaximumScale = 100 .Axes(xlCategory).MinimumScale = 0 .Axes(xlCategory).MaximumScale = 80 With .SeriesCollection(1) .XValues = Worksheets("d").Range("C2:C30") .Values = Worksheets("d").Range("E2:E30") .Name = Worksheets("d").Range("C1") End With End With

With .SeriesCollection(2) .XValues = Worksheets("d").Range("G2:G122") .Values = Worksheets("d").Range("I2:I122") .name = Worksheets("d").Range("H1") End With With .SeriesCollection(3) .XValues = Worksheets("d").Range("J2:J122") .Values = Worksheets("d").Range("L2:L122") .name = Worksheets("d").Range("K1") End With usw.

With .SeriesCollection.NewSeries .XValues = Worksheets("d").Range("G2:G122") .Values = Worksheets("d").Range("I2:I122") .Name = Worksheets("d").Range("H1") End With With .SeriesCollection.NewSeries .XValues = Worksheets("d").Range("J2:J122") .Values = Worksheets("d").Range("L2:L122") .Name = Worksheets("d").Range("K1") End With

Beliebteste Forumthreads (12 Monate)

Liniengrafik Werte werden nicht richtig eingetragn

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Liniengrafik Werte werden nicht richtig eingetragn

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread