Seleccionar el rango de datos de un gráfico en función de una condición

Escrito por Administrador

13 de marzo de 2023

Hoy vamos a ver cómo seleccionar el rango de datos de un gráfico en función de una condición.

Para este ejemplo, he elegido un gráfico del tipo dispersión, que son utilizados habitualmente. Pero no te preocupes si estás utilizando otro tipo de gráfico porque, como verás más adelante, el código hace referencia al nombre del objeto y no al tipo.

He creado una hoja de cálculo con dos series de datos como las que muestro en la figura. En el apartado "Selección datos" vamos a elegir qué lista de datos queremos representar en el gráfico.

enviar-pedidos-proveedores-por-email-excel
A continuación, os comparto el código necesario.
Sub Grafico()

Dim series As series
Dim cht As Chart

'Si la selección de datos es igual a 1

If Cells(18, "E") = 1 Then

'Borramos los datos del gráfico

Set cht = ActiveWorkbook.Sheets(1).ChartObjects("Grafico_1").Chart

For i = cht.SeriesCollection.Count To 1 Step -1
cht.SeriesCollection(i).Delete
Next i

'Añadimos la serie Datos1

cht.SeriesCollection.NewSeries.Select

With Selection
.Name = Range("C2").Value
.XValues = Range("C4:C13")
.Values = Range("D4:D13")
End With

'Si la selección de datos es igual a 2

ElseIf Cells(18, "E") = 2 Then

'Borramos los datos del gráfico

Set cht = ActiveWorkbook.Sheets(1).ChartObjects("Grafico_1").Chart

For i = cht.SeriesCollection.Count To 1 Step -1
cht.SeriesCollection(i).Delete
Next i

'Añadimos la serie Datos2

cht.SeriesCollection.NewSeries.Select

With Selection
.Name = Range("E2").Value
.XValues = Range("E4:E13")
.Values = Range("F4:F13")
End With

Else

'Si no hemos elegido ninguna opción, borramos los datos del gráfico

Set cht = ActiveWorkbook.Sheets(1).ChartObjects("Grafico_1").Chart

For i = cht.SeriesCollection.Count To 1 Step -1
cht.SeriesCollection(i).Delete
Next i

End If

End Sub

Si, por ejemplo, elegimos el rango Datos1 y pulsamos el botón Gráfico, vemos cómo se representan e incluso cómo cambia el título,
enviar-pedidos-proveedores-por-email-excel
Para el rango Datos2,
enviar-pedidos-proveedores-por-email-excel

Espero que te haya sido de utilidad este ejemplo sobre cómo seleccionar el rango de datos de un gráfico en función de una condición. Descarga el archivo de ejemplo y practica.

Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.

Hasta la próxima.

Si te ha servido y quieres donar





Descarga el archivo del ejemplo

0 comentarios

Enviar un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Últimas publicaciones

Categorías

junio 2024
LMXJVSD
 12
3456789
10111213141516
17181920212223
24252627282930

Debates en el foro

Avatar
guardar imagenes en carpeta
Avatar
Necesito ayuda con un formulario
Avatar
Buscar Datos en Columnas

Contacto