现在需要往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编辑过]
加好友 
发短信
Post By：2014/10/27 14:50:00 [显示全部帖子]
