Set shp = Sheets("file").Shapes("car1"
Set co = ActiveSheet.ChartObjects.Add(shp.Left, shp.Top, shp.Height, shp.Width) 'dimensions à adapter
shp.Copy
With co.Chart
.Paste
.Export Filename:=ActiveWorkbook.Path & "\temp.jpg" 'ici sauvegarde dans le répertoire du classeur actif
End With
co.Delete
Me.car1.Picture = LoadPicture(Mid(ActiveWorkbook.Path & "\temp.jpg", 2, 200))