我可以按名称从 Excel 电子表格中删除图像吗？

Question

我有一系列包含图片的大型 Microsoft Excel 2010 电子表格，我需要删除其中 2/3 的图片。我需要删除的所有图片的标题都包含相同的字符串“Err”。我需要保留的图片不包含该字符串。

有没有办法通过部分名称查找和删除图像？

Answer 1

按照您的标准，图片名称中应包含“Err”。如果您想将其扩展为包含“err”，则将图片名称转换为大写或小写，然后使用 InStr 搜索。

Sub deleteErrPics()
 For Each pic In ActiveSheet.Shapes
 If InStr(1, pic.Name, "Err") <> 0 Then pic.Delete
 Next pic
End Sub