xy scatter charts

This may be stale seeing that my response is 6 years later but FYI only I've managed to by pure accident to achieve a very very similar solution to Tusha Mehtar's Hover Label tool.

First it involves setting the labels using Rob Bovey's very handy (and free ! how crazy is that ?!) XYChartLabeller <http://www.appspro.com/Utilities/ChartLabeler.htm>

After which you stick this piece of code in the private module of the relevant chart you want this to work on

Private Sub Chart_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)

Dim ElementID As Long, Arg1 As Long, Arg2 As Long
Dim chart_data As Variant, chart_label As Variant
Dim last_bar As Long, chrt As Chart
Dim ser As Series, Txt As String

On Error Resume Next 

Me.GetChartElement x, y, ElementID, Arg1, Arg2

Set chrt = ActiveChart
Set ser = ActiveChart.SeriesCollection(1)
chart_data = ser.Values
chart_label = ser.XValues

If ElementID = xlDataLabel Then

ActiveChart.SeriesCollection(1).Points(Arg2).DataLabel.Font.ColorIndex = 5
ActiveChart.SeriesCollection(1).Points(Arg2).DataLabel.Font.Size = 10
ActiveChart.SeriesCollection(1).Points(Arg2).DataLabel.Font.Bold = True

Else
  ActiveChart.SeriesCollection(1).DataLabels.Font.Size = 1
  ActiveChart.SeriesCollection(1).Points(Arg2).DataLabel.Font.ColorIndex = 15

End If

End Sub