複製圖像從一個表到另一個

我已經搜查通過了谷歌和這裏一個合適的回答和我似乎無法找到一個...複製圖像從一個表到另一個

我對「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

複製圖像從一個表到另一個

回答

相關問題