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

分享给朋友:
您可能感兴趣的文章:
随机阅读: