软件: Excel 2007, Win7
硬件: Intel i3-3240T, RAM 8G
我用excel宏画大量曲线图，一开始很快，可是run了大约100个之后就开始变很慢了，
请教各位前辈专家如何解决? 感谢
程式码如下;
Sub Macro1()
For i = 2 To 1000 Step 2
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range(Cells(1, i), Cells(25, i + 1))
ActiveChart.ChartType = xlLine
ActiveChart.PlotBy = xlColumns
Dim mychart As Chart
Set mychart = ActiveSheet.ChartObjects(i / 2).Chart
mychart.Export Filename:="d:\sales.gif" & Cells(1, i) & ".gif", FilterName:="GIF"
Next
End Sub

http://goo.gl/MkVCbR 试试这样的速度可否接受

速度真的快太多了，谢谢s大，超强!!!

^^