如何在LibreOffice Basic中获取单元格颜色？

Question

我想使用LibreOffice Basic宏来计算选择中黄色，橙色，绿色和红色的出现次数。我去了this Stackoverflow question，但它对我不起作用。

以下是代码：

Sub Main
    dim selection,cell as Object
    dim i,j as integer
    selection = ThisComponent.getCurrentController().getSelection()

    for i=selection.RangeAddress.StartRow to selection.RangeAddress.EndRow
        for j=selection.RangeAddress.StartColumn to Selection.RangeAddress.EndColumn
            cell = ThisComponent.Sheets(0).getCellByPosition(i,j)
            print cell.CellBackColor
            rem TODO: Count colors
        next
    next
End Sub

除了单元格颜色为黑色外，它会显示-1，然后显示0。我做错了什么？

Answer 1

我在j中切换了getCellByPosition(i,j)和getCellByPosition(j,i)。它应该是{{1}}。