以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- Excel报表插入图片的大小 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58968) |
-- 作者:lesliecheung912 -- 发布时间:2014/10/27 14:50:00 -- Excel报表插入图片的大小 现在需要往Excel报表的表格中插入图片,现在照片是偏大的, 如何编写代码使得图片的大小适应当前单元格的大小(若不能实现,那可不可以缩放图片)? 以下为插入图片的代码: Dim Book As New XLS.Book(ProjectPath & "Attachments\\aaa.xls") Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表 Sheet(6,2).Value = New XLS.Picture(GetImage("D:\\123.jpg")) Sheet(7,2).Value = New XLS.Picture(GetImage("D:\\123.jpg")) Sheet(8,2).Value = New XLS.Picture(GetImage("D:\\123.jpg")) Sheet(9,2).Value = New XLS.Picture(GetImage("D:\\123.jpg")) Sheet(10,2).Value = New XLS.Picture(GetImage("D:\\123.jpg")) Sheet(11,2).Value = New XLS.Picture(GetImage("D:\\123.jpg")) .ImageLayout = ImageLayout.Zoom Book.Save(ProjectPath & "Reports\\aaa.xls") \'保存工作簿 Dim Proc As New Process \'打开工作簿 Proc.File = ProjectPath & "Reports\\aaa.xls" Proc.Start() [此贴子已经被作者于2014-10-27 14:50:42编辑过]
|
-- 作者:有点甜 -- 发布时间:2014/10/27 14:53:00 -- 插入图片的时候不是可以设置宽高的么?直接获取单元格的宽高即可。
http://www.foxtable.com/help/topics/1149.htm
|