Individuele labels toevoegen aan datapunten in spreidingsdiagram

[willem1306]

Beste Excelkenners,

Ik wil spreidingsdiagrammen (met numerieke X en Y as) maken waarin ik (tekstuele) labels wil toevoegen aan individuele gegevenspunten.
Ik ben bekend met de mogelijkheid om m.b.t. een macro (zie https://support.microsoft.com/en-us/kb/213750) tekstuele labels toe te voegen aan datapunten, echter voegt deze macro aan ALLE datapunten labels toe. Hierdoor wordt de spreidingsdiagram echter nogal onoverzichtelijk. Is er een handige manier om slechts bij één gegevenspunt (een 'outliers') een label toevoegen. Ik heb al wat geprobeerd met opmaak van labels (bijv. wit maken) maar dit levert nog niet het gewenste resultaat op. Wie weet een goede oplossing?

Bijgaand een voorbeeld bestand.

Dank alvast!

Groet,
Willem

 

[HSV]

Bv. alles boven de 25% van kolom C krijgen een label.

Sub hsv()
Dim cl As Range, i As Long
With Sheets("spreiding")
.ChartObjects("Grafiek 2").Chart.SeriesCollection(1).HasDataLabels = False
For Each cl In .Columns(1).SpecialCells(2)
 If cl.Offset(, 2) > 0.25 Then
 i = i + 1
    With .ChartObjects("Grafiek 2").Chart.SeriesCollection(1).Points(i)
        .HasDataLabel = True
        .DataLabel.Text = cl
   End With
   End If
 Next cl
End With
End Sub

 

[joost1]

Voor ieder punt kun je de label opties instellen. Ga met de muiscursor op het desbetreffende punt staan en klik twee maal. Als het goed is wordt dan alleen dat punt geselecteerd. Met gegevenslabel opmaken kun je dan vervolgens je keus maken.

Groet

 

[willem1306]

Dank! Dit werkt goed.
Is het ook mogelijk om een code te bouwen die ervoor zorgt dat ik een label krijg als ik in kolom D (nieuwe kolom, naast de data) een kruisje ("x") zet?

Groet,
Willem

Bv. alles boven de 25% van kolom C krijgen een label.

Sub hsv()
Dim cl As Range, i As Long
With Sheets("spreiding")
.ChartObjects("Grafiek 2").Chart.SeriesCollection(1).HasDataLabels = False
For Each cl In .Columns(1).SpecialCells(2)
 If cl.Offset(, 2) > 0.25 Then
 i = i + 1
    With .ChartObjects("Grafiek 2").Chart.SeriesCollection(1).Points(i)
        .HasDataLabel = True
        .DataLabel.Text = cl
   End With
   End If
 Next cl
End With
End Sub

 

[HSV]

Er zat toch ongemerkt een foutje in de vorige code.
Bij deze voor een x in kolom D.

Sub hsv()
Dim cl As Range, i As Long
With Sheets("spreiding")
.ChartObjects("Grafiek 2").Chart.SeriesCollection(1).HasDataLabels = False
For Each cl In .Columns(1).SpecialCells(2)
 i = i + 1
 If cl.Offset(, 3) = "x" Then
    With .ChartObjects("Grafiek 2").Chart.SeriesCollection(1).Points(i)
        .HasDataLabel = True
        .DataLabel.Text = cl
   End With
  End If
 Next cl
End With
End Sub