首页 > 编程语言 >ASP中利用OWC控件实现图表功能详解

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

时间:2022-10-13 22:34:07浏览次数:45  
标签:控件 ASP ChartSpaceTitle OWC 标题 图表 cht 设置 Font



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

在ASP中利用OWC(Office Web Components)控件可轻松实现各种图表功能,如饼图,簇状柱型图,折线图等。

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

在下面的代码中我详细的给出了饼图,簇状柱型图,折线图的使用方法。OWC的更多功能,属性可参加MSOWCVBA.chm帮助文件(在office 2000的文件夹下大家自己找)。

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


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

testOWC.asp

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


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

< !DOCTYPE HTML  PUBLIC   " -//W3C//DTD HTML 4.01 Transitional//EN " >

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

< html >

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

< head >

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

< meta http - equiv = " Content-Type "  content = " text/html; charset=gb2312 " >

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

< title > ASP中利用OWC控件实现图表功能详解 </ title >

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

</ head >

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

< body >

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

< %

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

' 下面测试的是一个产品销量图

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

MX1  =   " A产品,B产品,C产品,D产品 "   ' 数据项目名数组(给出测试数据,实际用的时候从数据库读取用","分隔)

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

MX2  =   " 50,60,20,80 "   ' 数据项目值数组

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

Datestr  =   " 2005-3-24,2005-3-25,2005-3-26,2005-3-27,2005-3-28 "   ' 日期

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

SQARXLstr  =   " 50,100,20,80,89 "   ' A产品2005-3-24 至 2005-3-28的销量

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

SQARXLstr  =  SQARXLstr  &   " , "   &   " 40,60,20,90,70 "   ' B产品2005-3-24 至 2005-3-28的销量

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

SQARXLstr  =  SQARXLstr  &   " , "   &   " 20,50,55,25,60 "   ' C产品2005-3-24 至 2005-3-28的销量

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

SQARXLstr  =  SQARXLstr  &   " , "   &   " 80,20,75,58,100 "   ' D产品2005-3-24 至 2005-3-28的销量

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

% >

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

< br >

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

< center >< object  id = " ChartSpace1 "  classid = " CLSID:0002E500-0000-0000-C000-000000000046 "  style = " width:95%;height:400 " ></ object ></ center >

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

< br >

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

< center >< object  id = " ChartSpace2 "  classid = " CLSID:0002E500-0000-0000-C000-000000000046 "  style = " width:95%;height:400 " ></ object ></ center >

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

< br >

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

< center >< object  id = " ChartSpace3 "  classid = " CLSID:0002E500-0000-0000-C000-000000000046 "  style = " width:95%;height:400 " ></ object ></ center >

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


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

< script language = " vbscript " >

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

Sub  Window_OnLoad()

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

' ------------------饼图-------------------------------------------------------------

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

'

为数据赋值

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

categories  =   split ( " <%=MX1%> " , " , " )  ' 数据项目名数组

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

values  =   split ( " <%=MX2%> " , " , " )  ' 数据项目值数组

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


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

Set  cht  =  ChartSpace1.Charts.Add  ' 添加一个图标对象

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

Set  c  =  ChartSpace1.Constants  ' 返回一个对象,此对象允许脚本用户使用已命名的常量。

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

cht.Type  =  c.chChartTypePie  ' 设置图表类型为饼图

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


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

' -------设置图表标题----------------------------------------

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

ChartSpace1.HasChartSpaceTitle  =   True   ' 指定图表工作区中包含标题

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

ChartSpace1.ChartSpaceTitle.Caption  =   " 饼状图 "   ' 设置图表工作区标题内容

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

'

有关字体的设置

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

ChartSpace1.ChartSpaceTitle.Font.Bold  =   True   ' 设置图表工作区标题内容是否粗体

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

ChartSpace1.ChartSpaceTitle.Font.Color  =   " blue "   ' 设置图表工作区标题的颜色

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

ChartSpace1.ChartSpaceTitle.Font.Italic  =   False   ' 设置图表工作区标题是否为斜体

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

ChartSpace1.ChartSpaceTitle.Font.Name  =   " 隶书 "   ' 设置图表工作区标题内容的字体

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

ChartSpace1.ChartSpaceTitle.Font.Size  =   18   ' 设置图表工作区标题内容的大小(单位:磅)

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

ChartSpace1.ChartSpaceTitle.Font.Underline  =  c.owcUnderlineStyleSingle  ' 设置下划线属性

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


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

' -------设置图例--------------------------------------------

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

cht.HasLegend  =   True   ' 指定图表工作区中含有图例

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

cht.Legend.Font.Size  =   9   ' 其他有关字体项的设置参见设置图表标题部分

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

cht.Legend.Position  =  c.chLegendPositionRight  ' 设置图例对其方式

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


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

cht.SetData c.chDimCategories, c.chDataLiteral, categories

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

cht.SeriesCollection(

0 ).SetData c.chDimValues, c.chDataLiteral, values

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


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

Set  dl  =  cht.SeriesCollection( 0 ).DataLabelsCollection.Add  ' 添加图例的数据标记

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

dl.HasValue  =   False

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

dl.HasPercentage 

=   True

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

dl.Font.Size 

=   11

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

' ------------------饼图(结束)------------------------------------------------

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


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

' ------------------簇状柱型图(开始)--------------------------------------

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

Set  cht  =  ChartSpace2.Charts.Add  ' 添加一个图标对象

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

Set  c  =  ChartSpace2.Constants  ' 返回一个对象,此对象允许脚本用户使用已命名的常量。

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

cht.Type  =  c.chChartTypeColumnClustered  ' 设置图表类型为折线图

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

'

-------设置图表标题----------------------------------------

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

