OpenOffice (автофигуры)

[Alexanderrrr]

Доброго времени суток, всем знатокам и гуру Аксапты!

Продолжение темы OpenOffice (Sheet orientation, cell format).

Возникла задача - добавить автофигуру.

Записал макрос:

sub Macro1
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "InsertDraw"
args1(0).Value = 2

dispatcher.executeDispatch(document, ".uno:InsertDraw", "", 0, args1())

end sub

Создаю документ на основе шаблона, затем пытаюсь в него вставить автофигуру таким образом:

void addShape()
{
    ComDispFunction func;
    COMVariant varArg = new COMVariant();
    COMVariant var = new COMVariant();
    COMVariant arg;
    Array arr = new Array(Types::Class);
    COM CreateUnoService;    
    COM oParam;
;
    oParam=OpenOffice.bridge_GetStruct('com.sun.star.beans.PropertyValue');
    Func = new COMDispFunction(oParam, "Name",  COMDispContext::PropertyPut);
    varArg.bStr("InsertDraw");
    Func.call(varArg);
    Func = new COMDispFunction(oParam, "Value",  COMDispContext::PropertyPut);
    varArg.int(2);
    Func.call(varArg);

    CreateUnoService = OpenOffice.createInstance("com.sun.star.frame.DispatchHelper");
    var = COMVariant::createFromCOM(oParam);
    arr.value(1,var);
    arg = COMVariant::createFromArray(arr);

    CreateUnoService.executeDispatch(oDocument,".uno:InsertDraw","",0,arg);
}

Ругается:

Цитата:

Метод "executeDispatch" в COM-объекте класса "<неизвестно>" возвратил код ошибки 0x80020005 (DISP_E_TYPEMISMATCH), который означает: Один или большее количество аргументов не мог быть преобразовано.

Есть такие подозрения:

• последний параметр arg..возможно executeDispatch ждет массива..
• COM-переменная oDocument, возможно на этом месте должен быть не сам документ, а frame..

Помогите, люди добрые..