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