2
www.ChF-Online.de  

wd-Farbkonstanten

   Neuigkeiten
   API-Aufrufe in VBA
   VBA2HTML
   Word
 Menübefehle
 integrierte Dialogfelder
 WdDialogs-Konstanten
 WdDialogs-Parameter
aktiv aktiv WdColor-Konstanten
 Word-interne Symbole
 Symbole und Befehle
 Beschriftungsverzeichnisse
   Word-VBA
   Word2007 (RibbonX)
   Word2010 (RibbonX)
   Outlook-VBA
   Links zu VB(A)
   DocToHelp
   Netport Express XL
   Astronomie
   Gästebuch
   Volltextsuche
   Sitemap
   Buch:Word-Programmierung
   Impressum & Kontakt
   Datenschutzerklärung
Getestet unter Word2000  
Makro/Datei speichern
Print

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.


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

Farbe Nr. Farbe Nr.
Schwarz 0 Blau 1
Grün 2 Cyan 3
Rot 4 Magenta 5
Gelb 6 Weiß 7
Grau 8 Hellblau 9
Hellgrün 10 Hellcyan 11
Hellrot 12 Hellmagenta 13
Hellgelb 14 Leuchtend Weiß 15

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

Farbe Nr. Farbe Nr.
wdAuto 0 wdBlack 1
wdBlue 2 wdBrightGreen 4
wdByAuthor -1 wdDarkBlue 9
wdDarkRed 13 wdDarkYellow 14
wdGray25 16 wdGray50 15
wdGreen 11 wdNoHighlight 0
wdPink 5 wdRed 6
wdTeal 10 wdTurquoise 3
wdViolet 12 wdWhite 8
wdYellow 7    

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

Farbe Nr. Farbe Nr.
wdColorAqua 13421619 wdColorAutomatic -16777216
wdColorBlack 0 wdColorBlue 16711680
wdColorBlueGray 10053222 wdColorBrightGreen 65280
wdColorBrown 13209 wdColorDarkBlue 8388608
wdColorDarkGreen 13056 wdColorDarkRed 128
wdColorDarkTeal 6697728 wdColorDarkYellow 32896
wdColorGold 52479 wdColorGray05 15987699
wdColorGray10 15132390 wdColorGray125 14737632
wdColorGray15 14277081 wdColorGray20 13421772
wdColorGray25 12632256 wdColorGray30 11776947
wdColorGray35 10921638 wdColorGray375 10526880
wdColorGray40 10066329 wdColorGray45 9211020
wdColorGray50 8421504 wdColorGray55 7566195
wdColorGray60 6710886 wdColorGray625 6316128
wdColorGray65 5855577 wdColorGray70 5000268
wdColorGray75 4210752 wdColorGray80 3355443
wdColorGray85 2500134 wdColorGray875 2105376
wdColorGray90 1644825 wdColorGray95 789516
wdColorGreen 32768 wdColorIndigo 10040115
wdColorLavender 16751052 wdColorLightBlue 16737843
wdColorLightGreen 13434828 wdColorLightOrange 39423
wdColorLightTurquoise 16777164 wdColorLightYellow 10092543
wdColorLime 52377 wdColorOliveGreen 13107
wdColorOrange 26367 wdColorPaleBlue 16764057
wdColorPink 16711935 wdColorPlum 6697881
wdColorRed 255 wdColorRose 13408767
wdColorSeaGreen 6723891 wdColorSkyBlue 16763904
wdColorTan 10079487 wdColorTeal 8421376
wdColorTurquoise 16776960 wdColorViolet 8388736
wdColorWhite 16777215 wdColorYellow 65535

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

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 


 Besucher: 0 online  |  0 heute  |  0 diesen Monat  |  2202355 insgesamt | Seitenaufrufe: 66   Letzte Änderung: 24.06.2006 © 2001-18 Christian Freßdorf
  Nie aber weiß man genau, was man denkt, bevor man nicht versucht hat, darüber zu sprechen.
Kurt Marti
 powered by phpCMS and PAX