首页 > Excel专区 > Excel函数 >

EXCEL 实现批量导出图片

Excel函数 2023-01-13

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


Copyright © 2016-2023 office学习教程网 office.tqzw.net.cn. All Rights Reserved.