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

Zer0,

Welcome to the forum.

I have added code tags to your post. As per forum rule 3, you need to use them whenever you put any code in your post. Please add them in future. If you need more information on how to use them, check my signature below this post.