delete charts vba

[jasman]

Hi. Does anyone know code for deleting all piecharts off a worksheet?

thanks

 

[JackDanIce]

Try:

Sub testme()
Dim i As Integer
For i = 1 To Worksheets.Count
With Sheets(i)
    .ChartObjects.Delete
End With
Next i
End Sub

You may need to modify something like If .Chartobjects.type = PieChart Then .Chartobjects.Delete
but I'm not sure of the code (not looked it up yet)

 

[jasman]

hi. that works but deletes all charts on allw orksheets. I need it just for the curent worksheet if poss?

thanks

 

[JackDanIce]

Change to:

Sub testme()
With ActiveSheet
    .ChartObjects.Delete
End With
End Sub

 

[jasman]

ive sorted it, thansk for the code

 

[JackDanIce]

You're welcome