再次讨论向Excel插入图片方法,有兴趣的朋友可以进来看一下,帮我解决一下问题!谢了
oSheet.Pictures.Insert( "F:\hgn.jpg ").select()
其实用这个语句就可以实现插入功能了。(我根据宏做的)
但现在是,我要根据Excel中单元格的大小,对原图片hgn.jspXY进行比例缩放,再插入。
请大家看我关于对图片事先缩放的代码:
Dim img As Image = Image.FromFile( "D:\Image\tstImage.jpg ")
Dim grfx As Graphics = Me.CreateGraphics
Dim imgnew As New System.Drawing.Bitmap(img, img.Height * 3, img.Width * 3)
imgnew.Save( "c:\new.jpg ", System.Drawing.Imaging.ImageFormat.Jpeg)
============================
上面我可以实现缩放功能了。这样我就可以插new.jsp到新的。这样也达到我的要求。但是,这其中产生了一个新的图片,我感觉很是不爽。
我的想法是:直接对原图片进行缩放后,插到EXCEL中,但我不会!请大家指点。
我本来想用这样的写法:
.Pictures.Insert(imgnew).select()
把上面的imgnew对像插入。并不生成新的图片。但测试不通过!
[解决办法]
ding
[解决办法]
你可以在插入后加一条语句把以前的图片删除掉,我就是这么做的