請教各位前輩，我想用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.寫程式我是新手，請勿鞭得太厲害..><