- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]Excel报表插入图片格式什么要求，JPG可以么？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=13049)
-- 发布时间：2011/9/26 9:12:00
-- [求助]Excel报表插入图片格式什么要求，JPG可以么？
Dim drz As DataRow = DataTables("产品资料表").Find("[产品编号]=\'" & cr("产品编号") & "\'")
Dim lj As String = "\\\\Pc-200904271544\\hxx\\资料文件\\" & drz("标签")
Dim Book As New XLS.Book(ProjectPath & "Attachments\\物料卡模板.xls")
Dim fl As String = ProjectPath & "Reports\\物料卡\\" & cr("令号") & ".xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(1,14).Value = New XLS.Picture(GetImage(lj))
此主题相关图片如下：qq截图未命名.jpg
-- 发布时间：2011/9/26 9:24:00
--
我测试没有问题：
Dim Book As New XLS.Book \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
For i As Integer = 0 To 9 \'向工作表的单元格中设置值
Sheet(i, 0).Value = (i + 1) * 10
Sheet(i, 1).Value = (i + 1) * 100
Sheet(i, 2).Value = (i + 1) * 1000
Next
Sheet(10,2).Value = New XLS.Picture(GetImage("c:\\002.jpg"))
Book.Save("c:\\reports\\test.xls") \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = "c:\\reports\\test.xls"
Proc.Start()
-- 发布时间：2011/9/26 10:32:00
--
是不是图片大小的问题？？
-- 发布时间：2011/9/26 10:45:00
--
估计不是的，你换个图片看看。
不行做个例子传上来。
-- 发布时间：2011/9/26 11:30:00
--
解决了，在生成细节区后再插入图片可以，我原来在一开始就插入图片报错