excel - 如果小于某个值，则删除数据标签

Question

我有应用于图表的数据标签，现在我正在尝试删除那些小于 1% 的标签。这是我所拥有的 -

Dim cht As Chart

Set cht = ActiveChart


If Range("B8") < 0.01 Then
    cht.SeriesCollection(1).DataLabels.Select
    Selection.Delete
End If

我不太确定我做错了什么，但所有数据标签都被删除了。你知道为什么吗？谢谢！

Answer 1

您正在删除此代码中整个系列的 DataLabels。

您需要做的是删除系列上特定点的 DataLabel。

这应该这样做：

Dim cht As Chart

Set cht = ActiveChart

If Range("B8") < 0.01 Then
    cht.SeriesCollection(1).Points(1).DataLabel.Delete
End If

SeriesCollection(1)是图表中的第一个系列。Points(1)是图表上的第一个点。根据您的代码的需要进行调整。