Shape in Excel

[MikeR]

Привет при портировании кода с экскля в аксапту вылетает ошибка

PHP код:

    ActiveSheet.Shapes("Garant").Select
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 57 


    COM                         comsheet, Shapes, ShapeRange, Fill, ForeColor, SchemeColor;
    ;
.................................................
    comsheet = m_excelDocument.getWorkSheet(1);
    Shapes   = comsheet.Shapes("Garant");// вылетает ошибка что не правильное количество параметров
    // можно сделать так Shapes   = comsheet.Shapes();
    shape   ?
//    Shapes.Select();
//    ShapeRange =  comRange.ShapeRange();
//    Fill = ShapeRange.Fill();
//    ForeColor = Fill.ForeColor();
//    SchemeColor = ForeColor.SchemeColor();

Да, версия Axapta 3.0 и офис 2003

[Sada]

В Аксапте никак не добраться . Напишите макрос в Экселе с этим Шейпом и посмотрите потом что он хочет.

[Gustav]

Цитата:

Сообщение от MikeR

    Shapes   = comsheet.Shapes("Garant");

Ну эту-то бэйсиковщину надо, наверное, разложить на простые одноточечные операторы, как обычно для коллекций, типа:

shapes = comsheet.Shapes();
shape = shapes.Item("Garant");

[MikeR]

Цитата:

Сообщение от Gustav

Ну эту-то бэйсиковщину надо, наверное, разложить на простые одноточечные операторы, как обычно для коллекций, типа:

shapes = comsheet.Shapes();
shape = shapes.Item("Garant");

Осталось немного бесыковщины , а именно подставить свойство

Selection.ShapeRange.Fill.ForeColor.SchemeColor = 57

[Gustav]

Цитата:

Сообщение от MikeR

Осталось немного бесыковщины , а именно подставить свойство

Selection.ShapeRange.Fill.ForeColor.SchemeColor = 57

Не ленись! Раскладывай дальше на простые члены.
Selection.ShapeRange это и есть твой shape, поэтому как-то так:

COM comTemp;

comTemp = shape.Fill();
comTemp = comTemp.ForeColor();
comTemp = comTemp.SchemeColor(57);

P.S. Про Select и Selection. Для того, чтобы поменять свойства объекта (шэйпа, ячейки и т.д.) в 99 % случаев не обязательно делать ему Select. Это макрорекордер так бездумно записывает, потому что у него нет другого выхода. Но мы-то не макрорекордеры, мы можем заранее предусмотреть соответствующую переменную вместо Selection.