Как присвоить ячейке процентный формат?

[OLEGrsk]

Всем привет!

Пишу макрос, который на выхлопе выдаёт файл Calc, в который внесены нужные данные и проставлены нужные формулы.
Проблема заключается в следующем: ячейке с формулой необходимо присвоить процентный формат.
Подскажите, как можно это реализовать?

Код Выделить Развернуть

Dim oNewDoc, oCreateSheet as Object

Sub CreateTable

oNewDoc = starDeskTop.loadComponentFromUrl ("private:factory/scalc", "_blank", 0, Array())
oCreateSheet = oNewDoc.sheets(0)
oCreateSheet.getCellByPosition(10,1).formula = "=J2/U2"

End Sub

[rami]

Проблема заключается в следующем: ячейке с формулой необходимо присвоить процентный формат.

Добавьте строку кода:

Код Выделить Развернуть

oCreateSheet.getCellByPosition(10,1).NumberFormat = 11

[OLEGrsk]

Проблема заключается в следующем: ячейке с формулой необходимо присвоить процентный формат.

Добавьте строку кода:

Код Выделить Развернуть

oCreateSheet.getCellByPosition(10,1).NumberFormat = 11

Спасибо! То что нужно.