VBA自动生成图表

《VBA自动生成图表》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、SubBatchPlot()  Dimi  Fori=2To10      Charts.Add      '增加一个图表      ActiveChart.ChartType=xlLineMarkers      '设置图表类型为折线图      ActiveChart.SetSourceDataSource:=Sheets("批量绘图").Range("A1:D1,"&"A"&i&":D"&i),PlotBy:=xlRows      '设置图表的数据源      ActiveChart.LocationWhere:=xlLoc

2、ationAsObject,Name:="批量绘图"      '设置图表的位置为当前工作表中      ActiveChart.Parent.Top=220*(i-2)      '设置图表的上下间隔为220磅      ActiveChart.Parent.Left=456      '设置图表距左为456磅  NextiEndSub以完成的SubBatchPlot()'Setab=Range("H7:Q23")'生成图表的位置Setab=Range(Cells(7,8),Cells(23,17))Setbbb=ActiveSh

3、eet.ChartObjects.Add(0,0,0,0)bbb.Chart.ChartType=xlLineMarkers'折线图bbb.Chart.SetSourceDataSource:=Sheets("Sheet1").Range("C1:C128")'数据源'ActiveChart.LocationWhere:=xlLocationAsObject,Name:="批量绘图"'设置图表的位置为当前工作表中Withbbb.Top=ab.Top.Left=ab.Left.Width=ab.Width.Height=ab.Heig

4、htEndWithEndSubSubBatchPlot()DimiAsLongFori=1To42988Step21i=1Setab=Range(Cells(i+1,9),Cells(i+20,17))'Setab=Range(Cells(9,2),Cells(15,21))Setbbb=ActiveSheet.ChartObjects.Add(0,0,0,0)bbb.Chart.ChartType=xlLineMarkers'折线图bbb.Chart.SetSourceDataSource:=Sheets("Sheet2").Ra

5、nge(Cells(i+1,7),Cells(i+20,7))'数据源'bbb.Chart.SetSourceDataSource:=Sheets("Sheet1").Range(Cells(7,2),Cells(7,21))Withbbb.Top=ab.Top.Left=ab.Left.Width=ab.Width.Height=ab.HeightEndWithNextEndSub