Question

如何同时删除多个excel表中的图片？

我有大概500个excel表，每个表中有两三张图片，有没有快捷方法批量删除掉？

Answer 1

如果500个Excel工作表在一个工作簿内，那么可通过修改工作簿的后缀为.zip，将文档修改为压缩文件。
打开压缩文件，在文件夹下找到media文件夹，删除。
再将文件后缀修改为.xlsx或原文件后缀，然后打开时，该文件里的图片已全部删除了。

Answer 2

Sub File_Form()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "Excel File", "*.xls*"
If .Show = -1 Then
Dim i As Integer
Dim wk As Workbook
Dim sp As Shape
For i = 1 To .SelectedItems.Count
Debug.Print .SelectedItems(i)
Set wk = Workbooks.Open(.SelectedItems(i))
For Each sp In wk.Worksheets(1).Shapes
sp.Delete
Next sh
wk.Close True
Next i
End If
End With

End Sub