Shape löschen in Spalte A
Gregor
Ich habe auf einem Blatt viele Shapes, will aber nur die Shapes in Spalte A löschen. Folgender Code funktioniert zwar bestens, er überprüft aber immer alle Shapes. Wie kann ich das auf die Spalte A einschränken?
Sub shapes_loeschen()
Dim alle_shp()
counter = 0
For Each shp In ActiveSheet.Shapes
If shp.AutoShapeType = msoShapeOval Then
Select Case shp.Name
Case "Ellipse 1", "Ellipse 2", "Ellipse 3", "Ellipse 4", "Ellipse 5", "Ellipse _
6", "Ellipse 7", "Ellipse 8"
ReDim Preserve alle_shp(0 To counter)
alle_shp(counter) = shp.Name
counter = counter + 1
End Select
End If
Next shp
If counter > 0 Then If Not IsEmpty(UBound(alle_shp())) Then ActiveSheet.Shapes.Range( _
alle_shp).Delete
End Sub
Gregor