Могу ли я удалить изображения из электронной таблицы 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