主题：excel 导出图片怎么变形

用以下代码导出图片，变形，能不能设置保持图片比例呢？

你指定了宽高，肯定变形

 

任意一个设置成-1

我设置了高度为-1，会生效保持宽高比，但是设置宽度为-1的时候就不生效??

只能设置高度为-1吗？？

 或者，可以用代码变通一下

 

Dim book As New XLS.Book("d:\test.xls")
Dim sheet As XLS.Sheet = book.Sheets(0)
Dim img As image = GetImage("d:\test.jpg")
Sheet(1, 7).Value = New XLS.Picture(img,0,0, cint(120*(img.width/img.Height)),120)
book.Save("d:\test.xls")

img.width/img.Height  一直提示  未将对象引用设置到对象的实例。

可以了，非常感谢