为Excel报表增加图表功能
Excel报表并没有图表功能,但是有引用图片文件的功能。
如果我们将Chart控件或ChartBuilder类型生成的图表保存为一个约定的文件,并在Excel报表中引用此约定的文件,那么就等于间接地为Excel报表加上了图表功能。
示例
1、设计模版的时候,引用约定的图片文件"myimg.wmf"。
2、在窗口中加入一个Button控件。
3、Button控件的代码设置为:
'生成图片文件:
Dim Chart As
New
ChartBuilder
Dim Series As
WinForm.ChartSeries
Chart.DataSource = "统计表"
Chart.SeriesList.Clear()
Series = Chart.SeriesList.Add()
Series.X.DataField = "产品"
Series.Y.DataField = "数量"
Chart.PrintWidth = 140
Chart.PrintHeight = 100
Chart.SaveImage(ProjectPath & "Images\myimg.wmf")
'生成Excel报表:
Dim Book As
New
XLS.Book(ProjectPath
&
"Attachments\销售统计.xls")
Book.Build()
Book.Save(ProjectPath & "Reports\销售统计.xls")
提示:图片文件推荐采用wmf格式,这样缩放图片的时候,就不至于变形。
本页地址:http://www.foxtable.com/webhelp/topics/1924.htm