为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