Diagramm mit Zeichnungselementen als Gif-Datei

Sub diagramme()
ActiveChart.Export "Test.gif", "GIF"
End Sub

Wer kann mir helfen?
Recht herzlichen Dank