通过.NET在VB中操作图表

    最近在做一个项目，需要将大量的数据进行计算最后将数据以图表的方式在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 = "=""丙班"""

 

转载于:https://www.cnblogs.com/nevermorez/archive/2013/03/26/2981781.html