wd-Farbkonstanten |
|
Innerhalb von Word können an verschiedenen Stellen auf Farben zurückgegriffen werden, z.B. im die Textfarbe oder Hintergrundfarbe festzulegen. With Selection .Shading.BackgroundPatternColor = wdColorAutomatic End With ist gleichbedeutend mit folgendem Aufruf: 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. 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 |
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 |