[問題] 請高手幫我看用excel VBA畫圖存檔問題
請教各位前輩，我想用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.寫程式我是新手，請勿鞭得太厲害..><
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.122.7.21
※ 文章網址: http://www.ptt.cc/bbs/Office/M.1408161466.A.138.html
→
08/16 14:24, , 1F
08/16 14:24, 1F
→
08/16 14:24, , 2F
08/16 14:24, 2F
→
08/16 14:25, , 3F
08/16 14:25, 3F
→
08/16 22:41, , 4F
08/16 22:41, 4F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
