[VB Excel 2010] Esportazione immagini

[ibernet]

Non capisco perché non mi salva l'immagine:

Sub ExportShapeAsPicture()
Dim IShape As Shape
Err.Number = 0
On Error Resume Next

Set IShape = ActiveWorkbook.ActiveSheet.Shapes("Picture 3")
If IShape Is Nothing Or Err.Number <> 0 Then
MsgBox "Whoops, no shape by this name"
Exit Sub
End If

ShapeName = "test_i1"

UsePath = ActiveWorkbook.Path & "\" & ShapeName & ".gif"
On Error GoTo 0
IShape.Export Filename:=UsePath, FilterName:="GIF"

End Sub

In questo punto:
IShape.Export Filename:=UsePath, FilterName:="GIF"

mi da errore "Proprietà o metodo non supportati dall'oggetto"

Ho fatto un po' di ricerca su google e tutti usano lo stesso sistema.. forse mi sto perdendo io qualcosa?