最近在做一个项目,需要将大量的数据进行计算最后将数据以图表的方式在EXCEL中展现。
其实都很简单,就看下面的代码吧:
Dim objcharts As Excel.ChartObjects = xlBook.Worksheets(ee).chartobjects '添加chart的集合 Dim chart = objcharts.Add(500, 10, 400, 250) '指定chart位置,定义chart chart.Chart.ChartType = XlChartType.xl3DColumnClustered 'chart.Chart.SetSourceData(xlBook.Worksheets(ee).range("D" & (vv + 1).ToString, "E" & (vv + 3).ToString)) chart.Chart.SeriesCollection.newseries() chart.Chart.SeriesCollection(1).Values = "='" & xlBook.Worksheets(ee).name & "'!$E$" & (vv + 1).ToString chart.Chart.SeriesCollection(1).Name = "=""甲班""" chart.Chart.SeriesCollection(1).XValues = "={""标偏比较""}" chart.Chart.SeriesCollection.newseries() chart.Chart.SeriesCollection(2).Values = "='" & xlBook.Worksheets(ee).name & "'!$E$" & (vv + 2).ToString chart.Chart.SeriesCollection(2).Name = "=""乙班""" chart.Chart.SeriesCollection.newseries() chart.Chart.SeriesCollection(3).Values = "='" & xlBook.Worksheets(ee).name & "'!$E$" & (vv + 3).ToString chart.Chart.SeriesCollection(3).Name = "=""丙班"""