Funktion Red

Ermittelt den Rot-Anteil des angegebenen Farbcodes.

Syntax:

Red (Farbe As Long)

Rückgabewert:

Integer

Parameter:

Farbe: Long Integer-Ausdruck, der einen Farbcode definiert, dessen Rotkomponente zurückgegeben werden soll.

Fehlercodes:

5 Ungültiger Prozeduraufruf

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