Attach Labels to points in Scatter chart

Thanks Martin, it works

Hi Martin,
Can you please explain what does this part of the code do. I tried to understand this but was unsuccessful.

Please Login or Register  to view this content.

Martin - I am having this same problem - trying to label multiple series in a scatter chart. The macro works fine for a single series bubble chart. I changed the index to 2 in the SeriesCollection references (code below), but I get a "Invalid procedure call or argument" error at the following statement:

x1Vals = Mid(x1Vals, InStr(InStr(x1Vals, ","), x1Vals, _
Mid(Left(x1Vals, InStr(x1Vals, "!") - 1), 9)))

Any thoughts? Did I misunderstand your guidance on this post?


Modified code:
Sub AttachLabelsToPoints()

'Dimension variables.
Dim Counter1 As Integer, ChartName As String, x1Vals As String
' Disable screen updating while the subroutine is run.
Application.ScreenUpdating = False

'Store the formula for the first series in "xVals".
x1Vals = ActiveChart.SeriesCollection(2).Formula


' 'Extract the range for the data from xVals.
x1Vals = Mid(x1Vals, InStr(InStr(x1Vals, ","), x1Vals, _
Mid(Left(x1Vals, InStr(x1Vals, "!") - 1), 9)))
x1Vals = Left(x1Vals, InStr(InStr(x1Vals, "!"), x1Vals, ",") - 1)
Do While Left(x1Vals, 1) = ","
x1Vals = Mid(x1Vals, 2)
Loop


'Attach a label to each data point in the chart.
For Counter1 = 1 To Range(x1Vals).Cells.Count
ActiveChart.SeriesCollection(1).Points(Counter1).HasDataLabel = _
True
ActiveChart.SeriesCollection(1).Points(Counter1).DataLabel.Text = _
Range(x1Vals).Cells(Counter1, 1).Offset(0, -1).Value
Next Counter1




End Sub

thank you,

ddholmes

Sub AttachLabelsToPoints()

'Dimension variables.
Dim Counter As Integer, ChartName As String, xVals As String

' Disable screen updating while the subroutine is run.
Application.ScreenUpdating = False

' Activate chart
ActiveSheet.ChartObjects(1).Activate


'Store the formula for the all series in "xVals".

While (iii <= 8)

iii = iii + 1
Counter = 0

While (Counter <= x) And (iii <= 8)

xVals = ActiveChart.SeriesCollection(iii).Formula

'Extract the range for the data from xVals.

xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))

xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)

Do While Left(xVals, 1) = ","
xVals = Mid(xVals, 2)
Loop

'Attach a label to each data point in the chart.
For Counter = 1 To Range(xVals).Cells.count

x = Range(xVals).Cells.count

ActiveChart.SeriesCollection(iii).Points(Counter).HasDataLabel = _
True

ActiveChart.SeriesCollection(iii).Points(Counter).DataLabel.Text = _
Range(xVals).Cells(Counter, 1).Offset(0, -1).Value

ActiveChart.SeriesCollection(iii).Points(Counter).DataLabel.Select
Selection.AutoScaleFont = True

With Selection.Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 6
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic

End With

With Selection
.NumberFormat = "0.000"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Position = xlLabelPositionRight
.Orientation = 0
End With

Next Counter

Wend

Wend

End Sub