Diagramme als Bild VBA export

Sub safe()
Dim wksExportTabelle As Worksheet
Dim wbkNeu As Workbook
Set wksExportTabelle = ActiveWorkbook.Worksheets("Auswertung")
wksExportTabelle.Copy
Set wbkNeu = ActiveWorkbook
With wbkNeu.Worksheets("Auswertung").UsedRange
.Value = .Value
End With
wbkNeu.SaveAs wksExportTabelle.Parent.Path & "\" & "Auswertung.xls"
Set wbkNeu = Nothing
Set wksExportTabelle = Nothing
End Sub