vba - 检查一个系列值，更改第二系列中对应的点颜色

Question

我有一个在 Excel 中运行良好的自动帕累托图。

我想更改它以检查累积百分比系列中的点的值是否小于 80%，如果是这种情况，则为计数系列中的相同数字点着色。

试过这个；不会抛出任何错误，但也不起作用。

我认为它应该遍历一个值列表，检查它们是否<80，然后更新计数系列中相应 i 处的点。

Set percVals = paretoChart.Chart.SeriesCollection(percentSeries).Values
For Each i in percVals 
    If percVals(i) = <80 Then
        With paretoChart.Chart.SeriesCollection(countSeries).Points(i)
            .Format.Fill.ForeColor.RGB = RGB(0,0,225) 
            .Format.Line.ForeColor.RGB = RGB(0,0,225)
        End With
    End If 
Next i 

“paretoChart”变量在代码的前面设置，并且在整个过程中运行良好。我试过没有'with'语句。没有不同。

有一个类似的问题比较系列中的两个值，但我认为我不能适应它在这里工作。任何想法表示赞赏！

标签： vbaexcel