在 LibreOffice 中更改单元格背景颜色

Question

我使用的是 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 的背景颜色的功能。当我删除上面示例中的REM 行以设置背景颜色时，单元格背景颜色不改变。

如何在 LibreOffice 中使用函数设置单元格的背景颜色？

（我读到了关于使用“样式”，但没有进一步研究，因为我需要设置许多不同的背景颜色并且不想制作许多不同的样式。可以手动更改背景颜色而不使用样式，所以我认为可以以编程方式执行相同的操作。）

Answer 1

首先，您的宏总体上没有问题。如前所述，设置 CellBackColor 的单行是正确的。问题是该函数是从您尝试修改的工作表中调用的。不允许函数修改调用它的工作表。因此，如果您从工作表 1 调用函数，然后尝试更改工作表 1 中单元格的背景颜色，则会失败。但是，如果您在从工作表 1 调用时尝试更改工作表 0 上单元格的背景颜色，这将按预期工作。

Answer 2

该行应该是

cell.cellbackcolor = RGB(50,60,70) 

（当然没有“REM”，这只会创建注释行）

如果您只有一张工作表，请将工作表的参数也考虑为 0 而不是 1

有关其他有趣的属性，请参阅cell properties

Answer 3

Cell.BackColor = RGB(50,60,70) should do the trick

edit：这仅适用于 lowriter。谢谢坎帕。