Dynamic Pie Chart Slice Fill

[mikeymay]

How do I change the fill of a pie slice based on the fill colour of a specified cell?

I also want to change the slice label font colour to the same font color in the same cell.

TIA

 

[KOKOSEK]

I've found something like this in my archive.

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim pieChart As Chart
   Set pieChart = ActiveSheet.ChartObjects(1).Chart
   
   Dim ser As Series
   Set ser = pieChart.SeriesCollection(1)
   
   Dim sourceRange As Range
   Set sourceRange = Application.Range(Split(ser.Formula, ",")(2))
   
   Dim n As Long
   For n = 1 To ser.Points.Count
      ser.Points(n).Interior.Color = sourceRange.Cells(n).Interior.Color
   Next
End Sub

 

[KOKOSEK]

Its too late for edit.

   For n = 1 To ser.Points.Count
      ser.Points(n).Interior.Color = sourceRange.Cells(n).Interior.Color
      ser.Points(n).DataLabel.Font.Color = sourceRange.Cells(n).Font.Color
   Next

second line change also font color for label on each piece of pie