データラベルを手で1つずつ削除すればよい。
大量にあって面倒なら例えばこんなマクロを(チャートをアクティブにしてから)実行する。
Sub Macro1()
ActiveChart.SetElement (msoElementDataLabelNone)
ActiveChart.SetElement (msoElementDataLabelBestFit)
a = ActiveChart.FullSeriesCollection(1).Values
For i = 1 To UBound(a)
If a(i) < 0.05 Then ActiveChart.FullSeriesCollection(1).Points(i).DataLabel.Delete
Next i
End Sub
お礼
ありがとうございます^^ うまくいきました^^v