Función Red

Devuelve el componente rojo del código de color compuesto especificado.

Sintaxis:


Red (NúmeroColor As Long)

Devuelve tipo:

Entero

Parámetros:

Color: Entero largo que especifica un código de color compuesto para el cual devolver el componente rojo.

En el modo de compatibilidad de VBA (Opción VBASupport 1), la función Red() es incompatible con los colores de VBA, cuando el color de la llamada anterior a la función RGB [VBA] se pasa.

Códigos de error:

5 Llamada a procedimiento no válida

El diálogo Seleccione un color detalla los componentes rojo, verde y azul de un código de color compuesto, así como su expresión hexadecimal. Cambiar el color del texto y seleccionar Color personalizado muestra el diálogo selector de color.

Ejemplo:


Sub ExampleColor
Dim lVar As Long
    lVar = rgb(128,0,200)
    MsgBox "El color " & lVar & " contiene los componentes:" & Chr(13) &_
        "rojo = " &  red(lVar) & Chr(13)&_
        "verde= " &  green(lVar) & Chr(13)&_
        "azul= " & blue(lVar) & Chr(13) , 64,"colores"
End Sub