Apply cell colors to pie chart slice colors vba

[cxgjjjjj]

I am trying to create pie charts based on the fill colors in the data cells
I am using the following code, but it does not really apply the cell colors. can anyone help?

Sub ColorPies()
Dim cht As ChartObject
Dim i As Integer
Dim vntValues As Variant
Dim s As String
Dim myseries As Series

    For Each cht In ActiveSheet.ChartObjects
        For Each myseries In cht.Chart.SeriesCollection
 
            If myseries.ChartType <> xlPie Then GoTo SkipNotPie
            s = Split(myseries.Formula, ",")(2)
            vntValues = myseries.Values
           
            For i = 1 To UBound(vntValues)
                myseries.Points(i).Interior.Color = Range(s).Cells(i).Interior.Color
            Next i
SkipNotPie:
        Next myseries
    Next cht
End Sub

 

[RoryA]

but it does not really apply the cell colors

Welcome to the forum.

What exactly does the quoted text mean? What does it do?