autoFormatメソッドで設定可能のようですが、

さらに詳しく調べる必要がありそうです。

Sub ksCalcAutoFormat
Dim oDoc as Object
Dim objSheet as Object
Dim cellRange as Object

objSheet = ThisComponent.getSheets().getByIndex(0)
cellRange = objSheet.getCellRangeByPosition(0, 0, 5, 5)
cellRange.autoFormat(“3D”)

End Sub

選択範囲のフォント変更はCharFontName(西洋)とCharFontNameAsian(東洋)

の２種類があります。

これを使い分けないと、うまくフォント変更ができません。

日本語のフォントは東洋フォントを変更しないと反映されないということです。

Sub ksChangeFont
Dim objSheet as Object
Dim objCellRange as Object

objSheet=ThisComponent.sheets(0)
objCellRange=objSheet.getCellRangeByPosition(0,0,2,2)
objCellRange.CharFontName = “Arial Black”
objCellRange.CharFontNameAsian = “メイリオ”
end sub

これはパス。

選択範囲はgetCellRangeByPositionで取得しています。

そのあとは、clearContents(511)です。

Sub ksClearRanges
Dim objSheet as Object
Dim objCellRange as Object

objSheet=ThisComponent.sheets(0)
objCellRange=objSheet.getCellRangeByPosition(0,0,4,4)
objCellRange.clearContents(511)
end sub

０７１で示したように、

書式を削除するには、clearContents(32)を使用します。