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