Olá,
Estou precisando de ajuda na seguinte situação:
Tenho uma planilha de dados com textos e imagens, quando aperto tal botão o mesmo
apaga todas as imagens e texto na qual determinei para apagar, porém quando não tem imagem
na planilha o código não apaga o texto que tem.
OBS: Quero que apague o texto mesmo não tendo imagem, e quando tiver imagem que apague os dois juntos.
SEGUE O CÓDIGO:
Sub RemoverImg()
On Error Resume Next
Dim img As Shape
For Each img In ActiveSheet.Shapes
If Not Application.Intersect(img.TopLeftCell, ActiveSheet.Range("d14:g23,k14:n23,d27:g36,k27:n23,d40:g49")) Is Nothing Then
img.Delete
Call [D4:M4, G6:M6, D8:E8, G8:M8, D10:E10, G10:I10, Q64:R64, U64:W64].ClearContents
End If
Next
End Sub
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Como apagar imagem + texto de celulas diferentes?
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Sex Jun 14, 2019 7:05 am
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Como apagar imagem + texto de celulas diferentes?
Aplique o comando para limpar as celulas fora do For..each (antes ou depois)