(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でした。)