Question

我正在尝试创建一个动态图表，它会随着时间的推移改变数据集，但是我仍然坚持创建一个具有一定数量点数的简单图表的第一步。

我的x值和Y值在第3行和第5行。

我试图运行的代码是在我正在使用的同一工作表中创建图表：

Sub UpdateChart（）

Dim ChtObj As ChartObject

Set ChtObj = ActiveSheet.ChartObjects("Bending Moment along " & ActiveSheet.Name) 'Adjust chart name to your chart

With ChtObj.Chart
    .ChartType = x1XYScatterSmooth
    .SetElement msoElementLegendNone
    .Axes(xlValue).MinimumScale = 0
    .Axes(xlValue).MaximumScale = 5
    .SeriesCollection.NewSeries
    .SeriesCollection(1).Name = "Bending moment"
    .SeriesCollection(1).Values = Range("D3:H3")
    .SeriesCollection(1).XValues = Range("D5:H5")
End With

End Sub

我收到错误运行时5，无效的过程调用或参数？这发生在以下行：使用ChtObj.Chart

Answer 1

With声明的第一行有拼写错误。很难看到，但有一个1而不是l。它应该是

.ChartType = xlXYScatterSmooth

创建简单的x y平滑图表时出错

1 个答案: