select后如何粘贴形状

只是想知道如何在Excel 2003中select它后粘贴一个对象：

sheet1.shapes("MyShape").select With Selection 

基本上jsut想知道如何复制形状对象，或任何对象真的。 最后，我正在寻找使用代码来复制Excel中的上述形状对象，并自动将其粘贴到访问表单中。

谢谢！

Answer 1

 Sheets("Sheet1").Shapes("MyShape").Select Selection.Copy Sheets("Sheet1").Paste 

你当然可以把它复制到另一张纸上。