Delphi OpenOffice автоматизированный скалярный центр текст ячейки
-
22-07-2019 - |
Вопрос
Здравствуйте, может кто-нибудь, пожалуйста, помогите мне со следующим: Я хочу центрировать текст в ячейке электронной таблицы открытого офиса скальпа через 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);
Кто-нибудь знает, почему нет? Спасибо Объявление
Решение
Похоже, что для HorizontalJustification требуется перечисление, но вы задаете строку. Вы должны найти значение com.sun.star.table.CellHoriJustify.CENTER
и заполнить его ooParams [0] .Value
.
Вот способ поиска перечисления: http: // www. oooforum.org/forum/viewtopic.phtml?t=16383 р>
В вашем случае com.sun.star.table.CellHoriJustify.CENTER
равно 2, поэтому вам нужно:
ooParams[0].Name := 'HorizontalJustification';
ooParams[0].Value := 2;
Не связан с StackOverflow