问在LibreOffice中改变单元格背景色

EN

我使用的是LibreOffice 3.5.4.2。我想根据不同的情况改变细胞的背景色。作为一个最小的例子，我定义了以下宏/函数：

function bgcolor()
Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object   

Doc = ThisComponent
Sheet = Doc.Sheets(1)

Cell = Sheet.getCellByPosition(0, 0)
REM Cell.CellBackColor = RGB(50,60,70)
bgcolor=Cell.CellBackColor
end function

我通过将=BGCOLOR()输入一个单元格来执行这个函数。该公式所在的单元格返回表1上的第一个单元格(0,0)或A1的颜色值，如预期的那样。

但是，我无法获得更改单元格A1的背景色的函数。当我删除上面示例中的行时，单元格背景色不会改变，以设置背景色，设置。

如何在LibreOffice中设置带有函数的单元格的背景色？

(我读过关于使用“样式”的文章，但没有进一步研究，因为我需要设置许多不同的背景色，并且不想制作许多不同的样式。可以手动更改背景色而不使用样式，因此我认为可以通过编程方式进行相同的更改。)