Texte de la cellule du centre scalaire de l'automatisation Delphi OpenOffice

Question

Bonjour, quelqu'un pourrait-il m'aider, s'il vous plaît, avec ce qui suit: Je souhaite centrer le texte dans une cellule de feuille de calcul scalc Open Office via Delphi et le toolkit OOoTools.

Le code suivant ne fonctionne pas:

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

Quelqu'un a-t-il une idée pourquoi pas? Merci Annonce

Answer 1

Il semble que HorizontalJustification nécessite une valeur énumérative, mais vous attribuez une chaîne. Vous devez rechercher la valeur de com.sun.star.table.CellHoriJustify.CENTER et remplir votre ooParams [0] .Value avec elle.

Voici un moyen de rechercher une valeur énumérée: http: // www. oooforum.org/forum/viewtopic.phtml?t=16383

Dans votre cas, com.sun.star.table.CellHoriJustify.CENTER est égal à 2, vous avez donc besoin de:

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