Ändern Zelle Hintergrundfarbe in LibreOffice

Ich bin mit LibreOffice 3.5.4.2. Ich würde gerne die Hintergrundfarbe ändern von Zellen, die basierend auf verschiedenen Bedingungen. Als minimal-Beispiel, ich habe das folgende makro/Funktion definiert:

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

Führe ich die Funktion durch die Eingabe =BGCOLOR() in eine Zelle. Die Zelle in der die Formel vorhanden ist, gibt die Farbe den Wert der ersten Zelle (0,0) oder A1 auf Blatt 1, wie erwartet.

Aber ich Schaffe es nicht, die Funktion zu ändern, die hintergrund Farbe der Zelle A1. Die Zelle Hintergrundfarbe wird nicht ändern, wenn ich entfernen Sie die REM Zeile im Beispiel oben set die Hintergrundfarbe.

Wie kann ich die Hintergrundfarbe einer Zelle mit einer Funktion in LibreOffice?

(Ich lese über die Verwendung von "- Stilen", aber sah nicht weiter auf, weil ich viele verschiedene Farben im hintergrund und wollte nicht zu viele verschiedene Stile. Es ist möglich, manuell die Hintergrundfarbe ändern, ohne die Verwendung von Stilen, so dass ich dachte, es wäre möglich, das gleiche zu tun programmgesteuert.)

InformationsquelleAutor SabreWolfy | 2012-08-23