VBA-excel coller le graphique en tant qu'image

Je suis de créer des graphiques à partir de la même source. Je voudrais être en mesure de couper coller avec vba chaque graphique en tant qu'image. Personne ne sait le bon code?

J'ai essayé avec ceci mais ça ne fonctionne pas:

Range("B21:C22").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Graphs'!$B$21:$C$22")
ActiveChart.ChartType = xl3DPie
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
ActiveSheet.Pictures.Paste.Select
Par fonctionne pas, vous voulez dire il n'a tout simplement rien, soit vous obtenez un message d'erreur?
C'était à ne rien faire

OriginalL'auteur user1115535 | 2012-11-11