Excel VBA活动图表数据-将Excel数据复制到PowerPoint Excel图表数据

Question

在Excel VBA中使用ChartData时遇到问题。

With PP_App.ActivePresentation.Slides(SlideNum).Shapes("Chart 3").Chart.ChartData
        .ActivateChartDataWindow
        Application.Wait (Now + TimeValue("0:00:01"))
        .Workbook.Range(Cells(2, 1), Cells(34, 34)).Value2 = worksheet_name.Range(Cells(4, 2), Cells(36, 35)).Value2
        .Workbook.Sheets(1).Calculate
        .Workbook.Close savechanges:=False
    End With

但是在此行中，vba出现错误“运行时错误'438'：对象不支持此属性或方法”

.Workbook.Range(Cells(2, 1), Cells(34, 34)).Value2 = worksheet_name.Range(Cells(4, 2), Cells(36, 35)).Value2

问题是，当我使用RowColumn模式（例如A1，B2）尝试时，它可以工作。但是我需要使用数字，这样我才能轻松循环。

有什么建议吗？

谢谢