VBA looping through all series within all charts

Question

I\'m having an issue with the looping through of several charts in my VBA code. I\'m 99.7% sure that this is a really easy and quick fix but my brain isn\'t working today.

Answer 1

Not work for empty values.

This code find last not empty value and then adds label.

For Each mySrs In myChartObject.Chart.SeriesCollection
      Set myPts = mySrs.Points
      Dim i As Integer
      i = myPts.Count
      Do Until i < 2 Or mySrs.Values(i) <> ""
        i = i - 1
      Loop
      myPts(i).ApplyDataLabels Type:=xlShowValue
Next