生成的二维码如何不保存直接插入word中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 生成的二维码如何不保存直接插入word中

共有6123人关注过本帖树形打印复制链接主题：生成的二维码如何不保存直接插入word中

xluoping

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：374 积分：3834 威望：0 精华：0 注册：2016/4/2 12:11:00

生成的二维码如何不保存直接插入word中 发帖心情

Post By：2022/12/14 10:10:00 [显示全部帖子]

黄色部分如何写代码？

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.QRCode

Bar.QRCodeModuleSize = 2 '二维码的放大倍数

Bar.Code = "方案_" & fang("_Id") & "_" & fang("计划日期") '表名，id，其他

'.Cells(1,3).Image = bar.GetImage 'GetImage(mg) '二维码

With .Cell(1,3)

.Range.Delete

Dim pic = .Range.InlineShapes.AddPicture(bar.GetImage)

pic.Width = 50 '图片宽

pic.Height = 50 '图片高

End With

主题：生成的二维码如何不保存直接插入word中