Вызов таблицы цветов

We use cookies. Read the Privacy and Cookie Policy

При необходимости можно вывести на экран таблицу цветов и соответствующих значений свойства Colorlndex (данное свойство задает индексированный цвет заливки в соответствии с палитрой цветов). Для этого создадим и запустим следующий макрос (листинг 3.77).

Листинг 3.77. Отображение таблицы цветов

Sub ShowColorTable()

Dim intColor As Integer

' Формирование заголовка таблицы

Range(«A1»).Value = «Цвет»

Range(«B1»).Value = «Значение свойства ColorIndex»

' Вывод таблицы

Range(«A2»).Select

For intColor = 1 To 56

' Окрашиваем ячейку столбца "A" в текущий цвет

With ActiveCell.Interior

.ColorIndex = intColor

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

End With

' В ячейку столбца "B" вносим индекс текущего цвета

ActiveCell.Offset(0, 1).Value = intColor

' Переходим на следующую строку

ActiveCell.Offset(1, 0).Activate

Next

' Покажем ячейку «A1» (начало таблицы)

Range(«A1»).Select

ActiveWindow.ScrollRow = 1

End Sub

В результате выполнения макроса откроется таблица, изображенная на рис. 3.24.

Рис. 3.24. Таблица цветов

В столбце А данной таблицы отображается перечень цветов, а в столбце В – соответствующие им значения свойства Colorlndex. На рисунке показан лишь фрагмент таблицы, поскольку полностью она состоит из 56 строк.