Autovormen verwijderen

[Jack Nouws]

Goeie dag allemaal

Ik heb per ongeluk op mijn werkblad 2800 dezelfde autovormen gekopieerd nu wil ik die allemaal weg hebben maar hoe kan ik dat het beste op een makkelijke manier doen?

Met vr gr
Jack

 

[Warme bakkertje]

Jack, probeer volgende code eens uit op een kopie van je bestand. Wijzig bij Verwijderen het bereik waarin de autovormen staan. Plaats dan je cursor in Verwijderen en druk F5

Sub Verwijderen()
    DeleteShapesInRange Blad1.Range("A1:n36") 'Geef hier het te controleren bereik op
End Sub
Sub DeleteShapesInRange(rng As Range)
    Dim shpTemp As Shape
    Dim lngIndex As Long
    With rng.Parent
        For Each shpTemp In .Shapes
            For lngIndex = .Shapes.Count To 1 Step -1
                If Not Intersect(rng, .Shapes(lngIndex).TopLeftCell) Is Nothing Then
                    If Not Intersect(rng, .Shapes(lngIndex).BottomRightCell) Is Nothing Then
                        .Shapes(lngIndex).Delete
                    End If
                End If
            Next
        Next
    End With
End Sub

Mvg

Rudi