Hello,

I have a worksheet with multiple charts.
I wish to convert all of them to pictures.

I tried the following code.
My problem is that I get all the pictures in the same place and not in the original chart place.

With Sheets(SheetName)
    For Each chtO In .ChartObjects
        chtO.CopyPicture
        .Paste
        With .Shapes(.Shapes.Count)
            .Top = chtO.Top
            .Left = chtO.Left
            .Name = chtO.Name & "_pic"
        End With
        chtO.Delete
    Next chtO
End With
Can you help me ?

Thank you for your help