Foxtable(狐表)用户栏目专家坐堂 → [讨论]插入二维码图片


  共有2554人关注过本帖平板打印复制链接

主题:[讨论]插入二维码图片

帅哥哟,离线,有人找我吗?
wangyinming
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:286 积分:2345 威望:0 精华:0 注册:2013/8/30 3:37:00
[讨论]插入二维码图片  发帖心情 Post By:2015/8/24 21:10:00 [只看该作者]

自己根据帮助设置表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编辑过]

 回到顶部