¿Cómo colorear un gráfico basado en el color de la celda en Excel?

Normalmente, cuando creas un gráfico, el color de la barra de columnas es el predeterminado. Si necesitas dar formato al color de relleno en cada barra según los colores de las celdas como se muestra en la siguiente captura de pantalla, ¿cómo podrías resolverlo en Excel?

Colorear el gráfico con una o varias series de datos basadas en el color de la celda con códigos VBA

Colorear el gráfico con una o varias series de datos basadas en el color de la celda con una función asombrosa

Colorear el gráfico con una o varias series de datos basadas en el color de la celda con códigos VBA

Colorear el gráfico con una serie de datos basada en el color de la celda

Con el siguiente código VBA, puedes cambiar rápidamente el color del gráfico que contiene una serie de datos basada en el color de los valores originales de las celdas; por favor, sigue estos pasos:

1. Primero, crea un gráfico de barras o columnas como se muestra en la siguiente captura de pantalla (Selecciona los datos y haz clic en Insertar > Insertar gráfico de columnas o barras):

2. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haz clic en Insertar > Módulo, y pega el siguiente código en la ventana del Módulo.

Código VBA: Colorear barras de gráficos con una serie de datos basada en el color de la celda:

Sub ColorChartColumnsbyCellColor()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, xRows As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    With xChart.SeriesCollection(1)
        Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
        xRows = xRg.Rows.Count
        Set xRg = xRg(1)
        For I = 1 To xRows
            .Points(I).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(I - 1, 0).Interior.ColorIndex)
        Next
    End With
End Sub

Nota: En el código anterior, Gráfico 1 es el nombre del gráfico que deseas usar, cámbialo por el tuyo propio.

4. Después de pegar el código anterior, presiona la tecla F5 para ejecutar este código, y el color de las barras del gráfico habrá cambiado según el color original de las celdas, ver captura de pantalla:

Colorear el gráfico con múltiples series de datos basadas en el color de la celda

Si tu gráfico tiene múltiples series de datos, aplica el siguiente código VBA:

1. Por favor, crea el gráfico de barras o columnas que contiene múltiples series de datos como se muestra en la siguiente captura de pantalla:

2. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haz clic en Insertar > Módulo, y pega el siguiente código en la ventana del Módulo.

Código VBA: Colorear barras de gráficos con múltiples series de datos basadas en el color de la celda:

Sub CellColorsToChart()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, J As Long
    Dim xRowsOrCols As Long, xSCount As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    xSCount = xChart.SeriesCollection.Count
    For I = 1 To xSCount
        J = 1
        With xChart.SeriesCollection(I)
            Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
            If xSCount > 4 Then
                xRowsOrCols = xRg.Columns.Count
            Else
                xRowsOrCols = xRg.Rows.Count
            End If
            For Each xCell In xRg
                .Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                .Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                J = J + 1
            Next
        End With
    Next
End Sub

4. Luego presiona la tecla F5 para ejecutar este código, las barras del gráfico se llenan con el color de las celdas originales de inmediato, ver captura de pantalla:

Notas:

1. En el código anterior, Gráfico 1 es el nombre del gráfico que deseas usar, cámbialo por el tuyo propio.

2. Este código también puede aplicarse a un gráfico de líneas.

Colorear el gráfico con una o varias series de datos basadas en el color de la celda con una función asombrosa

Al usar los códigos anteriores, los colores del gráfico no siempre coincidirán con el color de la celda. Para resolver este problema, aquí te presento una herramienta útil: Cambiar Color del Gráfico Basado en el Color de la Celda de Kutools para Excel. Con esta práctica función, puedes colorear el gráfico basado en el color de la celda de forma rápida y sencilla.

Después de instalar Kutools para Excel, por favor, sigue estos pasos:

1. Primero, inserta el gráfico que deseas usar, luego selecciona el gráfico, y haz clic en Kutools > Gráficos > Herramientas de gráficos > Cambiar Color del Gráfico Basado en el Color de la Celda, ver captura de pantalla:

2. Luego, aparecerá un cuadro de diálogo emergente, haz clic en el botón Aceptar.

3. Ahora, el gráfico que seleccionaste ha sido coloreado según los colores de las celdas como se muestra en las siguientes capturas de pantalla:

Colorear el gráfico con una serie de datos basada en el color de la celda

Colorear el gráfico con múltiples series de datos basadas en el color de la celda

¡Descarga y prueba gratis Kutools para Excel ahora!

Más artículos relacionados con gráficos: