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

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

(OpenOffice Basic)Calcで枠線を引く方法

OpenOffice Basic で Calc のセルの枠線(罫線)を引く方法です。

先にBorderLineオブジェクトを作ってから、セルにセットするという流れになるようです。

Dim oSheet as object

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

Dim oCell as object

oCell = oSheet.getCellRangeByName("C1")

'BorderLineオブジェクト生成

Dim l As New com.sun.star.table.BorderLine

'枠線の幅

l.OuterLineWidth = 35

'セルに枠線をセット

oCell.LeftBorder = l

セルのLeftBorder, RightBorder, TopBorder, BottomBorder, プロパティーに BorderLine オブジェクトをセットするとそれぞれの辺に枠線がひけます。

セルだけでなく、CellRange (セル範囲)に対しても指定できるようですね。

ちなみに、OuterLineWidthの値が 35 の時がCalcのGUIで設定した時の 1.00 pt になるようです。

参考:

OOoBasic/Calc/border