Excel VBA chart looping

[help_for_excel]

Hi,

I want to write macro which goes through each of the chart and delete everything on it. each text box, each hyper link, each header, each tag on x axis and y axis.

I should just remain with blank chart window and nothing on it....


can any one please help.....thanks in advance (probably have to loop through each chart and delete each shapes etc)

 

[Worf]

Hi<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>
Please test the macro below.<o></o>
Do you have any text boxes or shapes outside the charts that you want to keep? Currently my code deletes them all, but it can be changed.<o></o>

Option Explicit
Sub Eraser()
Dim c As Chart, ax As Axis, s As Series
Dim i%, j%, ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)
For i = ws.OLEObjects.Count To 1 Step -1    ' every textbox in sheet
    If InStr(ws.OLEObjects(i).Name, "TextBox") Then ws.OLEObjects(i).Delete
Next
    
For i = ws.Shapes.Count To 1 Step -1    ' every shape except the charts
    If ws.Shapes(i).Type <> msoChart Then ws.Shapes(i).Delete
Next
For j = 1 To ws.ChartObjects.Count
    Set c = ws.ChartObjects(j).Chart
    For Each ax In c.Axes
        ax.Delete
    Next
    For Each s In c.SeriesCollection
        s.Delete
    Next
Next
End Sub

 

[help_for_excel]

thanks it worked