Excel-VBA - 如果喜欢*值*，则为 X 轴点着色

Question

基本上，我有一个从 Java(使用 POI)动态创建的图表，并且我正在传递允许在图表中对特定点进行着色的值。

为此，我需要访问点值标签，以便可以测试条件属性是否适用于每个点值。

例如，我为 seriesPointObject 设置了变量

1. 系列名称
2. 积分值名称
3. 条件
4. 颜色

我的伪代码如下

   For every seriesPointObject in the list
        Get all Values from Obj
        For Each series in the series collection
             Get Every point
                  For every point label
                      Check condition with point value
                          if condition test is true 
                                 series point change colour

但我无法访问每个系列的点值标签。点值标签和系列之间肯定存在某种联系，但我就是找不到它。

有什么方法可以从系列对象中获取点标签文本吗？

Answer 1

像这样的事情就可以了

令我有点惊讶的是，我可以通过 VBA 访问每个图表系列的每个 Point，但 Point 没有直接值。解决方法是将整个图表系列转储到变体数组中，测试数组中的每个值是否超出测试条件，然后使用 chrSeries.Points(lngCnt) 格式化该 Point >

Sub FormatPoints()
    Dim chr As ChartObject
    Dim chrSeries As Series
    Dim X As Variant
    Dim lngCnt As Long
    Set chr = ActiveSheet.ChartObjects(1)
    For Each chrSeries In chr.Chart.SeriesCollection
        X = chrSeries.Values
        For lngCnt = 1 To UBound(X)
            If X(lngCnt) > 10 Then
                With chrSeries.Points(lngCnt)
                    .MarkerBackgroundColor = vbRed
                    .MarkerForegroundColor = vbBlue
                End With
            End If
        Next
    Next
End Sub