Vba 将图像从一张图纸复制到另一张图纸

我已经在谷歌上搜索了一个合适的答案，但我似乎找不到一个

我在“Sheet2”上有一个图像，我想复制到“Sheet1”，该图像的名称是静态的，不会更改。我有下面的代码删除“Sheet1”上已经存在的图像，现在我需要它被替换为“Sheet2”中的图像

---

我看到的每一种方法都是使用

。选择
并粘贴到该区域中，但我确实在尝试避免使用
。选择
和
。粘贴
方法，因为我已经通读了所有其他来源，所以最好避免使用
。选择
我找到了适用于您问题的Word的答案


在这种情况下，您需要使用复制/粘贴，但最好避免使用
。选择
，在某些时候这是唯一的方法，因此您必须<代码>选择
在绝对必要的时候选择
东西是有原因的。感谢ScottHoltzman的快速响应，你能把这个作为答案，这样我就可以标记它吗？为什么
。选择
？怎么样
Sheet2.Shapes（“MyShape”）.Copy:Sheet1.Paste
？@Excelosaurus我需要一个对象来引用该方法
Sub CheckImageName()

    For Each shape In ActiveSheet.Shapes
        If Not Intersect(shape.TopLeftCell, Range("L77:AM97")) Is Nothing Then
            shape.Delete
        End If
    Next shape

End Sub

Sub createShape()
    Set myshape = ActiveDocument.Shapes.AddShape(msoShapeRectangle, 100, 100, 100, 100)
    Set anothershape = myshape.Duplicate
End Sub