自己根据帮助设置表A的编号列已生成二维码图片,并保存在D盘二维码文件中,已编号命名。但是想将生产的二维码编号插入再Excel模板中,请问如何实现?
生成的代码
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
For Each r As Row In Tables("表A").Rows
bar.Code = r("编号")
Bar.Text = r("编号")
Bar.TextAlignment = Barpro.Alignment.BelowCenter
Bar.QuietZoneWidth = 1
Bar.QRCodeModuleSize = 1
bar.SaveImage("d:\二维码\" & r("编号") & ".jpg")
Next
帮助中的内容如下:
如果图片是动态生成的,则只能采用引用的方式,通常是事先用代码生成图片文件,并保存在项目的Images子目录下,然后再生成Excel报表。
[此贴子已经被作者于2015/8/24 21:11:51编辑过]