Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Como apagar imagem + texto de celulas diferentes?

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Romário Ferreira
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Sex Jun 14, 2019 7:05 am

Como apagar imagem + texto de celulas diferentes?

Mensagem por Romário Ferreira » Sex Jun 14, 2019 7:25 am

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



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1134
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Como apagar imagem + texto de celulas diferentes?

Mensagem por Reinaldo » Sex Jun 14, 2019 10:23 am

Aplique o comando para limpar as celulas fora do For..each (antes ou depois)


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

Responder