Trucos Excel. Poner etiquetas en gráficos de dispersión

Una macro de Visual Basic muy sencilla es la única forma de etiquetar gráficos de dispersión que me he encontrado. Si alguien encuentra otro modo más sencillo de hacerlo que lo comente en estas líneas. La intencion es llegar a este gráfico:

etiquetas-grafico-dispersion-excel-1.png

No es que sea un gran gráfico, recordad que está hecho en Excel, pero nos permite ver como se distribuyen los paises  en función de la renta per cápita y el número de horas trabajadas al año. Además podemos identificarlos perfectamente, como es el caso de Luxemburgo, como siempre. Los datos para realizar este gráfico están en la web de la OCDE. Nos los descargamos en Excel y tenemos una tabla de esta forma:

etiquetas-grafico-dispersion-excel-2.png

En este punto realizamos el gráfico de dispersión y a la hora de introducir las etiquetas nos encontraríamos con este cuadro de diálogo:

etiquetas-grafico-dispersion-excel-3.png

Por más vueltas que le he dado al tema no he encontrado la forma de añadir las etiquetas en la forma que deseo. Sin embargo, en menos de 5 minutos, mediante una macro he llegado al gráfico que os pongo arriba. Lo primero que he hecho es cambiar las cabeceras para no perderme, es que no hay mucho donde rascar:

etiquetas-grafico-dispersion-excel-4.png

Ahora hay dos puntos importantes:

  • Excel respeta el orden de las series en el gráfico
  • Podemos poner lo que necesitemos en la propiedad DataLabel.Text

Con esto hacemos la siguiente macro de Excel:

Sub etiquetas()
'
' Macro realizada por www.analisisydecision.es
'
Dim texto As String
ActiveSheet.ChartObjects("1 Gráfico").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).ApplyDataLabels
i = 2
para = 0
While para = 0
texto = Cells(i, 2)
punto = Cells(i, 1)
If texto <> "" Then
ActiveChart.SeriesCollection(1).Points(punto).DataLabel.Select
ActiveChart.SeriesCollection(1).Points(punto).DataLabel.Text = texto
Else
para = 1
End If
i = i + 1
Wend
End Sub

No es una macro muy compleja y que podéis adaptar perfectamente a otros usos. Recordad los puntos más importantes que os indiqué con anterioridad.

28 comentarios en “Trucos Excel. Poner etiquetas en gráficos de dispersión

  1. Hola,
    Llevaba un tiempo dando vueltas al tema porque quería presentar un gráfico similar al que tú muestras. Encontrar tu sugerencia y tu macro ha sido providencial. Mil gracias.
    Saludos.

  2. Muy buena tu idea, no se si puede haber otra pero esta me parece perfecta. Muchas gracias por el tiempo dedicado a ayudar a los demas.
    Un saludo

  3. Una pregunta, que sucede si hay más de una serie de datos en el gráfico de dispersión.

    Espero me puedan responder, toda vez que el tema es algo viejo.

    Gracias por la ayuda y por su atención.

    1. Buenos días,

      La aplicación es muy buena pero en sesión de usuario administrador en usuario estándar no se refleja la pestaña xy chart label.

  4. Existe otra forma sin macros,,, las etiquetas son shapes,, puedes asignarle los valores y en cada Shape de cada dato,,, ve a la barra de fórmulas y ponle “=Celda_en_donde_este_la_etiqueta” y listo tendrás las etiques en lugar de los valores,,,,

  5. MUCHAS GRACIAS, COMO SE PUEDE HACER PARA PODERPONERLE COLORES A LOS PUNTOS DE ACUERDO A LOS VALORES

    MUCHAS GRACIAS POR TU ATENCION

  6. Estimado,
    muchas gracias por esta explicación. Anduve como loco buscando esto y no lo encontraba. Genio!
    Te aseguro que haz ayudado a mucha más gente de la que te imaginas con esta ayuda porque la mayoría de la gente no escribe para agradecer.. (yo mismo casi que no lo hago …!)
    un abrazo

  7. Quiero aclarar una cosa nomás.. A mí no me funcionó directamente sino que debí cambiar algo en el código:

    En vez de: ActiveSheet.ChartObjects(“1 Gráfico”).Activate

    Tuve que escribir: ActiveSheet.ChartObjects(1).Activate

    (o sea, puse 1, en vez de “1 Gráfico”)

  8. Hola… soy nueva con el excel y no logro hacer esto… cuando hago el gráfico que celdas y columnas debo agarrar?… porque la macro funciona pero solo me toma eje x y la etiqueta… no se que hice… gracias

  9. Despues de cacharrear un poco y sin poder bajarme macros o programas (pc de empresa) he visto que si se convierte cada punto XY en una serie nueva(tantas series como pares X;Y) y luego añades etiqueta de datos y después le cambias el formato a esta etiqueta de datos para que aparezca el nombre de la serie….solucionado!

    Pasos? insertar grafico dispersion > seleccionar datos e ir metiendo serie a serie con los valores de X de Y y el titulo de la serie > añadir etiqueta de datos > con el boton derecho sobre la etiqueta Formato etiqueta de datos > OPCIONES DE ETIQUETA – NOMBRE DE LA SERIE

Deja un comentario

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

[bws_google_captcha]