为Excel报表增加绘图功能
Excel报表并没有绘图功能,但是有引用图片文件的功能。
如果我们将Painter绘制的图形保存为一个约定的文件,并在Excel报表中引用此约定的文件,那么就等于间接地为Excel报表加上了绘图功能。
示例
1、设计模版的时候,引用约定的图片文件"myimg.jpg"。
2、在窗口中加入一个Painter控件,一个Button控件。
3、Button控件的代码设置为:
'绘制并保存图形
Dim
p
As WinForm.Painter =
e.Form.Controls("Painter1")
Dim g As
Graphics = p.Graphics
g.DrawEllipse(Pens.Blue,10,10,100,100)
g.FillPie(Brushes.Red,10,10,100,100,45,90)
p.Repaint()
p.Save(ProjectPath & "Images\myimg.jpg")
'生成Excel报表
Dim Book As
New XLS.Book(ProjectPath &
"Attachments\资料卡.xls")
Book.Build()
Book.Save(ProjectPath & "Reports\资料卡.xls")
本页地址:http://www.foxtable.com/webhelp/topics/1893.htm