Data labels: Method 'DataLabel' of object 'Point' failed

[ehcpieterse]

hi, i am experiencing a seemingly strange error.

i have written a small piece of code to add data labels to a scatter plot (code below)

Sub ScatterLabels()

ActiveSheet.ChartObjects("Chart 1").Activate

For i = 1 To 42
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Text = ActiveSheet.Cells(i + 1, 1).Value
Next i

ActiveSheet.ChartObjects("Chart 2").Activate

For i = 1 To 42
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Text = ActiveSheet.Cells(i + 1, 1).Value
Next i

End Sub

This code works 100%, however, a different piece of code (below) on another sheet for a similar graph give s me the following error: "Method 'DataLabel' of object 'Point' failed". To me the code should work, but obviously i'm missing something.

Sub ScatterLabels2()

ActiveSheet.ChartObjects("Chart 2").Activate

For i = 1 To 42
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Text = "ABC"
Next i

End Sub

 

[RoryA]

Does that series already have datalabels?

 

[ehcpieterse]

no, the scatter plot only has data. i can manually add labels and even the recorded VBA code works if i manually add a data label for a specific point (code below)

Sub Macro7()

ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.SeriesCollection(1).Select
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.SeriesCollection(1).Points(30).Select
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.SeriesCollection(1).Points(30).DataLabel.Text = "ABC"
End Sub

am i doing something wrong?

 

[RoryA]

Try something like:

Sub ScatterLabels2()
   With ActiveSheet.ChartObjects("Chart 2").Chart.SeriesCollection(1)
      .HasDataLabels = True
      For i = 1 To 42
         .Points(i).DataLabel.Text = "ABC"
      Next i
   End With
End Sub

 

[ehcpieterse]

works fine, thanks. would not have got there on my own!