Moin, suche font farben ( Bsp: .Color = -553598977 in Makros)

11/12/2009 - 09:58 von Karle | Report spam
Moin, zum Einfàrben von Text in Word verwende ich ein kleines Makro. Leider
ist das Ergebnis eher zufàllig, da ich keine Zuordnung der Farbnummer zur
Farbe finde. In Word gibt's die schöne Farbskala zum Auswàhlen, die stellt
mir aber das Makro nicht zur verfügung. So müßte ich für jede gewünschte
Farbe das Makro neu aufzeichnen. Ich möchte aber im Makro text nur die neue
Nummer eingeben. Wer hat nen Tip?
Vielen Dank!
 

Lesen sie die antworten

#1 Christian Freßdorf
11/12/2009 - 10:42 | Warnen spam
Hallo Karle,

Moin, zum Einfàrben von Text in Word verwende ich ein kleines Makro. Leider



kannst du das zeigen, damit wir die richtige Color-Methode haben?

Teste mal folgende Aufschlüsselung:
' Farbanteil BLAU
Public Function ColorBlue(ByVal Color As Long) As Integer
ColorBlue = Color \ &H10000 And &HFF&
End Function

' Farbanteil ROT
Public Function ColorRed(ByVal Color As Long) As Integer
ColorRed = Color And &HFF&
End Function

' Farbanteil GRÜN
Public Function ColorGreen(ByVal Color As Long) As Integer
ColorGreen = Color \ &H100& And &HFF&
End Function

Also ColorBlue(-553598977)
wobei mir die Zahl wenig vertraut vorkommt.

Gruß Christian
~~~~~~~~~~~~
Antworten / Rückmeldungen nur in die NG!
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)

Ähnliche fragen