Определение значения точки в Excel VBA

Question

Я пытаюсь, чтобы точки в диаграмме меняли цвет, если они находятся в определенных значениях параметров (т. Е.> 1 зеленый, < 1 красный, все остальное - синее). Я не могу определить, как получить VBA, чтобы дать мне значение любой заданной точки.

В ответе this thread ответ (очень полезно другим способом) указывает, что точки (num) .value вернут значение в точке. Тем не менее, я получаю сообщение об ошибке, делая это, и нигде больше в Интернете или в справке VBA я не могу найти способ, который соответствует этому. Кто-нибудь еще имел успех с этим?

Вот фрагмент кода дает мне неприятности:

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

Благодаря тому, как данные хранятся в наборе данных, это определенно было бы лучше, чтобы получить значение из диаграммы непосредственно. Я мог бы найти обходное решение, используя сам набор данных, но я бы предпочел избежать этого.

Answer 1

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