使用VBA重新创建Excel图表

Question

我在一张纸上有一些图表，里面已经有一些数据系列。我需要做的是找到一个具有特定名称的图表，并用另一个系列重新填充它，其中值来自VBA计算的数组，而Xvalues来自工作表的单元格。 当它完美地找到了必要的图表时，我在图表上收到了非常奇怪的输出，好像它是各个系列的组合。这是我的代码示例：

    Set sh = ActiveSheet
    If sh.ChartObjects.Count > 0 Then
        For i = 1 To sh.ChartObjects.Count
            With sh.ChartObjects(i)
            If .Chart.HasTitle = True And .Chart.ChartTitle.Text = "Price" Then
                .Chart.SeriesCollection(1).Delete
                .Chart.ChartTitle.Text = "Price"
                .Chart.SeriesCollection.NewSeries
                .Chart.SeriesCollection(1).Values = arr1()
                .Chart.SeriesCollection(1).XValues = Range("A" & nrow + 1 & ":A" & lastrow)
                End If
            End With
        Next i
    End If

您能帮我确定这是怎么回事吗？谢谢！