将自定义图表从一个图表工作表移动到另一个图表工作表时的运行时

Question

尝试创建新图表并将其移动到预先存在的图表工作表时，我得到1004运行时（指定的维度对当前图表类型无效）。我不清楚这个。我哪里错了？当我使用调试器逐步完成程序时，它完全有效。

Sub CreateChart(chartName As String, chartLocation As String, freqRng As Range, binRng As Range, meanRng As Range, meanHgt As Range)
Dim chrt As Chart
Set chrt = ThisWorkbook.Charts.Add
chrt.ChartType = xlColumnClustered
chrt.SetSourceData freqRng, xlColumns
chrt.SeriesCollection(1).XValues = binRng

With chrt.SeriesCollection.NewSeries
    .Values = meanHgt
    .XValues = meanRng
    .ChartType = XlChartType.xlXYScatterLines
End With

chrt.HasAxis(xlCategory, xlSecondary) = False
chrt.HasAxis(xlValue, xlSecondary) = False
chrt.Location xlLocationAsObject, chartLocation
End Sub

chartName是未使用的ATM。这在技术上是一个柱形图，其中一个系列是XY散射/线，这样我就可以制作一条平均线。

感谢您的任何意见！

Answer 1

我＆＃34;解决了＃34;这个问题。代码在步进时工作，并且错误根本没有影响任何东西，所以我只是添加了On Error Resume Next以便它只是跳过。小心，这可能会导致您错过致命错误。但是，如果你真的知道什么都不会出错，那就试试吧。