Serienwerte in benannten Bereich ändern

Question

Ich habe ein Diagramm in Excel ("Diagramm 13"), ich habe auch einen benannten Bereich namens "Staatsangehörige".

Ich mag eine der Y-Werte mit dem benannten Bereich der Kartenserie ersetzen (das Diagramm drei Serien hat, plane ich für alle drei ein ähnliches Verfahren zu wiederholen).

Das ist, was ich ohne Erfolg versucht:

ActiveWorkbook.Sheets("My_Sheet").ChartObjects("Chart 13").Activate 
ActiveChart.SeriesCollection(1).Values = Range("nationals") 

ich die folgende Fehlermeldung erhalten:

"Run-time error '91': Object variable or With block variable not set"

Ich fühle mich wie ich in der Nähe bin, aber bis ins Ziel nicht bekommen kann Linie für das Leben von mir! Ich schätze jede Hilfe.

BEARBEITEN Dies ist ein Liniendiagramm (mit Markierungen) - Entschuldigung, das war vorher nicht klar. Einfache Version derselben Situation:

Answer 1

Sie müssen Objekt in den Bereich hinzufügen wie folgt:

Dim MyChart 
Set MyChart = ActiveWorkbook.Sheets("My_Sheet").ChartObjects("Chart 13").Chart 

MyChart.SeriesCollection(1).Values = ActiveWorkbook.Sheets("My_Sheet").Range("nationals") 

Auch, wie Sie beachten, das ChartObjects().Chart Objekt die SeriesCollection hat.