OpenOffice.info

Herzlichen Dank hat geklappt....Gruß

Sub calc_getCellBackgroundColor
farbe = _
ThisComponent.getCurrentController().Model.CurrentController.Selection.CellBackColor
print "rot: " & RED( farbe ) & ", grün: " & GREEN( farbe ) & ", blau: " & BLUE( farbe )
print "Hex-Wert: " & hex( farbe )
End Sub

Für Writer WORD hatte ich das [url=http://de.openoffice.info/viewtopic.php?f=1&t=25526&p=109113&hilit=farbe#p109113]hier[/url] gelöst ... für einen Calc-Zellhintergrund ist die Lösung ähnlich ...

Die gewünschte Zelle markieren und dann das Makro laufen lassen, angezeigte Werte notieren und dann die Farbe einrichten ([color=#008000]Extras>Optionen...>OpenOffice.org>Farben[/color])


Funktioniert bei EINER selektierten Zelle, keine Fehlerprüfung!
[code]
Sub calc_getCellBackgroundColor
farbe = _
ThisComponent.getCurrentController().Model.CurrentController.Selection.CellBackColor
print "rot: " & RED( farbe ) & ", grün: " & GREEN( farbe ) & ", blau: " & BLUE( farbe )
print "Hex-Wert: " & hex( farbe )
End Sub
[/code]



Kommst Du damit zurecht?

Ich habe eine mit Excel erstellte Tabelle und eine Füllfarbe die in Calc nicht existiert, sie wird zwar dargestellt aber ein Feld mit dieser Farbe zu füllen ist nicht möglich, nur mit kopieren. Kann man diese Farbe erzeugen so das man sie ganz normal verwenden kann?

LG Perkel