Graphe copie/colle

Bonjour est ce possible d'avoir un code vba qui coupe une image et la colle sur la même place ?

For Each Legraph In ActiveSheet.ChartObjects
Legraph.Select
Application.CutCopyMode = False
ActiveChart.Parent.Cut
ActiveSheet.PasteSpecial Format:="Image (PNG)", Link:=False, DisplayAsIcon _
:=False
Next

le problème avec mon code c'est que les images sont entassées sur une même place