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