如何在选择后粘贴形状

Question

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

sheet1.shapes("MyShape").select

With Selection

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

谢谢！

Answer 1

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

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