XY labeler for more than a data series

[samahiji]

Hi
I've got the XY labeler vba code from Microsoft web site, however, this code is only works for one data series. What if I have multiple data series?

The problem I am facing is that there are a lot of data points on the scatter plot which make data labels overlap and it gets difficult to identify. Is there a way to remove the data labels and only show them when we hover over the data point?



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

'Store the formula for the first series in "xVals".
xVals = ActiveChart.SeriesCollection(1).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
ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
True
ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
Next Counter

End Sub

 

[samahiji]

Thanks all,

I've modified an existing xy labeler to consider X number of data series, Hooray

Now, the big challenge: How to shift these labels to tooltip (hover over the data point)????

Sub DataLabelsFromRange()
    Dim Cht As Chart
    Dim i, j, ptcnt As Integer

    Set Cht = ActiveSheet.ChartObjects(1).Chart
    On Error Resume Next
For j = 1 To 100
    Cht.SeriesCollection(j).ApplyDataLabels _
      Type:=xlDataLabelsShowValue, _
      AutoText:=True, _
      LegendKey:=False

    ptcnt = Cht.SeriesCollection(j).Points.Count
    For i = 1 To ptcnt
        Cht.SeriesCollection(j).Points(i).DataLabel.Text = _
          ActiveSheet.Cells(i + 1, j).Value
    Next i
    Next j
End Sub

 

[samahiji]

It seems nobody has an idea of how it works!