将定制图表从一个图表移动到另一个图表时的1004运行时间

尝试创建新图表并将其移至预先存在的图表时，我得到了1004运行时（指定的尺寸对当前图表类型无效）图表。我不知道这件事。我哪里错了？当我使用调试器完成程序时，它完全可以工作。将定制图表从一个图表移动到另一个图表时的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散射/线条，以便我可以制作一条平均线。

感谢您的任何意见！

来源

2015-07-20 KFichter

当您遇到错误并进入调试时，您的错误是哪一行？ – TMH8885

@ TMH8885它位于'chrt.Location xlLocationAsObject，chartLocation'上，只有当图表实际上从一张表移动到另一张时才会发生。有没有办法在没有.Location的情况下移动图表，然后让它不占用整个图表并且不可缩放？ – KFichter

我“解决了”这个问题。代码在步进时工作，并且错误根本不会影响任何内容，所以我只是添加了On Error Resume Next，以便它可以跳过。小心，这可能会导致你错过致命的错误。但是，如果你真的不知道什么是错的，那就使用它。

来源

2015-07-21 13:34:43 KFichter

将定制图表从一个图表移动到另一个图表时的1004运行时间

回答

相关问题