[VBA Excel 2010] Rendere invisibile un'etichetta di un grafico dove qta < di x

[ibernet]

Ci sono riuscito.. Ecco la soluzione nel caso serva a qualcuno..

Sub grafico()
Dim i As Integer

ActiveSheet.ChartObjects("Grafico 1").Activate
ActiveChart.SeriesCollection(1).Select
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
    ActiveChart.SeriesCollection(1).Points(i).Select
    ActiveChart.SeriesCollection(1).Points(i).ApplyDataLabels
    ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
    Selection.ShowCategoryName = -1
    Selection.ShowValue = -1
    Selection.ShowPercentage = -1
    If Mid(Right(Selection.Formula, 3), 1, 2) < 2 Then
        Selection.Delete
    Else
    End If
Next

End Sub