主题：如何用代码将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也能行

http://www.foxtable.com/help/topics/1149.htm

将其保存为约定名称的图片文件，到excel报表中引用之

Sheet(10,2).Value = New XLS.Picture(p.Image)

谢谢二位，要的就是这个！尤其Bin，给出了帮助文件地址，传道 and 授业 and 解惑！