以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何用代码将GDI+绘制的图粘贴到指定的Excel单元格  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=41351)
--  作者：东坡一剑
--  发布时间：2013/10/17 14:11:00
--  如何用代码将GDI+绘制的图粘贴到指定的Excel单元格

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
g.Clear(Color.White)
g.FillRectangle(Brushes.Red,10,10,100,50)
p.Copy

 

我写了上面一段代码，执行后在Word和Excel单元格中手动执行“粘贴”，均能将绘制的图形贴出，我想知道用代码自动执行该怎么弄。

请专家指教！

最好word也能行

[此贴子已经被作者于2013-10-17 14:12:05编辑过]
--  作者：Bin
--  发布时间：2013/10/17 14:14:00
--  
http://www.foxtable.com/help/topics/1149.htm
--  作者：狐狸爸爸
--  发布时间：2013/10/17 14:14:00
--  
将其保存为约定名称的图片文件，到excel报表中引用之
--  作者：Bin
--  发布时间：2013/10/17 14:15:00
--  
Sheet(10,2).Value = New XLS.Picture(p.Image)
--  作者：东坡一剑
--  发布时间：2013/10/17 14:24:00
--  
谢谢二位，要的就是这个！尤其Bin，给出了帮助文件地址，传道 and 授业 and 解惑！