¿Cómo extraer datos de un gráfico o diagrama en Excel?
Los gráficos en Excel son una herramienta muy utilizada para visualizar datos y tendencias de forma clara y eficaz. Sin embargo, puede darse el caso de que solo disponga del gráfico sin acceso a los datos originales, como se ilustra en el ejemplo siguiente. En estas situaciones, extraer los datos directamente del gráfico resulta esencial. Este tutorial le guía paso a paso en la recuperación de datos de un gráfico en Excel mediante código VBA.
Extraer datos de un gráfico con VBA
1. Cree una hoja de cálculo nueva y cámbiele el nombre a «ChartData». Consulte la captura de pantalla:
2. Seleccione el gráfico del que desea extraer los datos y pulse simultáneamente las teclas «Alt» + «F11» para abrir la ventana «Microsoft Visual Basic para Aplicaciones».
3. Haga clic en «Insertar» > «Módulo» y luego pegue el siguiente código VBA en la ventana del 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. A continuación, haga clic en el botón «Ejecutar» para poner en marcha el código VBA. Consulte la captura de pantalla:
A continuación, podrá consultar los datos extraídos en la hoja «ChartData».
Consejo:
1. Puede dar formato a las celdas según sus necesidades.
2. De forma predeterminada, los datos del gráfico seleccionado se extraen de la primera celda de la hoja ChartData.
Consejo: Si trabaja frecuentemente con gráficos complejos en Excel, recrearlos una y otra vez puede resultar tedioso. Con la herramienta «Texto automático» de «Kutools para Excel», simplifique este proceso: cree los gráficos una sola vez, guárdelos en el panel de Texto automático y reutilícelos cuando y donde los necesite. Solo tendrá que actualizar las referencias para adaptarlos a sus necesidades específicas.
Kutools para Excel: potencie Excel con más de 300 herramientas esenciales, agilice y simplifique su trabajo, y aproveche las funciones de IA para un procesamiento de datos más inteligente y una mayor productividad.Consígalo ahora |
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos