Qualität des erstellten gif-Bildes verbessern

Ich erzeuge mit folgendem Makro ein gif-Bild. Weiss jemand von euch, wie man die Qualität verbessern bzw. einstellen kann.

Sub CreateGif(Name, savename)

Dim cht As Chart
Dim Datum
Datum = Format(Now(), "yyyy-mm-dd")
Set cht = ActiveSheet.ChartObjects(Name).Chart
cht.Export GifSpeicherort & savename & "_" & Datum & ".gif"

End Sub

Vielen Dank.