用vba循環語句進行Excel編程繪圖

對於i=4到34

ActiveSheet。ChartObjects ("chart 1 ")激活。

ActiveChart。海圖區域，收到

單元格(5，n)。挑選

ActiveSheet。粘貼

ActiveSheet。ChartObjects("圖表50 ")激活。

ActiveChart。圖表標題。選擇

選擇。Caption = sheets(“沿河而畫”)。單元格(1，I)

ActiveChart。SeriesCollection(1)。挑選

活動圖表。系列收藏(2)。Name = Sheets(“沿河繪制”)。細胞(2，I)

活動圖表。系列收藏(2)。價值=表(“河邊圖紙”)。範圍(表(“河邊圖紙”)。單元格(3，I)，表(“河畔圖”)。單元格(1828，I))

末端接頭