ChartSpace2.HasChartSpaceTitle  =   True   ' 指定图表工作区中包含标题

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

ChartSpace2.ChartSpaceTitle.Caption  =   " 柱状图 "   ' 设置图表工作区标题内容

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

'

有关字体的设置

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

ChartSpace2.ChartSpaceTitle.Font.Bold  =   True   ' 设置图表工作区标题内容是否粗体

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

ChartSpace2.ChartSpaceTitle.Font.Color  =   " blue "   ' 设置图表工作区标题的颜色

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

ChartSpace2.ChartSpaceTitle.Font.Italic  =   False   ' 设置图表工作区标题是否为斜体

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

ChartSpace2.ChartSpaceTitle.Font.Name  =   " 隶书 "   ' 设置图表工作区标题内容的字体

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

ChartSpace2.ChartSpaceTitle.Font.Size  =   18   ' 设置图表工作区标题内容的大小(单位:磅)

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

ChartSpace2.ChartSpaceTitle.Font.Underline  =  c.owcUnderlineStyleSingle  ' 设置下划线属性

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


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

cht.SetData c.chDimCategories, c.chDataLiteral, categories 

' 横项(分类轴)

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

cht.SeriesCollection( 0 ).SetData c.chDimValues, c.chDataLiteral, values

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

Set  dl  =  cht.SeriesCollection( 0 ).DataLabelsCollection.Add  ' 添加图例的数据标记

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

dl.HasValue  =   True

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

dl.HasPercentage 

=   False

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

dl.Font.Size 

=   9

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

dl.Font.Color 

=   " red"

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

dl.Position  =  c.chLegendPositionRight

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


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

' 设置纵向数值属性

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

Set  categoryAxis  =  cht.Axes(c.chAxisPositionBottom)

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

categoryAxis.Font.Size 

=   9

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

' 设置分类组属性

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

Set  categoryAxis  =  cht.Axes(c.chAxisPositionLeft)

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

categoryAxis.Font.Size 

=   9

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

' ------------------簇状柱型图(结束)--------------------------------------

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


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

' ------------------折线图----------------------------------------------------------

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

SParr  =   split ( " <%=MX1%> " , " , " )

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

Datearr 

=   split ( " <%=Datestr%> " , " , " ) 

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


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

Set  cht  =  ChartSpace3.Charts.Add  ' 添加一个图标对象

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

Set  c  =  ChartSpace3.Constants  ' 返回一个对象,此对象允许脚本用户使用已命名的常量。

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

cht.Type  =  c.chChartTypeLineMarkers  ' 设置图表类型为折线图

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


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

' -------设置图表标题----------------------------------------

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

ChartSpace3.HasChartSpaceTitle  =   True   ' 指定图表工作区中包含标题

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

ChartSpace3.ChartSpaceTitle.Caption  =   " 日销量折线图 "   ' 设置图表工作区标题内容

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

'

有关字体的设置

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

ChartSpace3.ChartSpaceTitle.Font.Bold  =   True   ' 设置图表工作区标题内容是否粗体

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

ChartSpace3.ChartSpaceTitle.Font.Color  =   " blue "   ' 设置图表工作区标题的颜色

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

ChartSpace3.ChartSpaceTitle.Font.Italic  =   False   ' 设置图表工作区标题是否为斜体

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

ChartSpace3.ChartSpaceTitle.Font.Name  =   " 隶书 "   ' 设置图表工作区标题内容的字体

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

ChartSpace3.ChartSpaceTitle.Font.Size  =   18   ' 设置图表工作区标题内容的大小(单位:磅)

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

ChartSpace3.ChartSpaceTitle.Font.Underline  =  c.owcUnderlineStyleSingle  ' 设置下划线属性

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


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

' -------设置图例--------------------------------------------

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

cht.HasLegend  =   True   ' 指定图表工作区中含有图例

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

cht.Legend.Font.Size  =   9   ' 其他有关字体项的设置参见设置图表标题部分

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

cht.Legend.Position  =  c.chLegendPositionBottom  ' 设置图例对其方式

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


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

cht.SetData c.chDimSeriesNames, c.chDataLiteral, SParr 

' 系列

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

cht.SetData c.chDimCategories, c.chDataLiteral, Datearr  ' 横项(分类轴)

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


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

' 设置纵向数值属性

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

Set  categoryAxis  =  cht.Axes(c.chAxisPositionBottom)

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

categoryAxis.Font.Size 

=   9

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


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

' 设置分类组属性

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

Set  categoryAxis  =  cht.Axes(c.chAxisPositionLeft)

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

categoryAxis.Font.Size 

=   9

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


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

values 

=   split ( " <%=SQARXLstr%> " , " , " )

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

for  i  =   0   to   ubound (SParr)

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

valuetemp 

=   " "

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

for  j  =  i * ( ubound (Datearr) + 1 )  to  (i + 1 ) * ( ubound (Datearr) + 1 ) - 1   ' 按天读取数据

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

valuetemp  =  valuetemp  &   " , "   &  values(j)

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

next

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

valuearr 

=   split ( mid (valuetemp, 2 ), " , " )

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

cht.SeriesCollection(i).SetData c.chDimValues, c.chDataLiteral, valuearr

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

Set  dl  =  cht.SeriesCollection(i).DataLabelsCollection.Add  ' 添加图例的数据标记

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

dl.HasValue  =   True

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

dl.HasPercentage 

=   False

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

dl.Font.Size 

=   9

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

next

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

' ------------------折线图(结束)---------------------------------------------------

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

End Sub

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

</ script >

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

</ body >

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

</ html >



标签:控件,ASP,ChartSpaceTitle,OWC,标题,图表,cht,设置,Font
From: https://blog.51cto.com/u_627724/5754846

相关文章