0

我想使用以下代码循环绘图:

1  For i = 354 To 357

2    Range((Cells(208, 353)), Cells(219, 353)).Select
3    Range(Cells(208, i), Cells(219, i)).Select

4    ActiveSheet.Shapes.AddChart.Select
5    ActiveChart.ChartType = xlColumnClustered
6   ' ActiveChart.SetSourceData Source:=Range("Sheet2!Cells(208,354):Cells(219,354)")
7    ActiveChart.Axes(xlValue).MajorGridlines.Select
8    Application.WindowState = xlMaximized
9    ActiveChart.ApplyLayout (9)

10    Next i
11 End Sub

但是,第 6 行出现运行时错误,有人可以帮忙吗?

干杯

4

1 回答 1

1

在问题行中,您需要设置对工作表和单元格范围的正确引用。因此,该行代码应如下所示:

ActiveChart.SetSourceData Source:=Sheets("Sheet2").Range(Cells(208,354),Cells(219,354))
于 2013-08-01T07:26:43.367 回答