Accessing values in points collection of chart & conditional display

[nnj]

Hi,
I have just started learning Macros &...

I need to read thru the values of each data point in a chart and decide if the datalabels need to be displayed on the chart.
That is, if the value in a point is less than 1, I do not want the datalabel displayed for that point.
Is there a way to access the Value of the points array ?
Please help.
I duno in which group the Points belong to . This is how I started working on it.

Dim p As Points
With ActiveChart
For Each p In ??
If p.Values <= 1 Then
p.HasDataLabels = False
End If
Next p
End With

Thanx in advance

[Jon Peltier]

Sub LabelsIfGreaterThanOne()
Dim vaValues As Variant
Dim iPt As Long
With ActiveChart.SeriesCollection(1)
vaValues = .Values
For iPt = 1 To .Points.Count
If vaValues(iPt) <= 1 Then
.Points(iPt).HasDataLabel = False
End If
Next
End With
End Sub

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______


nnj wrote:

> Hi,
> I have just started learning Macros &...
>
> I need to read thru the values of each data point in a chart and decide
> if the datalabels need to be displayed on the chart.
> That is, if the value in a point is less than 1, I do not want the
> datalabel displayed for that point.
> Is there a way to access the Value of the points array ?
> Please help.
> I duno in which group the Points belong to . This is how I started
> working on it.
>
> Dim p As Points
> With ActiveChart
> For Each p In ??
> If p.Values <= 1 Then
> p.HasDataLabels = False
> End If
> Next p
> End With
>
> Thanx in advance
>
>