(OpenOffice Basic)Calcでセルテキストの配置を変える

OpenOffice Calc で セルの書式設定 → 配置タブ でやっている設定を OpenOffice Basic で実現する方法です。

とりあえず下記にサンプルを載せますが、セルオブジェクトのOrientationで細かく設定できるようです。

Dim oSheet as object

oSheet =  ThisComponent.Sheets.getByName("Sheet1")

Dim oCell as object 

oCell =  oSheet.getCellRangeByName("C1")

oCell.setString("あああ")

 

'○テキストの向きの設定

'垂直(縦書きにチェックを入れたのと同義)

oCell.Orientation = com.sun.star.table.CellOrientation.STACKED

'横向き(270度回転)

oCell.Orientation = com.sun.star.table.CellOrientation.TOPBOTTOM

'横向き(90度回転)

oCell.Orientation = com.sun.star.table.CellOrientation.BOTTOMTOP

 

'○テキストの配置の設定

'水平での中央揃え

oCell.HoriJustify = com.sun.star.table.CellHoriJustify.CENTER

'垂直での中央揃え

oCell.VertJustify = com.sun.star.table.CellVertJustify.CENTER

 

'セルの大きさに合わせて縮小

ShrinkToFit = True

より詳しくは下記リンクを参照。
表計算ドキュメントの書式設定 - OpenOffice.org Wiki
OOoBasic/Calc/font
api: Enum CellOrientation

(高熱の夏風邪ひいたり、イベントで忙しかったりと最近新記事をアップできてない3流PGでした。)