VBA Excel Chart SeriesCollection (Programare, Excel, Vba, Diagrame)

Trenera a intrebat.
a intrebat.

Mă lupt de câteva ore cu o eroare.Vreau să fac un cod care să traseze același interval pentru fiecare foaie.Când adaug o colecție de serii nu reușește.Am modificat codul dintr-un macro înregistrat, care funcționează perfect.Acesta este codul în cauză:

Sub plot()

Dim wb As Excel.Workbook
Set wb = ThisWorkbook
Dim ws As Worksheet
Dim name As String
Dim plot As Excel.Shape

For Each ws In wb.Worksheets
name = ws.name
Set plot = ws.Shapes.AddChart
plot.Chart.ChartType = xlXYScatterLines'until here it works perfectly
plot.Chart.SeriesCollection(1).name = "=""something"""' on this line I get the error
Next

End Sub

Și eroarea este:

Eroare de execuție – eroare de timp ‘1004’:
Eroare definită de aplicație sau de obiect

Iar ajutorul spune că este o eroare de la excel, nu de la VBA, deci nu-i pasă… :)Orice ajutor va fi foarte apreciat.Noroc!

Comentarii

  • Nu există o serie de numit dacă nu există date în grafic. –  > Por Jon Peltier.
1 răspunsuri
Nathan Fisher

Cred că trebuie să adăugați

plot.Chart.SetSourceData Range("A1", "D4")

chiar sub linia care funcționează perfect, astfel încât să obțineți acest lucru

Sub plot()

Dim wb As Excel.Workbook
Set wb = ThisWorkbook
Dim ws As Worksheet
Dim name As String
Dim plot As Excel.Shape

For Each ws In wb.Worksheets
name = ws.name
Set plot = ws.Shapes.AddChart
plot.Chart.ChartType = xlXYScatterLines 'until here it works perfectly
plot.Chart.SetSourceData Range("A1", "D4")
plot.Chart.SeriesCollection(1).name = "=""something""" ' on this line I get the error
Next

End Sub