Delphi OpenOffice автоматизированный скалярный центр текст ячейки - PullRequest
Новая
       19

Delphi OpenOffice автоматизированный скалярный центр текст ячейки

0 голосов
/ 01 декабря 2009

Здравствуйте, может кто-нибудь, пожалуйста, помогите мне со следующим: Я хочу центрировать текст в ячейке электронной таблицы открытого офиса Scalc через Delphi и инструментарий OOoTools.

Следующий код не работает: 

sRange := '$A$3:$A$3';
ooParams := CreateUnoStruct('com.sun.star.beans.PropertyValue', 1);
ooParams[0].Name  := 'ToPoint';
ooParams[0].Value := sRange;
execDispatch('.uno:GoToCell', ooParams);

ooParams := CreateUnoStruct('com.sun.star.beans.PropertyValue', 1);
ooParams[0].Name  := 'HorizontalJustification';
ooParams[0].Value := 'com.sun.star.table.CellHoriJustify.CENTER';
execDispatch('.uno:HorizontalJustification', ooParams);

Кто-нибудь знает, почему нет? Спасибо Объявление

1 Ответ

1 голос
/ 02 декабря 2009

Кажется, что для HorizontalJustification требуется перечисление, но вы указываете строку. Вы должны найти значение com.sun.star.table.CellHoriJustify.CENTER и заполнить его ooParams[0].Value.

Вот способ поиска enumvalue: http://www.oooforum.org/forum/viewtopic.phtml?t=16383

В вашем случае com.sun.star.table.CellHoriJustify.CENTER равно 2, поэтому вам нужно: 

ooParams[0].Name  := 'HorizontalJustification';
ooParams[0].Value := 2;
...