Discussion :

[antonysansh]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[parmi]

Bonjour,

Comme ça peut-être ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[antonysansh]

Merci à vous deux pour vos réponses !

J'ai opté pour la solution de mercatog.

Bonne journée