粘贴形状而不选择粘贴形状

Question

这段代码是使用宏记录器创建的，所以我觉得这可能不是最有效的方法。

Sub Print_Completed()

Application.ScreenUpdating = False

    Sheets("Saver").Select
    ActiveSheet.Shapes.Range(Array("Graphic 1")).Select
    Selection.Copy
    Sheets("Main").Select
    ActiveSheet.Paste
    
Application.ScreenUpdating = True

End Sub

这将从一个工作表中复制一个形状并将其粘贴到另一个工作表的活动单元格中。我想知道是否可以将此形状粘贴到活动单元格中，而不需要取消选择要粘贴到的单元格。

我相信这听起来很傻，但这样可以节省相当多的点击量，而且本着使事情尽可能高效的精神，这是我的好奇心。

我试图通过VBA在Excel中查找几种不同的选择和粘贴方法，但是我也找不到任何可以粘贴形状的方法。

Answer 1

最好是直接引用对象，而不是选择或激活对象。

Sub Print_Completed()
    Dim Graphic1 As Shape
    Set Graphic1 = Worksheets("Saver").Shapes("Graphic 1")
    Graphic1.Copy
    Worksheets("Main").Range("A1").PasteSpecial
End Sub