Excel VBA 仅显示每个系列最大​​值的标签

Question

我正在尝试创建一个在图表中循环遍历系列的宏，并且仅根据最大/最小值显示最大/最小标签。

有些系列只有负值，在这些情况下，我希望只显示最小数据点标签，反之亦然，适用于具有 0 或更大值的系列。

我目前的代码是：

Sheets("Curve").ChartObjects("Chart 14").Activate
For Each serie In ActiveChart.SeriesCollection
        Dim pointCount As Integer
        Dim pointValues As Variant
        pointCount = serie.Points.Count
        pointValues = serie.Values
        For pointIndex = 1 To pointCount
          If pointValues(pointIndex) < 1000 Then
            serie.Points(pointIndex).HasDataLabel = True
          End If
        Next pointIndex
      Next serie
End Sub

当我手动输入阈值时效果很好，但我想用 Max(series) 值替换“1000”，以便图表中的每个系列只有一个可见的标签。

Answer 1

我有另一种方法，它不需要 VBA。它添加了一个额外的系列，最大处有一个不可见的数据点，这个点有一个数据标签。如果数据发生变化并且不同的点为最大值，它也会动态变化，而无需重新运行 VBA 过程。

对于图表中的每个系列，您需要使用与系列的 Y 值大小相同的范围。

假设给定系列的原始 Y 值在 D2:D10 中，我们将使用 G2:G10 作为额外数据。在 G2 中输入 =IF($D2=MAX($D$2:$D$10),$D2,NA()) 并将其填写到 G10。修改此公式，以应对如果一切都为负数，您可能会寻找最小值的情况。

复制 G2:G10 并按住 CTRL，同时选择该系列的 X 值。复制。选择图表，使用选择性粘贴，然后在列中选择将数据添加为新系列，在第一列中选​​择类别。

选择添加的系列，即一个点（除非最大有两个点），格式为无线无标记。将您的数据标签添加到此系列。

对图表中的其他系列重复。

Answer 2

以下修改后的例程包括 MaxPoint、MaxPointIndex、MinPoint 和 MinPointIndex 变量，这些变量在 For 循环中对每个系列的点进行计算。如果序列只有正值，则设置最大值点的标签，否则设置最小值。

  Option Explicit

  Sub chart()
  Dim serie As Variant
  Dim Pointindex As Long
  Dim MaxPoint As Long
  Dim MaxPointIndex As Long
  Dim MinPoint As Long
  Dim MinPointIndex As Long
  Sheets("Curve").ChartObjects("Chart 14").Activate
  For Each serie In ActiveChart.SeriesCollection
      Dim pointCount As Integer
      Dim pointValues As Variant
      pointCount = serie.Points.Count
      pointValues = serie.Values
      MinPoint = 10000              'set to value greater than any point in any serie
      MaxPoint = 0
      For Pointindex = 1 To pointCount
          If pointValues(Pointindex) > MaxPoint Then
              MaxPoint = pointValues(Pointindex)
              MaxPointIndex = Pointindex
          ElseIf pointValues(Pointindex) < MinPoint Then
              MinPoint = pointValues(Pointindex)
              MinPointIndex = Pointindex
          End If
      Next Pointindex
      If MinPoint >= 0 Then
          serie.Points(MaxPointIndex).HasDataLabel = True
      Else
          serie.Points(MinPointIndex).HasDataLabel = True
      End If
  Next serie
  End Sub