Как получить цвет фона shape на листе - VB

Формулировка задачи:

Есть множество объектов на листе. Нужно узнать цвет фона каждого объекта
установку нашел, а прочитать не получается
т.е. нужен примерно такой код

k = ActiveSheet.Shapes.Count
    i =   k
      ashShapes(i) = ActiveSheet.Shapes(i)
    i
    i =   k
       ashShapes(i).Fill.ForeColor.SchemeColor = ashShapes(i).Fill.ForeColor.SchemeColor + 
    i

но он ругается на то? что нельзя получить ShemeColor.
На msdn не нашел ничего кроме OlePropertyGet, но он для ShemeColor может только Set

Решение задачи: «Как получить цвет фона shape на листе»

textual
                            Листинг программы 
                        
                            Worksheets(<font color="darkblue"><b>1</b></font>).Shapes(<font color="darkblue"><b>1</b></font>).Fill.ForeColor.RGB = RGB(<font color="darkblue"><b>255</b></font>, <font color="darkblue"><b>30</b></font>, <font color="darkblue"><b>111</b></font>)