Macro para seleccionar el último punto de datos en el gráfico de líneas y agregar una label de datos

Tengo un gráfico de líneas con 60 series de datos diferentes en Excel que se actualiza una vez por semana. En este gráfico, me gustaría progtwigr una macro que selecciona los puntos de datos más recientes en los charts de líneas y agrega una label de datos en el formatting 100.00 (número con dos lugares decimales).

Ahora estoy usando el código a continuación para eliminar todas las tags de datos:

Sub Delete_labels() ActiveChart.ApplyDataLabels xlDataLabelsShowNone End Sub 

Para agregar tags de datos, me gustaría usar un código también. He estado experimentando con el siguiente código:

 Sub Add_last_label() ActiveChart.ApplyDataLabels xlDataLabelsShowLabel, , , , True, False, False, False, False End Sub 

Sin embargo, este código agrega tags de datos a cada punto de datos, creando un gran desorder. La cadena ",,,, True, False, False, False, False" debe adaptarse para agregar solo la última label de datos en el gráfico, pero no estoy seguro de cómo.

¿Alguien tiene una idea de cómo las tags de datos hasta el último punto de cada serie en el formatting 100.00 (con dos puntos decimales)?

Encontré la respuesta. El código a continuación funciona:

 Sub Update_labels() ActiveChart.ApplyDataLabels xlDataLabelsShowNone Dim iSrs As Long Dim iPts As Long For iSrs = 1 To ActiveChart.SeriesCollection.Count With ActiveChart.SeriesCollection(iSrs) iPts = .Points.Count With .Points(iPts) .ApplyDataLabels ' .DataLabel.ShowSeriesName = -1 ' .DataLabel.ShowLegendKey = -1 .DataLabel.NumberFormat = "#,##0.00" 'ActiveChart.SeriesCollection(1).DataLabels.NumberFormat = "#,##0.00" End With End With Next End Sub 

Descomenta ShowSeriesName y ShowLegendKey para mostrar también esos elementos.