Sub SaveAllPictures() Dim Pict As Picture Dim Chemin As String For Each Pict In Worksheets("Feuil1").Pictures Pict.CopyPicture With Worksheets("Feuil1") With .ChartObjects.Add(0, 0, Pict.Width, Pict.Height).Chart .Paste Chemin = ThisWorkbook.Path & "" & Pict.Name & ".PNG" .Export Filename:=Chemin, FilterName:="PNG" End With .ChartObjects(.ChartObjects.Count).Delete End With Next Pict End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question