为Excel报表增加条形码功能
Excel报表并没有条形码功能，但是有引用图片文件的功能。
如果我们将BarCode控件或BarCodeBuilder类型生成的图表保存为一个约定的文件，并在Excel报表中引用此约定的文件，那么就等于间接地为Excel报表加上了条形码功能。
示例
1、设计模版的时候，引用约定的图片文件"myimg.wmf"。
2、在窗口中加入一个Button控件。
3、Button控件的代码设置为：
Dim
Bar As
New
BarCodeBuilder
Bar.Symbology
= Barpro.Symbology.Code39
Bar.Code
= "123456"
Bar.BarRatio
= 0.3
Bar.BarHeight
= 8
bar.SaveImage(ProjectPath &
"Images\myimg.wmf",300)
'生成Excel报表：
Dim Book As
New
XLS.Book(ProjectPath
&
"Attachments\销售统计.xls")
Book.Build()
Book.Save(ProjectPath & "Reports\销售统计.xls")
提示：保存图片的时候DPI参数设置为300或者更高，因为默认的DPI参数为96，打印精度不高。