[VB.NET]再次讨论向Excel插入图片方法,有兴趣的朋友可以进来看一下,帮我解决一下问题!谢了

前端之家收集整理的这篇文章主要介绍了[VB.NET]再次讨论向Excel插入图片方法,有兴趣的朋友可以进来看一下,帮我解决一下问题!谢了前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
再次讨论向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 __________________________________________________________________________ 你可以在插入后加一条语句把以前的图片删除掉,我就是这么做的 __________________________________________________________________________

猜你在找的VB相关文章