Dim c As ChartObject, n As String, i As Object
Set c = ActiveSheet.ChartObjects(1)
With c
n = ThisWorkbook.Path & "\" & .Parent.Name & " " & .Name & ".gif"
.Chart.Export n, "GIF"
End With
Set i = ActiveSheet.Pictures.Insert(n)
i.Top = Range("G20").Top
i.Left = Range("G20").Left
Kill n