如果可以内嵌的话,可以用下面的语句实现
Sub mmm()
Dim iTotal As Integer
Dim nFilename As String
Dim i As Integer
iTotal = ActiveSheet.ChartObjects.Count
For i = 1 To iTotal
ActiveSheet.ChartObjects(i).Select
nFilename = "C:\" & Format(i, "000") & ActiveChart.ChartTitle.Caption & ".gif"
ActiveChart.Export Filename:=nFilename, filtername:="gif"
ActiveWorkbook.Activate
Next i
End Sub