¿Cómo extraer datos de un gráfico o diagrama en Excel?

Los gráficos en Excel se utilizan ampliamente para visualizar datos y tendencias de manera más efectiva. Sin embargo, puede haber situaciones en las que solo tengas un gráfico sin acceso a sus datos originales, como se muestra en el ejemplo a continuación. En estos casos, extraer los datos del gráfico puede ser esencial. Este tutorial proporciona una guía paso a paso para recuperar datos de un gráfico o diagrama en Excel utilizando código VBA.

Extraer datos de un gráfico con VBA

  Extraer datos de un gráfico con VBA

1. Necesitas crear una nueva hoja de cálculo y cambiarle el nombre a "ChartData". Ver captura de pantalla:

2. Selecciona el gráfico del cual deseas extraer los datos. Presiona simultáneamente las teclas "Alt" + "F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".

3. Haz clic en "Insertar" > "Módulo", luego pega el siguiente código VBA en la ventana "Módulo".

Sub GetChartValues()
    'Updateby20220510
    Dim xNum As Integer
    Dim xSeries As Object
    On Error Resume Next
    xCount = 2
    xNum = UBound(Application.ActiveChart.SeriesCollection(1).Values)
    Application.Worksheets("ChartData").Cells(1, 1) = "X Values"
    With Application.Worksheets("ChartData")
        .Range(.Cells(2, 1), _
        .Cells(xNum + 1, 1)) = _
        Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
    End With
    For Each xSeries In Application.ActiveChart.SeriesCollection
        Application.Worksheets("ChartData").Cells(1, xCount) = xSeries.Name
        With Application.Worksheets("ChartData")
            .Range(.Cells(2, xCount), _
            .Cells(xNum + 1, xCount)) = _
            Application.WorksheetFunction.Transpose(xSeries.Values)
        End With
        xCount = xCount + 1
    Next
End Sub

4. Luego haz clic en el botón "Ejecutar" para ejecutar el VBA. Ver captura de pantalla:

Luego podrás ver los datos extraídos en la hoja "ChartData".

Consejo:

1. Puedes formatear las celdas según lo necesites.

2. Por defecto, los datos del gráfico seleccionado se extraen comenzando desde la primera celda de la hoja ChartData.