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

【问题标题】：Error at creating simple x y smooth chart创建简单 x y 平滑图表时出错
【发布时间】：2016-05-04 04:57:48
【问题描述】：

我正在尝试创建一个动态图表，该图表将随时间更改数据集，但我被困在第一步，即创建一个具有一定数量有限点的简单图表。

我的 x 值和 Y 值位于第 3 行和第 5 行。

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

子 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

结束子

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

【问题讨论】：

标签： vba excel

【解决方案1】：

With 语句的第一行有错字。很难看到，但有一个1 而不是l。应该是

.ChartType = xlXYScatterSmooth

【讨论】：

嗨，还是一样的错误 :( ，错误与 ChtObj.Chart 一致，所以它甚至还没有达到 .ChartType ..
对代码进行了一些更改，它起作用了！再次感谢 teylyn！