以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  生成的二维码如何不保存直接插入word中  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=184568)

--  作者：xluoping --  发布时间：2022/12/14 10:10:00 --  生成的二维码如何不保存直接插入word中 黄色部分如何写代码？                 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

--  作者：有点蓝 --  发布时间：2022/12/14 10:36:00 --   先把图片保存到硬盘，再添加到word .InlineShapes.AddPicture("c:\\123.jpg这里只能使用文件路径", False, True)