SheetChat.ChartObjects(1).chart.Export "c:\a.gif" SheetChat.ChartObjects("Chart1").chart.Export "c:\a.jpg"