3流プログラマのメモ書き

元開発職→社内SE→派遣で営業支援の三流プログラマのIT技術メモ書き。 このメモが忘れっぽい自分とググってきた技術者の役に立ってくれれば幸いです。(jehupc.exblog.jpから移転中)

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