wd-Farbkonstanten

Innerhalb von Word können an verschiedenen Stellen auf Farben zurückgegriffen werden, z.B. im die Textfarbe oder Hintergrundfarbe festzulegen.
Allerdings stehen nicht alle Farben allen Befehlen zur Verfügung, sondern es wird In folgender Tabelle findet Ihr eine Übersicht šber die verschiedenen WdColor-Konstanten der in Word integrierten Farben.

With Selection
  .Shading.BackgroundPatternColor = wdColorAutomatic
End With 

ist gleichbedeutend mit folgendem Aufruf:

With Selection
  .Shading.BackgroundPatternColor = -16777216
End With 

Die RGB-Funktion gibt einen Wert vom Typ Long zurück, der einen RGB-Farbwert darstellt. Der Aufruf erfolgt unter Angabe der Rot-/Grün- nd Blauanteile.
_berschreitet ein Farbwert den Wert 255, wird automatisch 255 angenommen.

Rot=RGB(255,0,0)

Die QBColor-Funktion gibt einen Wert vom Typ Long zurück, der dem RGB-Farb-Code einer der 16 Farbnummern entspricht. Der zurückgegebene Wert gibt dabei die Rot-, Grün- und Blauwerte an, mit denen die entsprechende Farbe in dem RGB-System gesetzt wird.

lret = QBColor(14)
' entspricht Hellgelb
' ergibt 65355 

Folgende Farben können über mit der QBColor-Funktion umgewandelt werden:

In folgender Tabelle findet Ihr die Index-Farben wie sie z.B. für ForegroundPatternColorIndex benötigt werden.

Die folgende Tabelle zeigt die vollständige Liste der in Word verfügbaren Farbkonstanten an, wie sie z.B. für BackgroundPatternColor angeboten werden.

Mit folgenden Funktionen und dem API GetSysColor können die Farbwerte in RGB und HEX-Farben gewandelt werden:

Public Type RGBType
    Red As Long 
    Green As Long 
    Blue As Long 
End Type 
Private Declare Function GetSysColor Lib "user32" _
(ByVal nIndex As Long) As Long 
Public Color As Long 

Public Function GetRGB(Color As Long) As RGBType  
    Dim lngColor As Long 
    If Color And &H80000000 Then 
        ' Systemfarbe  
        lngColor = GetSysColor(Color & &H7FFFFFFF)
    Else 
        ' BGR-Farbwert  
        lngColor = Color
    End If 
    GetRGB.Red = lngColor And &HFF&
    GetRGB.Green = (lngColor And &HFF00&) \ &H100
    GetRGB.Blue = (lngColor And &HFF0000) \ &H10000
End Function 

Sub Farbspiele()  
Dim rgbRot As RGBType
Dim sRGB, sHEX As String 
Color = QBColor(14)
rgbRot = GetRGB(Color)
With rgbRot
    sRGB = .Red & "," & .Green & "," & .Blue
    sHEX = Format(Hex(.Red), "00") & Format(Hex(.Green), "00") _
       & Format(Hex(.Blue), "00")
MsgBox sRGB
MsgBox sHEX
End With 
End Sub