¿Puedo crear una celda multicolor sin un degradado en Excel?

0

Quiero aplicar dos colores a una celda y separarlos en diagonal. Sé que hay una función para agregar degradados en Excel, pero no he encontrado una manera de establecer la intensidad de la parada de color.

La primera celda es lo que parece ahora y la segunda es lo que necesito

Victor Odukoya
fuente
No creo que sea posible sin usar VBA complicado ...
Kinnectus
@ Kinnectus, me encantaría saber cómo se puede lograr, incluso si eso significa el uso de VBA complicado, ¡por favor!
Bharat Anand
@BharatAnand solo para hacerle saber que pude lograrlo. Publiqué una respuesta yo mismo.
Victor Odukoya

Respuestas:

1

Entonces, después de jugar un poco, descubrí cómo hacerlo. Mi error fue que solo agregué dos paradas de color, cuando debería haber agregado 4 paradas de color, para eliminar el gradiente de color. El gradiente se agrega automáticamente para crear una transición de color suave entre dos colores. Si hace que la distancia de detención de color entre dos colores sea lo más pequeña posible, no verá un degradado de color.

Aquí está mi código:

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

Y así es como se ve: Celda Excel de dos colores

Victor Odukoya
fuente