デOpenOffice自動化scalcセンター細胞のテキスト
-
22-07-2019 - |
質問
こんにちはが人になりたいとのいセンター、テキストscalcオープンオフィスト細胞によ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必要となりますenumvalueがんを文字列になります。い検索の値 com.sun.star.table.CellHoriJustify.CENTER
入力を行ってくださ ooParams[0].Value
します。
ここではルックアップするenumvalue: http://www.oooforum.org/forum/viewtopic.phtml?t=16383
お場合 com.sun.star.table.CellHoriJustify.CENTER
equals2,りにご利用いただけます:
ooParams[0].Name := 'HorizontalJustification';
ooParams[0].Value := 2;
所属していません StackOverflow