请教各位前辈，我想用excel每两栏一组画很多折线图，顺便存盘
所以用VBA写一个程式如下;
Sub Macro1()
For i = 2 To 100 Step 2
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range(Cells(1, i), Cells(29, i + 1))
ActiveChart.ChartType = xlLine
ActiveChart.PlotBy = xlColumns
Dim mychart As Chart
Set mychart = ActiveSheet.ChartObjects(1).Chart
mychart.Export Filename:="d:\Mychart.gif", FilterName:="GIF"
Next
End Sub
但是在存盘时遇到问题，档名我不知道怎么使用变量，所以最后只会有一个图档成功输出。
请教板上高手前辈，要如何做一个图就存一个档，最后每个图都可以成功存盘?
谢谢大家
PS.写程式我是新手，请勿鞭得太厉害..><