Sub graphiqueimage() ActiveChart.ChartArea.Copy ActiveSheet.Range("A1").Select ActiveSheet.Pictures.Paste.Select End Sub
Ce code vous aidera à convertir votre graphique en image. Il vous suffit de sélectionner votre graphique et d’exécuter ce code.
Sub graphiqueimage() ActiveChart.ChartArea.Copy ActiveSheet.Range("A1").Select ActiveSheet.Pictures.Paste.Select End Sub
Ce code vous aidera à convertir votre graphique en image. Il vous suffit de sélectionner votre graphique et d’exécuter ce code.