Раскрашиваем диаграмму. Ошибка?

[Nitrolis]

Всем привет.
Нужно раскрасить диаграмму... код до безумия прост, но появляется ошибка:

Код: Выделить всё

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

почему не хочет работать с RGB? пробовал и

Код: Выделить всё

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

но опять ошибка? подскажите - в чём мой косяк??
Заранее благодарю.

Excel-2003/2007.

[viter.alex]

Странно, в справке указано, что у объекта Point есть свойства MarkerBackgroundColor и MarkerForegroundColor, а Fill нет. Или у тебя Points(i) возвращает Range?

[Nitrolis]

Странно, в справке указано, что у объекта Point есть свойства MarkerBackgroundColor и MarkerForegroundColor, а Fill нет. Или у тебя Points(i) возвращает Range?

как нет?.. код-то рабочий если закомментить ошибочные строки, то он соберет в столбцах 1-3 цвета точек данных... (для RGB тип Long integer). Сейчас тип графика Гистограмма, но это не принципиально...

Из Object Browser VBA:

Property Fill As ChartFillFormat
read-only
Member of Excel.Point

VBA: Retail 6.5.1024