Posso remover imagens de uma planilha do Excel pelo nome?

Question

Tenho uma série de planilhas grandes do Microsoft Excel 2010 com imagens nelas e preciso remover 2/3 dessas imagens. Todas as imagens que preciso remover contêm a mesma seqüência de caracteres no título "Err". As imagens que preciso guardar não contêm essa sequência de caracteres.

Existe uma maneira de encontrar e excluir imagens pelo nome parcial?

    

Answer 1

Tomando seus critérios literalmente "Err" no nome da imagem. Se você deseja estender isso para incluir "err", converta o nome da imagem para maiúsculas ou minúsculas e procure por InStr.

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