OpenOffice.org BASIC Guide.pdf - OpenOffice.org wiki

Formatting Spreadsheet Documents 137
A format is specified using a format string that is structured in a similar way to the format
function of OpenOffice.org Basic. However there is one major difference: whereas the
command format expects English abbreviations and decimal points or characters as
thousands separators, the country-specified abbreviations must be used for the structure of
a command format for the NumberFormats object.
The following example formats the B2 cell so that numbers are displayed with three
decimal places and use commas as a thousands separator.
Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object
Dim NumberFormats As Object
Dim NumberFormatString As String
Dim NumberFormatId As Long
Dim LocalSettings As New com.sun.star.lang.Locale
Doc = StarDesktop.CurrentComponent
Sheet = Doc.Sheets(0)
Cell = Sheet.getCellByPosition(1,1)
Cell.Value = 23400.3523565
LocalSettings.Language = "en"
LocalSettings.Country = "us"
NumberFormats = Doc.NumberFormats
NumberFormatString = "#,##0.000"
NumberFormatId = NumberFormats.queryKey(NumberFormatString,
LocalSettings, True)
If NumberFormatId = -1 Then
NumberFormatId = NumberFormats.addNew(NumberFormatString,
LocalSettings)
End If
MsgBox NumberFormatId
Cell.NumberFormat = NumberFormatId
The Format Cells dialog in OpenOffice.org Calc provides an overview of the different
formatting options for cells.