Pie Chart Slice Colours

[stephen.smith]

Hi Guys
I need to change the slice colours in around 200 pie charts as quickly as possible. I dont want to right click on each slice in each individual slice and format the data point. Is there a quick way of doing it that anyone knows of?
Thanks in advance
Stephen

 

[WinteE]

Try this

Sub ChangeColorPie()

    For Each chtobj In ActiveSheet.ChartObjects
    
        ActiveSheet.chtobj("Chart 1").Activate
        
        ActiveChart.SeriesCollection(1).Points(1).Select
        With Selection.Interior
            .ColorIndex = 3
        End With
        
        ActiveChart.SeriesCollection(1).Points(2).Select
        With Selection.Interior
            .ColorIndex = 10
        End With
        
    Next chtobj

End Sub

 

[stephen.smith]

Thanks but this is not working. I have copied and pasted your code and then when i go to the worksheet and press run macro, it shows me an error message. Any Ideas??

 

[WinteE]

Sorry, just too quick with my answer. Try the code below.

Sub ChangeColorPie()

    For Each chtobj In ActiveSheet.ChartObjects
        
        ActiveSheet.ChartObjects(chtobj.Name).Activate
        
        ActiveChart.SeriesCollection(1).Points(1).Select
        With Selection.Interior
            .ColorIndex = 3
        End With
        
        ActiveChart.SeriesCollection(1).Points(2).Select
        With Selection.Interior
            .ColorIndex = 10
        End With
        
    Next chtobj

End Sub

 

[stephen.smith]

Thats great, thanks for the help.