Como apagar imagem + texto de celulas diferentes?
Enviado: 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
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