Question

我在调试时遇到运行时错误424，需要一个对象。有没有办法重写代码？我收到了错误： ActiveSheet.Shapes（“图表1”）。左= Sheet1.Cells（1,1）.Left

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Range("Sheet1!$A$3:$R$12")
ActiveSheet.Shapes("Chart 1").Height = 450
ActiveSheet.Shapes("Chart 1").Width = 950
ActiveChart.SetElement (msoElementLineDropLine)
ActiveSheet.Shapes("Chart 1").Left = Sheet1.Cells(1, 1).Left
ActiveSheet.Shapes("Chart 1").Top = Sheet1.Cells(2, 1).Top

Answer 1

我通过尝试我在这里找到的东西得到了答案：Excel VBA Run-time error '424': Object Required when trying to copy TextBox

我将'Sheet1'的引用更改为'ActiveSheet'并且它有效！

全部谢谢

VBA移动和调整图表大小

1 个答案: