Test thoroughly:
Sub CellColorsToChart()
Dim oChart As ChartObject
Dim MySeries As Series
Dim FormulaSplit As Variant
Dim SourceRange As Range, cll As Range
Dim SourceRangeColor As Long
Dim i As Long
'Loop through all charts in the active sheet
For Each oChart In ActiveSheet.ChartObjects
'Loop through all series in the target chart
For Each MySeries In oChart.Chart.SeriesCollection
'Get Source Data Range for the target series
FormulaSplit = Split(MySeries.Formula, ",")
Set SourceRange = Range(FormulaSplit(2)).SpecialCells(xlCellTypeVisible)
i = 1
'On Error Resume Next 'avoid if possible.
For Each cll In SourceRange.Cells
SourceRangeColor = cll.DisplayFormat.Interior.Color
With MySeries.Points(i)
.MarkerBackgroundColor = SourceRangeColor
.MarkerForegroundColor = SourceRangeColor
.Format.Fill.ForeColor.RGB = SourceRangeColor
End With
i = i + 1
Next cll
'On Error GoTo 0 'use only if you use On Error Resume Next above.
Next MySeries
Next oChart
End Sub