VBA: Gráfico de dispersión con etiquetas personalizadas.

Construiremos hoy un gráfico de dispersión sobre dos series de datos (Renta per capita y Consumo energético) sobre una lista de paises, con la peculiaridad de que, mediante una sencilla macro, agregaremos a cada punto del gráfico la etiqueta del nombre del país correspondiente. En respuesta a la cuestión planteada por un lector:

...realizar un grafico en el que se correlacione la evolución del consumo de energía (eje de ordenadas Y) con la evolución de la renta per cápita (eje de abscisas X), añadiendo las etiquetas de cada País en el punto correspondiente...

Empezaremos viendo los datos de que partimos (datos aleatorios, no reales!):

El primer paso es construir el gráfico de dispersión (gráfico XY) sobre los rangos D2:D12 y G2:G12:

que tras insertar este tipo de gráfico obtenemos:

Por mucho que intentemos agregar etiquetas, desde Herramientas de gráficos > Presentación > grupo Etiquetas > botón Etiqueta de datos nunca conseguiríamos incorporar los nombres de los países correspondientes. Esto sólo sería posible mediante una sencilla macro como la siguiente.
Para ello, insertamos el siguiente código VBA en un módulo del Explorador de proyectos VBA:

Sub AgregarEtiqueta()
Dim texto As String
'Activamos nuestro gráfico, sobre el que añadiremos las etiquetas personalizadas
ActiveSheet.ChartObjects("1 Gráfico").Activate
'contamos el número de puntos existentes en la serie de dispersión XY
puntos = ActiveChart.SeriesCollection(1).Points.Count
  
Application.ScreenUpdating = False
'agregamos etiquetaas de datos
ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowLabel

'pasamos por todos los puntos de la serie con el bucle FOR...NEXT
For i = 1 To puntos
    texto = Cells(i + 2, 1)
    'definimos el texto y valor a incluir en la etiqueta
    ActiveChart.SeriesCollection(1).Points(i).DataLabel.Text = texto
Next i
Application.ScreenUpdating = True
End Sub

El resultado tras ejecutar la macro de Excel 'AgregarEtiqueta' sería:

Por supuesto, podemos seguir dando el formato deseado a nuestro gráfico...