VBA Excel. Узор (рисунок) в ячейке

    Добавление узора (штрихового рисунка) в ячейку (диапазон) и присвоение узору цвета с помощью кода VBA Excel. Константы XlPattern и XlThemeColor.

    Добавление узора в ячейку

    Синтаксис добавления узора

    Добавление узора в ячейку (диапазон ячеек) с цветом по умолчанию:

    ConstantXlPattern – константа из коллекции XlPattern, задающая шаблон узора (штрихового рисунка).

    Свойство Interior объекта Range возвращает объект Interior (внутренняя область диапазона), а свойство Pattern объекта Interior задает шаблон узора ячейки (диапазона) или возвращает его числовое значение.

    Константы XlPattern

    Шаблоны узоров (штриховых рисунков) с цветом по умолчанию:

    Шаблоны узоров для ячеек

    Таблица констант из коллекции XlPattern:

    Константа Значение Описание
    xlPatternNone -4142 Нет узора
    xlPatternGray75 -4126 75% серый
    xlPatternGray50 -4125 50% серый
    xlPatternGray25 -4124 25% серый
    xlPatternHorizontal -4128 Темные горизонтальные линии
    xlPatternVertical -4166 Темные вертикальные полосы
    xlPatternDown -4121 Темные диагональные линии слева вниз
    xlPatternUp -4162 Темные диагональные линии слева вверх
    xlPatternSolid 1 Сплошной цвет
    xlPatternChecker 9 Шахматная доска
    xlPatternSemiGray75 10 75% темно-серый
    xlPatternLightHorizontal 11 Светлые горизонтальные линии
    xlPatternLightVertical 12 Светлые вертикальные полосы
    xlPatternLightDown 13 Светлые диагональные линии слева вниз
    xlPatternLightUp 14 Светлые диагональные линии слева вверх
    xlPatternGrid 15 Сетка
    xlPatternCrissCross 16 Перекрестные линии
    xlPatternGray16 17 16% серый
    xlPatternGray8 18 8% серый
    xlPatternAutomatic -4105 Шаблоном узора управляет Excel

    Присвоение узору цвета

    Присвоение одного из стандартных цветов узору в ячейке (диапазоне ячеек):

    ConstantXlThemeColor – константа из коллекции XlThemeColor, задающая цвет узора (штрихового рисунка).

    Константы XlThemeColor

    Стандартные цвета узоров в ячейках на примере рисунка «Темные вертикальные полосы»:

    Стандартные цвета узоров для ячеек

    Таблица констант из коллекции XlThemeColor:

    Константа Значение Описание
    xlThemeColorDark1 1 Светлый 1
    xlThemeColorLight1 2 Темный 1
    xlThemeColorDark2 3 Светлый 2
    xlThemeColorLight2 4 Темный 2
    xlThemeColorAccent1 5 Акцент 1
    xlThemeColorAccent2 6 Акцент 2
    xlThemeColorAccent3 7 Акцент 3
    xlThemeColorAccent4 8 Акцент 4
    xlThemeColorAccent5 9 Акцент 5
    xlThemeColorAccent6 10 Акцент 6
    xlThemeColorHyperlink 11 Гиперссылка
    xlThemeColorFollowedHyperlink 12 Гиперссылка при наведении

    Примеры

    Пример 1
    Проверка наличия узора в активной ячейке:

    Пример 2
    В столбец «A» запишем значения констант из коллекции XlPattern, а в столбец «B» вставим соответствующие им узоры:

    Пример 3
    В столбец «A» запишем значения констант из коллекции XlThemeColor, а в столбец «B» вставим соответствующие им цвета для рисунка «Шахматная доска»:

    Смотрите как залить ячейку цветом (фоном).


    Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.

    Добавить комментарий

    Ваш комментарий будет опубликован после прохождения обязательной модерации. Исходящие ссылки не допускаются. Время модерации составит от нескольких минут до нескольких часов в зависимости от времени суток и занятости модератора.