Sub ExportAllChartsOnActiveSheet()
  Dim chtob As ChartObject
  Dim fname As String
  Dim i As Long

  If Len(ActiveWorkbook.Path) > 0 Then 
    ' if workbook is saved, export into its directory
    fname = ActiveWorkbook.Path & "\"
  End If

  ' unique name (try not to overwrite existing charts
  fname = fname & "chart_" & Format(Now,"yymmdd_hhmmss")

  For i = 1 to ActiveSheet.ChartObjects.Count
    ActiveSheet.ChartObjects(i).Chart.Export fname & CStr(i) & ".png" ' MOŽETE FORMAT PROMJENITI U .JPG, .GIF ili .BMP
  Next
End Sub