BCB6でエクセルのShapeの色を操作しようとしてるんですが
VBAの下の２行がどうしても出来ないですヽ(´Д`;)ノ
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 121.5, 14.25, 12.75, 42.75).Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64


Excel_2k::Shape* Shape;
Shape = ExcelWorksheet->Shapes->AddShape(msoShapeRectangle, Left, Top, Width, Height);
Shape->Select(TNoParam());
//ここまではOK（シェープの作成と選択）
Shape->get_Fill()->get_ForeColor()->set_rgb(ColorToRGB(clBlack)); //ここがエラーになる

どなたか解る方が居たら助けてほしいですm(_ _)m