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

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

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

xluoping

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

等级：小狐帖子：368 积分：3759 威望：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

有点蓝

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

等级：超级版主帖子：110334 积分：561518 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/12/14 10:36:00 [只看该作者]

先把图片保存到硬盘，再添加到word

.InlineShapes.AddPicture("c:\123.jpg这里只能使用文件路径", False, True)

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