所属类别：Asp

文章作者：佚名

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

SUB Window_OnLoad() Dim categories(3), values(3)

'取得已命名的常量对象，在以后的脚本中使用 Set c = ChartSpace1.Constants

'设置图表工作区标题 ChartSpace1.HasChartSpaceTitle = True ChartSpace1.ChartSpaceTitle.Caption = "Chart Space Title"

'设置图表工作区的图例 ChartSpace1.HasChartSpaceLegend = True

'图例位置，其中c.*为位置枚举值，值列表如下 'chLegendPositionTop :顶端 'chLegendPositionLeft :左边 'chLegendPositionRight :右边 'chLegendPositionBottom :底部 'chLegendPositionAutomatic :自动 ChartSpace1.ChartSpaceLegend.Position = c.chLegendPositionRight

categories(0) = "White" categories(1) = "Black" categories(2) = "Asian" categories(3) = "Latino"

'将图表添加到图表工作区 ChartSpace1.Charts.Add

'将新系列添加到图表工作区的指定图表中，下同 Set a = ChartSpace1.Charts(0).SeriesCollection.Add '指定新系列的类型，C.*为类型枚举值，列表如下： 'chChartTypeCombo 'chChartTypeColumnClustered 'chChartTypeColumnStacked 'chChartTypeColumnStacked100 'chChartTypeBarClustered 'chChartTypeBarStacked 'chChartTypeBarStacked100 'chChartTypeLine 'chChartTypeLineMarkers 'chChartTypeLineStacked 'chChartTypeLineStackedMarkers 'chChartTypeLineStacked100 'chChartTypeLineStacked100Markers 'chChartTypeSmoothLine 'chChartTypeSmoothLineMarkers 'chChartTypeSmoothLineStacked 'chChartTypeSmoothLineStackedMarkers 'chChartTypeSmoothLineStacked100 'chChartTypeSmoothLineStacked100Markers 'chChartTypePie 'chChartTypePieExploded 'chChartTypePieStacked 'chChartTypeScatterMarkers 'chChartTypeScatterSmoothLineMarkers 'chChartTypeScatterSmoothLine 'chChartTypeScatterLineMarkers 'chChartTypeScatterLine 'chChartTypeScatterLineFilled 'chChartTypeBubble 'chChartTypeBubbleLine 'chChartTypeArea 'chChartTypeAreaStacked 'chChartTypeAreaStacked100 'chChartTypeDoughnut 'chChartTypeDoughnutExploded 'chChartTypeRadarLine 'chChartTypeRadarLineMarkers 'chChartTypeRadarLineFilled 'chChartTypeRadarSmoothLine 'chChartTypeRadarSmoothLineMarkers 'chChartTypeStockHLC 'chChartTypeStockOHLC 'chChartTypePolarMarkers 'chChartTypePolarLine 'chChartTypePolarLineMarkers 'chChartTypePolarSmoothLine 'chChartTypePolarSmoothLineMarkers '共47个，谁有兴趣谁一一的试吧，我懒。 '类型不同，支持的方法也有所不同，本文针对chChartTypeColumnClustered。 a.Type = c.chChartTypeColumnClustered

ChartSpace1.Charts(0).SeriesCollection.Add ChartSpace1.Charts(0).SeriesCollection.Add

values(0) = 0.2 values(1) = 0.06 values(2) = 0.17 values(3) = 0.13

'设置系列的名字，将显示于图例当中，下同 ChartSpace1.Charts(0).SeriesCollection(0).Caption = "Perot" '设定种类名称，下同 ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories, c.chDataLiteral, categories '设置系列的值，下同 ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values

values(0) = 0.38 values(1) = 0.82 values(2) = 0.28 values(3) = 0.62

ChartSpace1.Charts(0).SeriesCollection(1).Caption = "Clinton" ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimCategories, c.chDataLiteral, categories ChartSpace1.Charts(0).SeriesCollection(1).SetData c.chDimValues, c.chDataLiteral, values

values(0) = 0.42 values(1) = 0.12 values(2) = 0.55 values(3) = 0.25

ChartSpace1.Charts(0).SeriesCollection(2).Caption = "Bush" ChartSpace1.Charts(0).SeriesCollection(2).SetData c.chDimCategories, c.chDataLiteral, categories ChartSpace1.Charts(0).SeriesCollection(2).SetData c.chDimValues, c.chDataLiteral, values

'设定指定轴的起点及格式，String类型 '其中，c.*为轴类型的枚举值，值列表如下： 'chAxisPositionLeft 'chAxisPositionCircular 'chAxisPositionRadial 'chAxisPositionRight 'chAxisPositionLeft 'chAxisPositionBottom 'chAxisPositionTop ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).NumberFormat = "0%"

'设置指定坐标轴的主单位，Double类型 ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).MajorUnit = 0.1END SUB 关闭本页

....