Я хочу применить два цвета к одной ячейке и разделить их по диагонали. Я знаю, что в Excel есть функция добавления градиентов, но я не нашел способа установить силу цветового ограничителя.
1 ответ
0
Поэтому, немного поиграв, я понял, как это сделать. Моя ошибка заключалась в том, что я добавил только две цветовые остановки, когда я должен был добавить 4 цветных остановки, чтобы убрать градиент цвета. Градиент добавляется автоматически для создания плавного цветового перехода между двумя цветами. Если вы сделаете расстояние остановки цвета между двумя цветами как можно меньше, вы не увидите цветовой градиент.
Вот мой код:
With Selection.Interior
.Pattern = xlPatternLinearGradient
.Gradient.Degree = 225
.Gradient.ColorStops.Clear
End With
With Selection.Interior.Gradient.ColorStops.Add(0)
.Color = RGB(255, 0, 0)
.TintAndShade = 0
End With
With Selection.Interior.Gradient.ColorStops.Add(0.49999999)
.Color = RGB(255, 0, 0)
.TintAndShade = 0
End With
With Selection.Interior.Gradient.ColorStops.Add(0.5)
.Color = RGB(0, 255, 0)
.TintAndShade = 0
End With
With Selection.Interior.Gradient.ColorStops.Add(1)
.Color = RGB(0, 255, 0)
.TintAndShade = 0
End With
А вот как это выглядит: двухцветная ячейка Excel