首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

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

2012-02-17 
再次讨论向Excel插入图片方法,有兴趣的朋友可以进来看一下,帮我解决一下问题!谢了oSheet.Pictures.Insert(

再次讨论向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
[解决办法]
你可以在插入后加一条语句把以前的图片删除掉,我就是这么做的

热点排行