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

何が間違っているのかよくわかりませんが、すべてのデータラベルが削除されています。なぜなのかご存知ですか？ありがとう！

score 2 · Accepted Answer

このコードでは、シリーズ全体の 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)チャートの最初のポイントです。コードの必要に応じて調整します。

1 に答える 1