Цитата:
Сообщение от
MikeR
Осталось немного бесыковщины

, а именно подставить свойство
Код:
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 57
Не ленись! Раскладывай дальше на простые члены.

Selection.ShapeRange это и есть твой shape, поэтому как-то так:
X++:
COM comTemp;
comTemp = shape.Fill();
comTemp = comTemp.ForeColor();
comTemp = comTemp.SchemeColor(57);
P.S. Про Select и Selection. Для того, чтобы поменять свойства объекта (шэйпа, ячейки и т.д.) в 99 % случаев не обязательно делать ему Select. Это макрорекордер так бездумно записывает, потому что у него нет другого выхода. Но мы-то не макрорекордеры, мы можем заранее предусмотреть соответствующую переменную вместо Selection.