OpenOffice.info

Hallo Stephan,


dazu habe ich nur eine Bemerkung.


**** einfach genial ***


mfg
mike

Sub Main
x = ThisComponent.GetCurrentSelection.GetByIndex(0).CharColor
Msgbox "R: " & RED(x) & CHR(13) & _
		"G: " & GREEN(x) & CHR(13) & _
		"B: " & BLUE(x)
End Sub

entweder:
mache einen Screenshoot und eermittle die Farbe mit der Farbpipette eines Grafik-/Bildbearbeitungs-/Zeichenprogramms Deiner Wahl.

oder:
lass dieses Makro laufen, nachdem Du einige Buchstaben des gewünschten Textes markiert hast:

[code]Sub Main
x = ThisComponent.GetCurrentSelection.GetByIndex(0).CharColor
Msgbox "R: " & RED(x) & CHR(13) & _
"G: " & GREEN(x) & CHR(13) & _
"B: " & BLUE(x)
End Sub[/code]


Gruß
Stephan

Hallo,

ich habe eine Datei erhalten, wo der Briefkopf in einer bestimmten Farbe
dargestellt ist.

Die Farbe ist nicht aus der Zeichen / Absatzvorlage ersichtlich.
Wie kann ich den Fabton ermitteln bzw. in die Palette
[b]Extras / Optionen / Farben [/b]
übernehmen?


mfg
mike