Funci贸n Red

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

Sintaxis:


Red (N煤meroColor As Long)

Valor de retorno:

Entero

Par谩metros:

ColorNumber: Long integer expression that specifies any composite color code for which to return the Red component.

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.


C贸digos de error:

5 Llamada a procedimiento no v谩lida

tip

The color picker dialog details the red, green and blue components of a composite color code, as well as its hexadecimal expression. Changing the color of text and selecting Custom color displays the color picker dialog.


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

隆Necesitamos su ayuda!