如何使用MsChart？？总结.docx

如何使用 Office Chart 9.0 制作图表？ 代码如下： chart90.asp HTML HEAD META NAME=GENERATOR Content=Microsoft FrontPage 4.0 TITLE精彩春风之图表制作/TITLE /HEAD BODY object id=ChartSpace1 classid=CLSID:0002E500-0000-0000-C000-000000000046 style=width:80%;height:350/object object id=ADOConnection1 classid=CLSID0000-0010-8000-00AA006D2EA4/object script Language=VBScript Sub Window_OnLoad() Dim rs, categories, values categories = values = ADOConnection1.Open DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\nwind.mdb 建立nwind.mdb库,并创建Sales for 2000的表 Set rs = ADOConnection1.Execute(SELECT * FROM [Sales for 2000]) 打开连接执行 SQL 查询 () rs.MoveFirst Do while Not rs.EOF categories = categories rs.Fields(0).Value Chr(9) values = values rs.Fields(1).Value Chr(9) rs.MoveNext 对每一字段记录产生一个由制表符分隔的字符串 Loop rs.Close ADOConnection1.Close categories = Left(categories, Len(categories) - 1) values = Left(values, Len(values) - 1) 删去字符串末尾的分隔符 ChartSpace1.Clear ChartSpace1.Charts.Add ChartSpace1.Charts(0).SeriesCollection.Add ChartSpace1.Charts(0).SeriesCollection(0).Caption = Sales 创建一个系列 Set c = ChartSpace1.Constants ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories, c.chDataLiteral, categories ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values 使用 recordset 生成的字符串设置系列的类型和值 ChartSpace1.HasChartSpaceTitle = True With ChartSpace1.ChartSpaceTitle .Caption = Monthly Sales Data .Font.Size = 12 .Font.Color = #FF0000 .Font.Bold = True End with ChartSpace1.HasChartSpaceLegend = True With ChartSpace1.ChartSpaceLegend .Position = c.chLegendPositionright .Font.Color = #009999 .Font.Size = 9 End with 设置图表工作区的标题,并将图表工作区的图例放在工作区右边 ChartSpace1.Charts(0).Type = c.chChartTypeBarClustered 设置图表类型 With ChartSpace1.Charts(0).Axes(c.chAxisPositionBottom) 轴的坐标格式、样式 .NumberFormat = #,##0 .Font.Size = 9 End with With ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft) .Font.Color = #0000ff .Font.Size = 9 End with end if End Sub /script /BODY /HTML 图表类型常数表： 序号 Constant