Delphi Open Office Automation Scalc Center Zellentext

Question

Hallo könnte jemand bitte helfen Sie mir mit dem folgenden: Ich mag den Text in einer Scalc Open Office Tabellenzelle über Delphi und das OOoTools Toolkit zu zentrieren.

Der folgende Code funktioniert nicht:

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

Hat jemand eine Idee, warum nicht? Dank Ad

Answer 1

Es scheint, dass HorizontalJustification eine EnumValue braucht, aber Sie geben einen String. Sie haben den Wert von com.sun.star.table.CellHoriJustify.CENTER nachzuschlagen und füllen Sie Ihre ooParams[0].Value mit.

Hier ist ein Weg, um eine EnumValue Nachschlag: http: // www. oooforum.org/forum/viewtopic.phtml?t=16383

In Ihrem Fall com.sun.star.table.CellHoriJustify.CENTER gleich 2 ist, so benötigen Sie:

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