o texto da célula de automação de centro scalc Delphi OpenOffice
-
22-07-2019 - |
Pergunta
Olá, alguém poderia me ajudar com o seguinte: Quero centralizar o texto em uma célula scalc escritório aberto planilha via Delphi eo kit de ferramentas OOoTools.
O código a seguir não funciona:
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);
Tem alguém alguma idéia de por que não? Graças anúncio
Solução
Parece que HorizontalJustification precisa de uma EnumValue, mas você está dando uma corda. Você tem que pesquisar o valor de com.sun.star.table.CellHoriJustify.CENTER
e encha a sua ooParams[0].Value
com ele.
Aqui está uma maneira para procurar um EnumValue: http: // www. oooforum.org/forum/viewtopic.phtml?t=16383
No seu caso com.sun.star.table.CellHoriJustify.CENTER
é igual a 2, então você precisa:
ooParams[0].Name := 'HorizontalJustification';
ooParams[0].Value := 2;
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow