2.5.3.5.
Свойство объекта - Interior

Свойство Interior объекта Range возвращает объект interior, представляющий собой объ­ект, инкапсулирующий данные о запивке диапазона.
 
В табл. приведены свойства объекта interior.

 

Свойство

Описание

Color

Цвет заливки в соответствии с RGB-моделью

Range("А2:С2").Interior.Color = RGB(255,0,255)

Colorlndex

Индексированный цвет заливки в соответствии с текущей па­литрой цветов

Pattern

Узор заливки. Допустимыми являются следующие значения: xlPatternAutomatic, xlPatternChecker, xlPatternCrissCross, xlPatternDown, xlPatternGrayl6, xlPatternGray25, xlPatternGraybO, xlPatternGray75, xlPatternGray8, xlPatternGrid, xlPatternHorizontal, xlPatternLightDown, xlPatternLightHorizpntal, xlPatternLightUp, xlPatternLightVertical, xlPatternNone, xlPatternSemiGray75, xlPatternSolid, xlPatternUp, xlPatternVertical

PatternColor

Цвет узора в соответствии с RGB-моделью

PatternColorIndex

Индексированный цвет узора в соответствии с текущей палит­рой цветов

 
Например, в следующем примере для диапазона A1:D5 устанавливается красная заливка с синим клетчатым узором.
 
Sub int()
With Range("A1:D5").Interior
.Color=RGB(255,0,0)
.Pattern=xlatternChecker
.PatternColor=RGB(0,0,255)
End With
End Sub

 

В коде листинга выводится таблица цветов и соответствующих значений свойства ColorIndex.
 
Sub Palitra()
Dim с as integer
For c=1 to 56
Cells(c,1).Interior.ColorIndex=с
Cells(c,2).Value=с
Next
End Sub





ПОИСК
МОЯ КНОПКА
Контакты
МБОУ "Лицей им.Атякшева"

628260 г. Югорск, ул. Ленина 24,
ХМАО-Югра, Тюменская область
Телефон: 8 (34675)2-48-30
Факс: 8 (34675)2-48-30



89222596815 nady_er@mail.ru
Карта
sample map