[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 __________________________________________________________________________ 你可以在插入后加一条语句把以前的图片删除掉,我就是这么做的 __________________________________________________________________________

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...