再次讨论向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 __________________________________________________________________________ 你可以在插入后加一条语句把以前的图片删除掉,我就是这么做的 __________________________________________________________________________ 原文链接：https://www.f2er.com/vb/263883.html