diagramm als gif exportieren

Sub Diagramm2Gif()
Dim oDia As ChartObject
'alle Sheets durchlaufen
For Each ws In Worksheets
'MsgBox ws.Name
With ws
For i = 1 To ws.ChartObjects().Count
Set oDia = .ChartObjects(i)
oDia.Chart.Export "c:\temp\" & ws.Name & "-" & _
.ChartObjects(i).Name & ".gif", "GIF"
Next i
End With
Next ws
'alle Charts durchlaufen
For Each wd In Charts
'MsgBox wd.Name
Next wd
End Sub