habe es geschafrt, diagramme aus sheets nach gif zu exportieren. leider funktioniert der code nicht, wenn das diagramm in einem eigenen chart liegt!
kann mir hier jemand helfen?
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
danke für eure bemühungen