Объект ColorStops (Excel)
Коллекция всех объектов ColorStop для указанного ряда.
Каждый объект ColorStop представляет цветовую остановку для градиентной заливки в диапазоне или выделенном фрагменте.
В следующем примере показаны цветовые остановки с линейными градиентами.
With Selection.Interior
.Pattern = xlPatternLinearGradient
.Gradient.Degree = 90
.Gradient.ColorStops.Clear
End With
'adds stops after any have been cleared
With Selection.Interior.Gradient.ColorStops.Add(0)
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
With Selection.Interior.Gradient.ColorStops.Add(1)
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0
End With
В следующем примере показано, что цвет останавливается прямоугольными градиентами.
With Selection.Interior
.Pattern = xlPatternRectangularGradient
.Gradient.RectangleLeft = 0
.Gradient.RectangleRight = 0
.Gradient.RectangleTop = 0
.Gradient.RectangleBottom = 0
.Gradient.ColorStops.Clear
End With
With Selection.Interior.Gradient.ColorStops.Add(0)
.Color = 192
.TintAndShade = 0
End With
With Selection.Interior.Gradient.ColorStops.Add(1)
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.