ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Charts and Charting in Excel (https://www.excelbanter.com/charts-charting-excel/)
-   -   Accessing values in points collection of chart & conditional display (https://www.excelbanter.com/charts-charting-excel/38446-accessing-values-points-collection-chart-conditional-display.html)

nnj

Accessing values in points collection of chart & conditional display
 

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


--
nnj
------------------------------------------------------------------------
nnj's Profile: http://www.excelforum.com/member.php...o&userid=25876
View this thread: http://www.excelforum.com/showthread...hreadid=392592


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




All times are GMT +1. The time now is 01:53 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com