Schriftfarbe übernehmen

[mike6]

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
Extras / Optionen / Farben
übernehmen?


mfg
mike

[Stephan]

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: Alles auswählen

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

Gruß
Stephan

[mike6]

Hallo Stephan,


dazu habe ich nur eine Bemerkung.


**** einfach genial ***


mfg
mike