Automatisch speichern

Sub Makrospeichern()
Dim strGrafikName As String
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.Corners.Select
k = 1
For i = 1 To 359
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.ChartArea.Select
dname = "Diagramm" & k
strGrafikName = Application.GetSaveAsFilename(dname, FileFilter:="GIF-Format (*.gif)," & _
" *.gif,JPG-Format (*.jpg), *.jpg")
ActiveChart.Export Filename:=strGrafikName, _
FilterName:=Right(strGrafikName, 3)
k = k + 1
Application.ScreenUpdating = False
If i = 360 Then i = 1
With ActiveChart
.Elevation = 5
.Rotation = i
End With
j = j + 1
If j = 90 Then j = 1
Application.ScreenUpdating = True
Next i
End Sub

Viele Grüße
Moritz