Funktion Red

Gibt die Rotkomponente des angegebenen zusammengesetzten Farbcodes zurück.

Syntax:


Red (Farbe As Long)

Rückgabewert:

Integer

Parameter:

Farbe: Long-Integer-Ausdruck, der einen beliebigen zusammengesetzten Farbcode angibt, für den die Rotkomponente zurückgegeben werden soll.

warning

Under VBA compatibility mode (Option VBASupport 1), the function Red() is incompatible with VBA colors, when color from previous call to function RGB [VBA] is passed.


Fehlercodes:

5 Ungültiger Prozeduraufruf

tip

Der Dialog Farbauswahl beschreibt die Rot-, Grün- und Blaukomponenten eines zusammengesetzten Farbcodes sowie seinen hexadezimalen Ausdruck. Ändern der Textfarbe und das Auswählen von Benutzerdefinierte Farbe zeigt den Farbauswahldialog an.


Beispiel:


Sub ExampleColor
Dim lVar As Long
    lVar = rgb(128,0,200)
    MsgBox "Die Farbe " & lVar & " hat die Anteile:" & Chr(13) &_
        "rot= " & red(lVar) & Chr(13)&_
        "grün= " & green(lVar) & Chr(13)&_
        "blau= " & blue(lVar) & Chr(13) , 64,"Farben"
End Sub