Macro to Remove Legend from ALL Charts

[JonesyUK]

Hi Experts, I have 200 charts on a single Excel worksheet named ("Charts").

Each Chart has a legend at the bottom of the chart("Actual").

I need to remove this legend from ALL of the charts please. At the moment, I am doing this manually, (Click on Chart), (Click "Layout"), (Click "Legend"), (Click "None").

This is going to take forever! Please help...

Thanks,
CJ

 

[Sektor]

[COLOR="Blue"]Sub[/COLOR] DeleteAllCharts()

    [COLOR="Blue"]Dim[/COLOR] co [COLOR="Blue"]As[/COLOR] ChartObject
    
    Application.ScreenUpdating = [COLOR="Blue"]False[/COLOR]
    
    [COLOR="Blue"]For[/COLOR] [COLOR="Blue"]Each[/COLOR] co [COLOR="Blue"]In[/COLOR] Sheets("Charts").ChartObjects
        co.Chart.HasLegend = [COLOR="Blue"]False[/COLOR]
    [COLOR="Blue"]Next[/COLOR]

[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[njimack]

Sub Remove_Legend()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To ActiveSheet.ChartObjects.Count
    Application.StatusBar = "Updating chart " & i & " of " & ActiveSheet.ChartObjects.Count
    ActiveSheet.ChartObjects(i).Chart.HasLegend = False
Next i
With Application
    .StatusBar = False
    .ScreenUpdating = False
End With
End Sub

 

[JonesyUK]

Many thanks for both suggestions... worked perfectly....!

 

[JonesyUK]

Hi Again,

How do I change all the charts from line charts to bar charts with no border (i.e. bars have no border).

Thanks!
CJ