Управление стилем границы диапазона и объекта Border

Свойство Borders объекта Range возвращает семейство Borders, элементы которого инкапсулируют данные об одной из граничных или диагональных линий данного диапазона. Допустимыми значениями индекса семейства Borders могут быть следующие постоянные XlBordersIndex: xlDiagonalDown, xlDiagonalUp, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, xlEdgeTop, xlInsideHorizontai и xlInsideVerticai. Каждая из этих границ представ­ляет собой объект Border, свойства которого перечислены в табл. 5.16.

Таблица 5.16. Свойства объекта Border

Свойство	Описание
Color	Цвет границы, заданный при помощи RGB-модели
Colorlndex	Цвет границы, заданный индексом соответствующего элемента цветовой палетки
LineStyle	Задает стиль границы. Допустимыми значениями являются следующие постоянные XlLineStyle: xlContinuous, xlDash, xlDashDot, xlDashDotDot, xlDot, xlDouble, xlSlantDashDot и xlLineStyleNone
Weight	Устанавливает толщину границы. Допустимыми значениями являются следующие постоянные XlBorderWeight: xlHairline, xlThin, xlMedium и xlThick

Например, код листинга 5.41 задает верхнюю границу диапазона А2:С2 в виде толстой линии красного цвета, а его нижнюю границу — в виде зеленой пунктирной линии средней толщины.

Sub DemoBorders()

Dim rgn As Range

Set rgn = Range("A2:C2")

With rgn.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.Weight = xlThick

.Color = RGB(255, 0, 0)

End With

With rgn.Borders(xlEdgeBottom)

.LineStyle = xlDash

.Weight = xlMedium

.Color = RGB(0, 255, 0)

End With

End Sub

Если все компоненты границы имеют одни и те же параметры, то для уста­новки их значения можно воспользоваться не элементами, а всем семейством Borders, как это, например, делается в следующей инструкции для создания границы синего цвета у выделенной области.

Selection.Borders.Color = RGB(0, 0, 255)

Функции rgb и qbColor

Коды цветов в VBA часто задаются числами в шестнадцатеричной системе счисления. Вместо прямого указания шестнадцатеричного кода цвета довольно часто цвет удобнее задавать, используя функции RGB и QBColor. Функция RGB позволяет получить любой цвет смешением красного, зеленого и синего компонентов различной интенсивности.

RGB(Red, Green, Blue)

Здесь:

• Red — целое число из диапазона от 0 до 255, указывающее красный компонент цвета;

• Green — целое число из диапазона от 0 до 255, указывающее зеленый компонент цвета;

• Blue — целое число из диапазона от 0 до 255, указывающее синий компонент цвета.

В табл. 5.17 приведены значения параметров функции RGB для получения стандартных цветов.

Таблица 5.17. Значения параметров функции rgb для получения стандартных цветов

Цвет	Red	Green	Blue
Черный	0	0	0
Синий	0	0	255
Зеленый	0	255	0
Голубой	0	255	255
Красный	255	0	0
Розовый	255	0	255
Желтый	255	255	0
Белый	255	255	255

Функция QBColor возвращает 16 основных цветов в зависимости от значе­ния параметра (табл. 5.18)

QBCoior(color)

Здесь параметр color принимает целые числа из диапазона от 0 до 15.

Таблица 5.18. Соответствие между цветами и значением параметра функции QBColor

Число	Цвет	Число	Цвет
0	Черный	8	Серый
1	Синий	9	Светло-синий
2	Зеленый	10	Светло-зеленый
3	Голубой	11	Светло-голубой
4	Красный	12	Светло-красный
5	Розовый	13	Светло-розовый
6	Желтый	14	Светло-желтый
7	Белый	15	Насыщенный белый