RGB Function

Возвращает значение цвета типа Long, состоящее из красного, зелёного и синего компонентов.

Синтаксис

RGB (Красный, Зелёный, Синий)

Возвращаемое значение:

Long

Параметр:

Красный. Выражение из целых чисел, которое представляет красный компонент (0-255) составного цвета.

Зелёный. Выражение из целых чисел, которое представляет зелёный компонент (0-255) составного цвета.

Синий. Выражение из целых чисел, которое представляет синий компонент (0-255) составного цвета.

Error codes:

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