复制图像从一个表到另一个

我已经搜查通过了谷歌和这里一个合适的回答和我似乎无法找到一个...复制图像从一个表到另一个

我对“Sheet2的”一个形象，我想要复制到“Sheet1”，图像的名称是静态的，不会更改。我有下面的代码删除的“工作表Sheet1”已有的形象，现在我需要用.Select并粘贴到它与“Sheet2的”图像

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和.Paste方法，因为我已经阅读了所有的SO和其他来源，最好避免使用.Select。

来源

2017-11-17 Maldred

这是你需要使用复制/粘贴 –

虽然最好避免使用'.Select'，在某些时候它走的必由之路一个情况下，所以你必须！ “选择”是有原因的，当绝对必要时选择“事物”。 –

感谢@ScottHoltzman的快速反应，你可以把这个作为答案，以便我可以标记它吗？ – Maldred

我发现了可以应用于您的问题的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

来源

2017-11-17 22:16:13

复制图像从一个表到另一个

回答

相关问题