ASP中利用OWC控件实现图表功能详解

Color = "blue"    ''设置图表工作区标题的颜色
    ChartSpace1.ChartSpaceTitle.Font.Italic = False    ''设置图表工作区标题是否为斜体
    ChartSpace1.ChartSpaceTitle.Font.Name = "隶书"    ''设置图表工作区标题内容的字体
    ChartSpace1.ChartSpaceTitle.Font.Size = 18     ''设置图表工作区标题内容的大小（单位：磅）
    ChartSpace1.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle ''设置下划线属性
        
    ''-------设置图例--------------------------------------------
cht.HasLegend = True          ''指定图表工作区中含有图例
    cht.Legend.Font.Size = 9         ''其他有关字体项的设置参见设置图表标题部分
    cht.Legend.Position = c.chLegendPositionRight    ''设置图例对其方式
    
cht.SetData c.chDimCategories, c.chDataLiteral, categories
cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values

Set dl = cht.SeriesCollection(0).DataLabelsCollection.Add ''添加图例的数据标记
dl.HasValue = False
dl.HasPercentage = True
dl.Font.Size = 11
''------------------饼图（结束）------------------------------------------------

''------------------簇状柱型图（开始）--------------------------------------
Set cht = ChartSpace2.Charts.Add  ''添加一个图标对象
Set c = ChartSpace2.Constants   ''返回一个对象，此对象允许脚本用户使用已命名的常量。
cht.Type = c.chChartTypeColumnClustered  ''设置图表类型为折线图
''-------设置图表标题----------------------------------------
ChartSpace2.HasChartSpaceTitle = True      ''指定图表工作区中包含标题
    ChartSpace2.ChartSpaceTitle.Caption = "柱状图"    ''设置图表工作区标题内容
    ''有关字体的设置
    ChartSpace2.ChartSpaceTitle.Font.Bold = True    ''设置图表工作区标题内容是否粗体
    ChartSpace2.ChartSpaceTitle.Font.Color = "blue"    ''设置图表工作区标题的颜色
    ChartSpace2.ChartSpaceTitle.Font.Italic = False    ''设置图表工作区标题是否为斜体
    ChartSpace2.ChartSpaceTitle.Font.Name = "隶书"    ''设置图表工作区标题内容的字体
    ChartSpace2.ChartSpaceTitle.Font.Size = 18     ''设置图表工作区标题内容的大小（单位：磅）
    ChartSpace2.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle ''设置下划线属性
        
cht.SetData c.chDimCategories, c.chDataLiteral, categories  ''横项（分类轴）
ch