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

VB.NET源码-156个实用实例哦…… <script type="text/javascript"> </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
__________________________________________________________________________
你可以在插入后加一条语句把以前的图片删除掉,我就是这么做的
__________________________________________________________________________
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值