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.

Im VBA-Kompatibilitätsmodus (Option VBASupport 1) ist die Funktion Red() nicht kompatibel mit VBA-Farben, wenn die Farbe vom vorherigen Aufruf an die VBA-Funktion RGB übergeben wird.

Fehlercodes:

5 Ungültiger Prozeduraufruf

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