Este fórum está sendo desativado

[LeoHenrique]

Tudo bem pessoal !!

Preciso de uma ajuda, se alguém puder ajudar, ficarei agradecido.

Em uma planilha que tenho, onde a macro busca algumas fotos, e após uma nova consulta com o código abaixo, é apagado todas as fotos dos produtos, porém é apagado também o botão que vinculei a macro.
Se fosse somente eu que usasse a planilha, iria direto no desenvolvedor e executaria, mas outras pessoas usarão, se alguém souber como faço para apagar essas fotos sem apagar o botão, agradeço.


Sub ApagaImagens()
ActiveSheet.Shapes.SelectAll
Selection.Delete
End Sub

[eduardogrigull]

Tente isso:

Código: Selecionar todos

Sub ApagaImagens()
Dim objeto As Shape

For Each objeto In ActiveSheet.Shapes
    If objeto.Type = msoPicture Then
        objeto.Delete
    End If
Next

End Sub

Isso apaga somente as imagens da planilha ativa

[LeoHenrique]

Isso mesmo !! Muito obrigado Eduardo !
Ajudou muito !! Top !