以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多图片显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144070)
--  作者：lshshlxsh
--  发布时间：2019/12/10 10:45:00
--  多图片显示
请问一下 xls 报表怎么在一个单元格显示多张图片 并设置高度？
比如 图片1   位置5,5,80,80
       图片2   位置 5,105,80,80



Sheet(3,2).Value = New XLS.Picture(GetImage(   ProjectPath & "\\RemoteFiles\\图片1.jpg" )  ,5, 5, 80, 80    )
--  作者：有点蓝
--  发布时间：2019/12/10 11:16:00
--  
模板没有办法处理。

使用vba添加图片

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("E:\\问题\\123.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
ws.Shapes.AddPicture("E:\\问题\\1.png", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue,0, 10, 100, 80)
ws.Shapes.AddPicture("E:\\问题\\abc.jpg", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue,0, 100, 100, 80)
app.visible = True

语法
ws.Shapes.AddPicture("文件路径", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue,插入点左边距, 插入点上边距, 图片宽,图片高)
--  作者：lshshlxsh
--  发布时间：2019/12/10 16:53:00
--  
谢谢老师，请问怎么设置图片在指定的单元格  
--  作者：有点蓝
--  发布时间：2019/12/10 17:08:00
--  
获取单元格位置

Dim Rg As MSExcel.Range = Ws.Cells(1,1)
msgbox(Rg.left)
ws.Shapes.AddPicture("文件路径", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue,Rg.left, rg.top, 图片宽,图片高)