Delphi OpenOffice 自动化计算中心单元格文本

Question

您好，有人可以帮我解决以下问题： 我想通过 Delphi 和 OOoTools 工具包在 scalc open office 电子表格单元格中将文本居中。

以下代码不起作用：

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);

有人知道为什么不吗？ 感谢广告

Answer 1

Horizo​​ntalJustification 似乎需要一个枚举值，但您给出的是一个字符串。您必须查找 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;