<script language="vbscript">
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.1
end sub
</script>
文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
