In diesem Beispiel wird das erste Diagramm als GIF-Datei exportiert.
Worksheets("Sheet1").ChartObjects(1) _ .Chart.Export _ FileName:="current_sales.gif", FilterName:="GIF"