Dim strCategory As String
Dim strValue As String
strCategory = "1" + vbTab + "2" + vbTab + "3" + vbTab + "4" + vbTab + "5" + vbTab + "6" + vbTab
strValue = "9" + vbTab + "10" + vbTab + "12" + vbTab + "11" + vbTab + "5" + vbTab + "12" + vbTab
Dim ThisChart As New ChartSpace
Dim ThisChChart As ChChart
Dim ThisChSeries As ChSeries
'声明对象
ThisChChart = ThisChart.Charts.Add(0)
ThisChSeries = ThisChChart.SeriesCollection.Add(0)
'显示图例
ThisChChart.HasLegend = True
'标题
ThisChChart.HasTitle = True
ThisChChart.Title.Caption = "统计图"
'//给定x,y轴图示说明
ThisChChart.Axes(0).HasTitle = True
ThisChChart.Axes(1).HasTitle = True
ThisChChart.Axes(0).Title.Caption = "月份"
ThisChChart.Axes(1).Title.Caption = "数量"
'//图表类型
ThisChChart.Type = ChartChartTypeEnum.chChartTypeArea3D
'//旋转
ThisChChart.Rotation = 360
ThisChChart.Inclination = 10
'//背景颜色
ThisChChart.PlotArea.Interior.Color = "red"
'//底色
ThisChChart.PlotArea.Floor.Interior.Color = "green"
ThisChChart.Overlap = 50
'给定series的名字
ThisChSeries.SetData(ChartDimensionsEnum.chDimSeriesNames, ChartSpecialDataSourcesEnum.chDataLiteral.GetHashCode(), "日期")
'//给定分类
ThisChSeries.SetData(ChartDimensionsEnum.chDimCategories, ChartSpecialDataSourcesEnum.chDataLiteral.GetHashCode(), strCategory)
'//给定值
ThisChSeries.SetData(ChartDimensionsEnum.chDimValues, ChartSpecialDataSourcesEnum.chDataLiteral.GetHashCode(), strValue)
'//导出图像文件
ThisChart.ExportPicture("F:/javascript/chart.gif", "gif", 600, 350)
------------------------------------------------------------------------------------------------------------------------------------------------
图表类型概述
ChartChartTypeEnum.chChartTypeColumnClustered 垂直柱状统计图
ChartChartTypeEnum.chChartTypeColumn3D 3D垂直柱状统计图
ChartChartTypeEnum.chChartTypeBarClustered 水平柱状统计图
ChartChartTypeEnum.chChartTypeBar3D 3D水平柱状统计图
ChartChartTypeEnum.chChartTypeArea 区域统计图
ChartChartTypeEnum.chChartTypeArea3D 3D区域统计图
ChartChartTypeEnum.chChartTypeDoughnut 中空饼图
ChartChartTypeEnum.chChartTypeLineStacked 折线统计图
ChartChartTypeEnum.chChartTypeLine3D 3D折线统计图
ChartChartTypeEnum.chChartTypeLineMarkers 折线带点统计图
ChartChartTypeEnum.chChartTypePie 饼图
ChartChartTypeEnum.chChartTypePie3D 3D饼图
ChartChartTypeEnum.chChartTypeRadarSmoothLine 网状统计图
ChartChartTypeEnum.chChartTypeSmoothLine 弧线统计图