EXCEL 批量导出图片

Sub ExportPictures()
    Dim MyShp AsShape
    Dim FilenameAs String
    For EachMyShp In Sheet1.Shapes
       If MyShp.Type = msoPicture Then
           Filename = ThisWorkbook.Path & "\"& MyShp.Name & ".gif"
           MyShp.Copy
           With Sheet1.ChartObjects.Add(0, 0, MyShp.Width,MyShp.Height).Chart
               .Paste
               .Export Filename
               .Parent.Delete
           End With
       End If
    Next
    Set MyShp =Nothing
End Sub