Cómo añadir degradados a las celdas utilizando la propiedad de degradado en una macro de Excel
Las herramientas que la tecnología nos ofrece hoy en día son prácticamente infinitas, pero debemos saber utilízalos correctamente para lograr el objetivo fijado. Hoy en día, Microsoft Excel y sus macros se consideran potentes, flexibles y las herramientas más utilizadas del mundo.
Sin embargo, si eres un usuario avanzado, te estarás preguntando cómo añadir gradientes a las celdas mediante la propiedad Gradiente en una macro de Excel.
Ventajas de la propiedad Gradiente en una macro de Excel
A Propiedad del gradiente es una herramienta útil para dar formato a las celdas de las hojas de cálculo de Excel aplicando colores degradados. Por lo tanto, utilizarlo correctamente te permitirá hacer lo siguiente
- Personaliza una hoja de cálculo de Excel diferenciando fácilmente las celdas seleccionadas dentro del rango y el dominio.
- Dar formatos condicionales a las hojas de cálculo de Excel, utilizando una macro.
A configura el gradiente, también puedes tener una subsección conocida como el objeto ColorStop. Contiene una colección de todos los puntos finales o de ruptura de un color en el degradado. Señalamos que mediante este objeto se puede aplicar el color al interior de una celda o rango.
Por lo tanto, se pueden utilizar gradientes predefinidos o si decides crearlos desde cero a tu conveniencia. A continuación, explicaremos el uso de Propiedad de gradiente para añadir colores de gradiente al interior de las celdas mediante macros.
Cómo añadir degradados con objetos estándar con ColorStop
Hay varios métodos y formas de añadir gradientes a las celdas mediante la propiedad Gradiente . Sin embargo, para ilustrar el proceso de la forma más sencilla, utilizaremos el lenguaje de macros de Microsoft Visual Basic conocido como VBA de Microsoft.
A continuación, te explicaremos cómo puedes cambiar el primer y el segundo color de un degradado utilizando VBA para Excel. Debes tener en cuenta que los siguientes códigos explicados paso a paso se sólo cambiar el color del degradado . Por tanto, se supone que ya existe un gradiente en la célula en cuestión, entonces:
- En primer lugar, debes saber que al crear un degradado mediante VBA, Surgen 2 objetos ColorStop De la colección de gradientes primarios. Donde uno de los objetos de parada de color tendrá la posición 1 y el otro la posición 2.
- Ahora, para utilizar plenamente las propiedades de la gradiente en VBA se recomienda cambiar las posiciones por defecto a 0 y 1. De este modo, puedes añadir una posición intermedia como se indica a continuación:
Sub main () Dim objColorStop As ColorStop Dim lngColor1 As Long Dim lngColor0 As Long
‘crea el degradado en la celda A1 Rango («A1»). Interior.Patrón = xlPatternLinearGradient’ cambia su orientación Rango («A1»). Interior.Gradiente.Grado = 90 ‘obtiene el código de color del primer objeto colortop lngColor0 = Rango («A1»). Interior.Gradient.ColorStops (1) .Color ‘obtiene el código de color del segundo objeto colorstop lngColor1 = Rango («A1»). Interior.Gradient.ColorStops (2) .Color’ borra los objetos colostop anteriores Rango («A1»). Interior.Gradient.ColorStops.Clear ‘crea un objeto colorstop con la posición 0
Set objColorStop = Rango («A1»). Interior.Gradient.ColorStops.Add (0) ‘cambia su color al primer color objColorStop.Color = lngColor0’ crea un objeto colorstop con la posición 1 Set objColorStop = Range («A1» ) .Interior.Gradient.ColorStops.Add (1) ‘cambia su color al segundo color objColorStop.Color = lngColor1 End Sub
- Este código crea un degradado en la celda A1 y cambia las posiciones por defecto a 0 y 1.
Cómo añadir un degradado con varios colores con ColorStop
Para crear un degradado con diferentes colores utilizando macros en un hoja de cálculo en Excel se debe seguir el siguiente código.
‘crea el degradado en la celda A1 Rango («A1»). Interior.Patrón = xlPatternLinearGradient’ cambia su orientación Rango («A1»). Interior.Gradiente.Grado = 90
‘borra los objetos colostop anteriores Rango («A1»). Interior.Gradient.ColorStops.Clear’ Crea los puntos de color para el degradado en la celda A1 Set objColorStop = Range («A1»). Interior.Gradient.ColorStops.Add (0 ) objColorStop.Color = vbYellow Set objColorStop = Range («A1»). Interior.Gradient.ColorStops.Add (0.33) objColorStop.Color = vbRed Set objColorStop = Range («A1»). Interior.Gradient.ColorStops.Add (0.66 ) objColorStop.Color = vbGreen Set objColorStop = Range («A1»). Interior.Gradient.ColorStops.Add (1) objColorStop.Color = vbBlue End Sub
Esperamos que con estas sencillas instrucciones y consejos aprendas a añadir gradientes a las celdas mediante la propiedad Gradiente en una macro de Excel. Si tú también quieres saber cómo se pueden mostrar las entradas de WordPress, no pierdas el tiempo, entra aquí .