Fernando, suponho que na planilha que citou tenha somente as Imagens, cada imagem ou objeto é tratado como um Shape, veja Coleção Shapes na Ajuda do VBA, portanto a Rotina abaixo deleta todos os Shapes que estão na mesma :
Sub DeletaShapes()
'Mensagem só para informação, pode apagar,
'Conta quantos Shapes temos na planilha
MsgBox ActiveSheet.Shapes.Count
On Error Resume Next
Set sImag = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
For Each sImag In ActiveSheet.Shapes
sImag.Delete
Next
End Sub
A Rotina abaixo Seleciona todos os Shapes na planilha ativa :
Sub SelecionaTodosShapes()
ActiveSheet.Shapes.SelectAll
End Sub
Faça os testes e veja se seria isto, mas se tiver outros tipos de Shape na mesma teremos de efetuar tratamento diferente, captando os shapes e verificando se são do tipo imagens, é um pouco mais complicado, ou se cada imagem tiver um nome definido tambem poderiámos dar outra solução.
abraços
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 10/05/2011 12:44 pm