Você tem razão, essas atribuições aos valores das séries não impactuam nelas. Minha opinião é que quem escreveu o código inseriu esse trecho só para sabermos como se altera os valores e
nome das séries de um gráfico.
Para atribuir um array à um gráfico, utilize um código como:
Sub AtribuirArrayParaSérie()
Dim seSeries As Series
Dim myChart As Chart
Dim ar(0 To 9) As Double
ar(0) = 15
ar(1) = 20
ar(2) = 25
ar(3) = 35
ar(4) = 65
ar(5) = 75
ar(6) = 85
ar(7) = 95
ar(8) = 15
ar(9) = 55
Set myChart = ActiveSheet.ChartObjects(1).Chart
For Each seSeries In myChart.SeriesCollection
If seSeries.Name = "Teste" Then
seSeries.Values = ar
End If
Next seSeries
End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br