Kopieren Bild von einem Blatt zum anderen

ich gesucht habe aus Google durch und hier für eine richtige Antwort, und ich kann nicht eine scheinen zu finden ...Kopieren Bild von einem Blatt zum anderen

ich ein Bild habe auf „Tabelle2“, dass ich Möchten Sie zu "Sheet1" kopieren, ist der Name des Bildes statisch und ändert sich nicht. Ich habe den Code unten bekam das bereits vorhandene Bild auf „Sheet1“ zu löschen und jetzt muss ich es aus „Tabelle2“

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

Jede Methode, die ich mit dem Bild ersetzt werden sah, war .Select und Einfügen in die Verwendung von Bereich, aber ich versuche wirklich zu vermeiden, die .Select und .Paste Methoden zu verwenden, da ich über SO und andere Quellen gelesen habe, dass es am besten ist, .Select zu verwenden.

Quelle

2017-11-17 Maldred

Dies ist ein Fall, in dem Sie benötigen –

Kopieren/Einfügen zu verwenden, während es am besten ist zu bestimmten Zeiten mit '.Select', zu vermeiden, es ist der einzige Weg zu gehen, also musst du! 'Select' ist aus einem bestimmten Grund da, um' Dinge' auszuwählen, wenn es absolut notwendig ist. –

Vielen Dank für die schnelle Antwort @ScottHoltzman, können Sie dies als eine Antwort setzen, damit ich es markieren kann? – Maldred

Ich habe eine Antwort für Word gefunden, die für Ihre Frage gelten könnte.

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

Quelle

2017-11-17 22:16:13

Kopieren Bild von einem Blatt zum anderen

Antwort

Verwandte Themen