Sub PointsFormat()
    ActiveSheet.ChartObjects( 1 ).Activate
    With ActiveChart.SeriesCollection( 1 )
        .ApplyDataLabels
        .DataLabels.ShowCategoryName = True
        For i =  1  To .Points.Count
            ActiveSheet.Cells(i,  1 ) = .DataLabels(i).Text
            With .Points(i)
                ActiveSheet.Cells(i,  2 ) = .Fill.ForeColor.RGB ' =.Fill.ForeColor.SchemeColor
                ActiveSheet.Cells(i,  3 ) = .Fill.BackColor.RGB ' =.Fill.ForeColor.SchemeColor
                .Fill.ForeColor.RGB = .Fill.BackColor.RGB '  450  Wrong number of arguments or invalid property assignment
                .Fill.ForeColor.SchemeColor = .Fill.BackColor.SchemeColor ' ok
            End With
        Next i
        .DataLabels.Delete
    End With
End Sub

.Fill.ForeColor.RGB=RGB( 1 , 1 , 1 )