Этот код поможет вам преобразовать вашу диаграмму в изображение.
Вам просто нужно выбрать свой график и запустить этот код.
Sub ConvertChartToPicture()
ActiveChart.ChartArea.Copy
ActiveSheet.Range("A1").Select
ActiveSheet.Pictures.Paste.Select
End Sub