Copier coller image d'un graphique avec stockage dans une variable

Bonjour à tous,

J'aimerais copier / coller image un graphique d'une feuille vers une autre dans Excel.
Ensuite cette copie va être positionnée, redimensionnée et renommée (et plus encore si besoin).

Je n'arrive pas à placer dans une variable Shape la copie du graphique.
Connaissez vous la syntaxe ?

Mon code :

Code:

---

1 2	shTBforCustomerReport.ChartObjects("Graph_Etat").Copy 'ShTBforCustomerReport est le CodeName d'un objet Worksheet Destination.PasteSpecial 'Destination est un objet Range

---

J'ai testé Set shp = Destination.PasteSpecial avec Dim shp As Shape mais sans succès.


Merci d'avance pour votre aide

Bonjour,

Comme ça peut-être ?

Code:

---

Destination.PasteSpecial Format:="Image (JPEG)", Link:=False, DisplayAsIcon:=False

---

Code:

---

1 2 3

With Destination.Worksheet Set Shp = .Shapes(.Shapes.Count) End With

---

Shp est les dernier shapes de la feuille contanant le range Destination

Merci à vous deux pour vos réponses !

J'ai opté pour la solution de mercatog.

Bonne journée ;)