选择后如何粘贴形状

Question

我想知道在Excel 2003中选择对象后如何粘贴对象：

sheet1.shapes("MyShape").select

With Selection

基本上jsut想知道如何复制形状对象或任何对象。最后，我希望使用代码从Excel复制上面的形状对象，并自动将其粘贴到访问表单中。

谢谢！

Answer 1

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

您当然可以将其复制到另一张纸上。