Página 1 de 1

Apagar imagens menos o botão

Enviado: 30 Ago 2019 às 16:55
por 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

Re: Apagar imagens menos o botão

Enviado: 30 Ago 2019 às 18:31
por 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

Apagar imagens menos o botão

Enviado: 30 Ago 2019 às 19:39
por LeoHenrique
Isso mesmo !! Muito obrigado Eduardo !
Ajudou muito !! Top !