Question

我已经搜索过谷歌，并在这里找到了正确的答案，我似乎无法找到一个......

我有一张图片＆＃34; Sheet2＆＃34;我要复制到＆＃34; Sheet1＆＃34;，图像的名称是静态的，不会改变。我已经获得以下代码来删除＆＃34; Sheet1＆＃34;现在我需要将它替换为来自＆＃34; Sheet2＆＃34;

的图像

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

我看到的每种方法都使用.Select并粘贴到该区域，但我真的试图避免使用.Select和.Paste方法。阅读所有SO和其他来源，以避免使用.Select。

Answer 1

我发现Word的回复可以适用于您的问题。

Copy shape in Word 2010 without .Select?

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

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

1 个答案: