创建简单xy平滑图表时出错

我正在尝试创建一个动态图表，它将随时间更改数据集，但我陷入了创建带有一定数量限制点的简单图表的第一步。创建简单xy平滑图表时出错

我的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

来源

2016-05-03 Mofasa E

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

.ChartType = xlXYScatterSmooth

来源

2016-05-03 20:57:48 teylyn

嗨，还是同样的错误:(，错误的是符合ChtObj.Chart，所以它甚而没有达到.ChartType还.. –

改变了一下代码，它的工作！再次感谢特林！ –

创建简单xy平滑图表时出错

回答

相关问题