определение цвета ячейки в RGB

[Bape}l{ka]

подскажите пожалуйста, нужно залить фигуру в цвет ячейки
я так поняла, что цвет фигуры можно задать только RGB.
таким образом надо определить цвет ячейки в RGB-коде
подсмотрела у Уокенбаха такую функцию (правда не уверена, чтио правильно понимаю, что такое DECIMAL =ь )

Function DECIMAL2RGB(ColorVal) As Variant
'   Converts a color value to an RGB triplet
'   Returns a 3-element variant array
    DECIMAL2RGB = Array(ColorVal \ 256 ^ 0 And 255, ColorVal \ 256 ^ 1 And 255, ColorVal \ 256 ^ 2 And 255)
End Function

и попробовала вставить в свое:

Sub ЗаливкаФигур()
Dim R As Byte, G As Byte, B As Byte
Dim ColorVal_ As Integer
    
    ColorVal_ = [i5].Interior.Color.Index
    MsgBox Selection.Value
    With ActiveSheet.Shapes
        .Range("Полилиния " & Selection.Value).Select
        .Range("Полилиния " & Selection.Value).Fill.ForeColor.RGB = RGB(ColorVal \ 256 ^ 0 And 255, ColorVal \ 256 ^ 1 And 255, ColorVal \ 256 ^ 2 And 255)
    End With
    
End Sub

но на ColorVal_ мне почему то пишет, "object required"
подскажите, что неправильно или как сделать такое?
или может цвет фигуры можно как-нибудь задать по-другому??

[Казанский]

> нужно залить фигуру в цвет ячейки

Присваивайте цвет, зачем какие-то функции?

.Range("Полилиния " & Selection.Value).Fill.ForeColor.RGB = [i5].Interior.Color

[Казанский]

> но на ColorVal_ мне почему то пишет, "object required"

Есть свойства .Interior.Color и .Interior.ColorIndex, а .Interior.Color.Index - нет.

[Bape}l{ka]

чорт!!! все из-за этой точки >_<
под вечер клинит
а ведь я тоже так пробовала (толька с индексом и точкой...) кстати, с индексом получается тоже интересно =ь

спасибо, Казанский ))