为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