Office: (Office 2010) Grafik mit VBA in anderes Tabellenblatt kopieren

Hallo Leute,

hab hier ein Code gefunden mit dem man Grafiken kopieren kann. Leider komm ich nicht weiter damit.
Ich möchte die Grafik in der Zelle "AC10" vom Blatt "Kundentabelle" kopieren und im Blatt "Druckvorlagen" Zelle "AK10" einfügen.
Kopieren funktioniert super, aber die Zelle "Druckvorlagen/AK10" wird nicht selektiert.
Das Bild wird im Blatt "Kundentabelle" Zelle "AK10" eingefügt.

???Was mach ich falsch???

PHP:

         Private Sub CommandButton27_Click()

Dim Bild As Shape
For Each Bild In Sheets("Kundentabelle").Shapes
If Bild.TopLeftCell.Address = "$AC$10" Then
Bild.Copy
Sheets("Druckvorlagen").Activate

MsgBox ActiveWorkbook.Name
MsgBox ActiveWorkbook.ActiveSheet.Name

Sheets("Druckvorlagen").Paste Range("AK10")

MsgBox "hallo3"
End If
Next

End Sub


:)

 

Bild.Copy Sheets("Druckvorlagen"). Range("AK10")


Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)

Im Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

 

Hallo,

@Ha-Jo:
Die Shapes.Copy-Methode hat keine Destination !

PHP:

         Private Sub CommandButton27_Click()
Dim Bild As Shape

For Each Bild In Sheets("Kundentabelle").Shapes
If Bild.TopLeftCell.Address = "$AC$10" Then

Bild.Copy

With Sheets("Druckvorlagen")
.Paste .Range("A10")
End With
End If
Next
End Sub


 

Hallo Sabine und Hajo,

danke für die schnelle Antwort. Funktioniert Super mit dem Code. Habt mir sehr geholfen.

Gruß und bis später,

Gottlieb