5

我试图让图表中的点在某些值参数内改变颜色（即，>1 是绿色，<1 是红色，其他都是蓝色）。我无法确定如何让 VBA 给我任何给定点的值。

在此线程中，先前已回答，答案（在其他方面非常有帮助）表明 points(num).value 将返回该点的值。但是，这样做时我收到一条错误消息，在网上或 VBA 帮助中找不到与此相对应的方法。有没有其他人在这方面取得过任何成功？

这是给我带来麻烦的代码片段：

For Count = 1 To 7
    If Worksheets("Sheet1").ChartObjects("ChartName").Chart.SeriesCollection(1).Points(Count).Value > 1 Then
    '... do stuff

由于数据存储在数据集中的方式，直接从图表中获取值肯定会更好。我可以使用数据集本身找出解决方法，但我宁愿避免这种情况。

4

1 回答 1

13 
Sub Tester()

Dim cht As Chart, s As Series, p As Point
Dim vals, x As Integer

    Set cht = ActiveSheet.ChartObjects(1).Chart
    Set s = cht.SeriesCollection(1)

    vals = s.Values

    For x = LBound(vals) To UBound(vals)
      If vals(x) > 10 Then
        With s.Points(x)
            .MarkerBackgroundColor = RGB(255, 0, 0)
            .MarkerForegroundColor = RGB(255, 0, 0)
        End With
      End If
    Next x

End Sub
于 2013-02-27T21:52:26.770 回答