Sub ki280()
Dim obg(20) As String
'パス名取得
phn = ActiveWorkbook.Path
     If phn = "" Then
         MsgBox "ブックを1度保存してから実行して下さい"
         Exit Sub
     End If
'gif保存
Sheets("Sheet1").Select
i = 1
For Each ex In ActiveSheet.ChartObjects
   gif = ex.Name
   gifname = gif & ".gif"
   ActiveSheet.ChartObjects(i).Chart.Export phn & "\" & gifname
    i = i + 1
Next
Sheets("Title").Select
End Sub