html数据透视,Html中使用M$控件系列之OWC-数据透视图篇

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