EXCEL 批量导出图片

Sub ExportPictures()
    Dim MyShp As Shape
    Dim Filename As String
    For Each MyShp 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