Excel 复制方法上的不匹配错误_Excel_Vba_Charts

Excel 复制方法上的不匹配错误

excel vba charts

Excel 复制方法上的不匹配错误,excel,vba,charts,Excel,Vba,Charts,我试图在Excel2007中实现一些vba代码来复制一个图表（图表对象），然后将其移动到另一个工作表。我已经找到了一个很好的方法，但是在2010年遇到了一些问题。此后，我转而使用chartobject.duplicate方法创建副本，但遇到了不匹配错误。程序实际上复制了图表，但仍然给出了一个错误 Dim w As Double 'The width of the new table Dim h As Double 'The height of the new table Dim cht As C

我试图在Excel2007中实现一些vba代码来复制一个图表（图表对象），然后将其移动到另一个工作表。我已经找到了一个很好的方法，但是在2010年遇到了一些问题。此后，我转而使用chartobject.duplicate方法创建副本，但遇到了不匹配错误。程序实际上复制了图表，但仍然给出了一个错误

Dim w As Double 'The width of the new table
Dim h As Double 'The height of the new table
Dim cht As ChartObject



    Worksheets("Charts").ChartObjects("OT DAY").Activate
    Set cht = Worksheets("Charts").ChartObjects("OT DAY").Duplicate
    cht.Name = "Chart 1"
    Worksheets("Charts").Charts("Chart 1").Location xlLocationAsNewSheet, curMod

将cht设置为objectchart duplicate时发生错误

谢谢

Dim cht As Shape 'not ChartObject