VBA: Modificar etiquetas de datos en un gráfico de Excel.

En esta ocasión, partiendo del gráfico apilado visto en una entrada anterior, mediante una macro, conseguiremos personalizar las Etiquetas de datos de los diferentes puntos de nuestras Series.
Nuestro objetivo es conseguir este aspecto en nuestra ya conocida gráfica:

La modificación consiste en añadir un Texto personalizado en las Etiquetas de datos de los diferentes puntos que componen nuestra serie, añadiendo no solo un texto 'Total' que no existe en la Tabla de datos, si no además debajo, en una nueva línea, el sumatorio de ambos semestres.
Para no dispersarnos con el código de nuestra macro, supondremos ya existen las Etiquetas de datos, y ya tienen la posición y formato de color y fuente. Sobre esta premisa, el desarrollo de nuestra macro, a incluir en un Módulo del Explorador de proyectos, dentro de nuestro Editor de VBA (Alt+F11), escribimos:

Sub ModificarEtiqueta()
ActiveSheet.ChartObjects("4 Gráfico").Activate
'contamos el número de puntos existentes en las series
puntos = ActiveChart.SeriesCollection(2).Points.Count

Application.ScreenUpdating = False
'pasamos por todos los puntos de la serie con el bucle FOR...NEXT
For i = 1 To puntos
    'definimos el texto y valor aincluir en la etiqueta
    ActiveChart.SeriesCollection(2).Points(i).DataLabel.Text = "Total" & Chr(10) & _
    (Cells(2, i + 1).Value + Cells(3, i + 1).Value)
Next i
Application.ScreenUpdating = True
End Sub

Al ejecutar nuestra macor conseguiremos el formato deseado.