delete freeform vba

[fboehlandt]

Hello everyone,
I wóuld like to delete all freeforms in a spreadsheet. However, even the simple command prompt refering to a particular freeform that is in the sheet does not work. What am I doing wrong? Many thanks

Sub dshape()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ThisWorkbook
Set ws = wb.Sheets("Response_Q2")
ws.Shapes("Freeform 12").Delete
End Sub

 

[fboehlandt]

Some additional information:
The freeform is positioned on top of a chart object. Somehow this seems to be the cause of the problems although I can't imagine whay

 

[MickG]

Try this:-

Dim shp As Shape 
For Each shp In ActiveSheet.Shapes
 If shp.AutoShapeType = 138 Then
    shp.Delete
 End If
Next shp

Mick

 

[fboehlandt]

Thanks for the quick reply. Still no luck . If I copy the freeform and paste it into the spreadsheet, then run the macro it becomes deleted. However, as long as it hovers over the chartobject it is not recognized. This is really puzzling