Este fórum está sendo desativado

[refernande]

Boa Tarde,
Estou usando um código mais ele não está funcionado conforme deveria.
Preciso que ele delete imagens conforme intervalo obedecendo o critério da ultima linhas.
1) Preciso que ele encontra a ultima linha preenchida da C1048576 até ultima coluna e delete as imagens que se encontrarem dentro da seleção.

Sub RemoverIntervalo()

On Error Resume Next
Dim img As Shape

Linha = Range("C1048576").End(xlUp).Select
Coluna = Range("C1048576").End(xlToRight).Select

For Each img In ActiveSheet.Shapes
If Not Application.Intersect(img.TopLeftCell, ActiveSheet.Range(Linha & ":" & Coluna)) Is Nothing Then
img.Delete

End If
Next

End Sub

[babdallas]

Tente isso:

Código: Selecionar todos

Public Sub RemoverIntervalo()
    Dim Linha As Long
    Dim img As Shape
    
    With Planilha1
        Linha = .Range("C1048576").End(xlUp).Row
        
        For Each img In ActiveSheet.Shapes
            If Not Application.Intersect(img.TopLeftCell, .Range(Linha & ":" & Linha)) Is Nothing Then
                img.Delete
            End If
        Next
    End With
End Sub