Adding Labels to Scattergraphs

[pwchad]

Hi,

I've been trying to teach myself VBA, with mixed results.

I want to label the points on a scattergraph - Excel doesn't seem to do it automatically.
So I tried the code below to add labels from a range of 52 labels, arranged in a column.

When I run it it doesn't like:

Cells(a, 5).Select

any ideas?
I have found an add-in that does this much better, but I would like to understand what I'm doing wrong

Thanks for your help!!!
pwchad

Sub AddValues()

Dim a As Integer
Dim strName As String
a = 1

For a = 1 To 52
Cells(a, 5).Select
strName = Cells(a, 5).FormulaR1C1

ActiveSheet.ChartObjects("Chart 5").Activate
    ActiveChart.SeriesCollection(1).Points(a).ApplyDataLabels Type:= _
        xlDataLabelsShowValue, AutoText:=True, LegendKey:=False
    ActiveChart.SeriesCollection(1).Points(a).DataLabel.Characters.Text = strName
Next a

End Sub

 

[Alisa]

I'm not sure about your code, but excel does label series - in the chart, right click on the series that you want to label and go to 'format data series'. Then click on the 'data labels' tab. There are some options there for what to include in the label.
good luck, Alisa

 

[shades]

Doesn't seem to be any need to select the cells.

Maybe try this as an alternative (I don't have your data, but it seems that you start with cell E1):

Sub test()
    Dim Ser As Series
    Dim Pt As Point
    Dim Counter As Long
    Set Ser = ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(1)
    Ser.HasDataLabels = True
    Counter = 1
    For Each Pt In Ser.Points
        Pt.DataLabel.Text = Range("E1").Offset(Counter, 0)
        Counter = Counter + 1
    Next Pt
End Sub

 

[pwchad]

Shades,

Thank you for guiding me further along the learning curve.
The code works perfectly!!

Cheers