Adjust datalabels dynamic in Chart Line

[feliepe]

I have a chart with 7 lines, but the labels can not overlap the line and not overwrite a value to another. Someone already did something similar?

I try this ...

        Dim p As Point
        For Each s In ActiveChart.SeriesCollection
            i = 1
            For Each p In s.Points
                x = p.DataLabel.Text
                If i > 1 Then
                    x = s.Points(i).DataLabel.Text
                    topAtual = s.Points(i).DataLabel.Top
                    topAnterior = s.Points(i - 1).DataLabel.Top
                    If Abs(topAtual - topAnterior) < 15 Then
                        s.Points(i).DataLabel.Position = xlAbove
                    End If
                End If


                i = i + 1
            Next
        Next