Não entendi. São imagens inseridas em uma planilha(plan/sheet), se assim for essas imagens passam a seu um objeto shape, obededendo uma nomenclatura tipo Imagem1 ou picture1, e pelo que sei não mantem o sufixo.
Assim uma possibilidade e renomear as imagens que deseja manter, então poderá deletar as que sejam diferente do nome base

Boa Tarde Reinaldo.

No caso são muitas imagens.

As que eu quero apagar seguem essa nomenclatura que você falou Imagem1,2 etc...

E as que eu quero que continuem na planilha, tem a nomenclatura Picture1,2 etc...

Teria como eu apagar apenas as que tem o nome Imagem1,2 etc... sem apagar as outras?

Muito Obrigado.

Boa Tarde!

Use esse código:

    For Each bt In Sheets("Plan1").Shapes
        If Left(bt.Name, 6) = "Imagem" Then
            bt.Delete
        End If
    Next

Olá Wagner

Tentei usar esse que você falou.

Deu:

Erro de compilação:
Invalido fora de um procedimento.

For Each bt In Sheets("Plan1").Shapes
If Left(bt.Name, 6) = "Imagem" Then
bt.Delete
End If
Next

o "bt." fica selecionado.

Poderia me dizer o que seria?

Obrigado!

O trecho informado pelo colega Morel, deve ser inserido em uma sub.
tipo

Sub DetImg()
For Each bt In Sheets("Plan1").Shapes
If Left(bt.Name, 6) = "Imagem" Then
bt.Delete
End If
Next
end sub

Boa Tarde.

Não consegui da forma que vocês falaram.

O único jeito que consigo é com essa Macro.

Sub Macro1()
'
' Macro1 Macro
'

'
ActiveSheet.Shapes.Range(Array("Imagem 1")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Imagem 2")).Select
Selection.Delete
ActiveWindow.SmallScroll Down:=24
ActiveSheet.Shapes.Range(Array("Imagem 3")).Select
Selection.Delete
ActiveWindow.SmallScroll Down:=-48
End Sub

Porem tenho que selecionar uma imagem uma por uma. Queria um modo de selecionar todas de uma vez, porque tenho uma planilha com 250 imagens.

E nem sempre o nome das imagens fica em sequencia.

Obrigado.

Creio que deva postar seu modelo.

Como faço para anexar um exemplo para vocês?

Ao clicar em reponder (não resposta rapida), mais abaixo tem uma aba adicionar anexo,clique em escolher, depois e so enviar a mensagem.
Seu arquivo devera estar compactado (zip,rar,7z..)

Obrigado.

Segue anexo um exemplo.

A Imagem do meio, todo mês eu retiro e coloco uma foto nova.

O que eu queria era um jeito de selecionar todas de uma vez, sem apagar as outras do canto e embaixo.

Veja no anexo, clique no botão excluir..

Perfeito Reinaldo.

Porém desculpa a minha ignorância. Mas não sei criar esse botão.

Como eu faço?

Se mês que vem eu colocar novas imagens no lugar dessas ele ainda vai apagar?

Muito obrigado.

O botão e incluido pela guia desenvolvedor, inserir controle activex.
Se as novas imagens inseridas seguir a nomenclatura IMagem..., sim deverá excluir sem problemas

Obrigado Reinaldo.

Irei tentar.