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

来源:互联网 发布:如何在淘宝上传照片 编辑:程序博客网 时间:2024/04/30 06:24
VB.NET源码-156个实用实例哦……<script type="text/javascript"><!--google_ad_client = "pub-8333940862668978";/* 728x90, 创建于 08-11-30 */google_ad_slot = "4485230109";google_ad_width = 728;google_ad_height = 90;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
再次讨论向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
__________________________________________________________________________
你可以在插入后加一条语句把以前的图片删除掉,我就是这么做的
__________________________________________________________________________
原创粉丝点击