Функція Red

Повертає червоний компонент в переданому в колірному коді.

Синтаксис:

Red (Колір As Long)

Повернуте значення:

Ціле число

Параметр:

Колір: вираз з цілих чисел типу Long, що містить будь-який колірний код, для якого необхідно повернути червоний компонент.

Коди помилок:

5 Неправильний виклик процедури

Приклад:

Sub ExampleColor

Dim lVar As Long

    lVar = rgb(128,0,200)

    MsgBox "Цей колір " & lVar & " складається з:" & Chr(13) &_

        "червоного= " & red(lVar) & Chr(13)&_

        "зеленого= " & green(lVar) & Chr(13)&_

        "синього= " & blue(lVar) & Chr(13) , 64,"кольорів"

End Sub