Change All Charts from Line to Bar

[JonesyUK]

Hi, I have 200 charts on 1 sheet, and I need to change all of them from line charts to bar charts please.

Any macro that will do this quickly?

Thanks,
CJ

 

[VoG]

Try like this

Sub test()
Dim ch As ChartObject
For Each ch In ActiveSheet.ChartObjects
    ch.Chart.ChartType = xlBarClustered
Next ch
End Sub

 

[JonesyUK]

Thanks!, what about the following:

I've recorded the following Macro in Excel:

ActiveSheet.ChartObjects("Chart 8").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.ChartGroups(1).GapWidth = 0
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.ForeColor.TintAndShade = 0.3399999738
.ForeColor.Brightness = 0
.BackColor.ObjectThemeColor = msoThemeColorAccent1
.BackColor.TintAndShade = 0.7649999857
.BackColor.Brightness = 0
.TwoColorGradient msoGradientHorizontal, 1
End With
Selection.Format.Shadow.Type = msoShadow24

End Sub

I need to run this macro on about 200 charts which are all on a sheet named "CHARTS"

Can you please help me to edit this macro so that it goes through all the charts and applies these formats?

Thanks!
C