以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  合并导出的execl如何实现图片列的合并?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=173346)

--  作者：fangdejin --  发布时间：2021/11/25 16:07:00 --  合并导出的execl如何实现图片列的合并? Dim Book As New XLS.Book(ProjectPath & "Attachments\\XXBOM打印.xls") Dim i As Integer Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表 Dim fl As String = ProjectPath & "Reports\\XXBOM打印.xls" For Each r As Row In Tables("XXBOM界面_Table1").Rows     For i = 0 To Tables("XXBOM界面_Table1").Rows.Count -1  \'向工作表的单元格中设置值         Sheet(i+4,0).Value = Tables("XXBOM界面_Table1").Rows(i)("客户代码")         Sheet(i+4,4).Value = New XLS.Picture(GetImage(ProjectPath & "XX产品图片\\" & Tables("XXBOM界面_Table1").Rows(i)("xx编号") & ".png"),10, 5)         \'----------------------------------------------------------------------------------------------------     Next Next Book.Save(ProjectPath & "Reports\\冲XXBOM打印.xls") \'保存工作簿 Dim Proc As New Process \'打开工作簿 Proc.File = ProjectPath & "Reports\\XXBOM打印.xls" Proc.Start() \'------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 这是逐条导出 可以引用到图片 但是合并模式下 <M> 图片列  即时可以合并  图片是叠堆在一起  并不是合并成一个图片来显示 请教版主大人,如何实现合并导出 图片列  正确的合并方法

--  作者：有点蓝 --  发布时间：2021/11/25 16:22:00 --   图片列没有办法在模板里设置合并，只能像上面一样使用代码添加到合并单元格里

--  作者：fangdejin --  发布时间：2021/11/25 16:24:00 --   如何添加?

--  作者：有点蓝 --  发布时间：2021/11/25 16:33:00 --   1楼代码不就是吗？