Need help identifying Series Collection Points for a Pie Chart

[Bill_Biggs]

I have a pie chart that has its various sections identified by category name and percentage. I want to write a macro that looks for each of 15 possible Series Collection Point and moves the text about the chart out and away from the chart so it can be read. SOmetimes however, there are not fifteen slices but as little as 6. So I need the macro to "look" for the various points, if it sees it , move it otherwise look for the next one. I tried some simply spaghetti code thinking it would be a quick work around, but it locks up on the first line of each section. Here is a snatch of the code:

<font face=Courier New>    <SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">GoTo</SPAN> Alpha<br>    ActiveChart.SeriesCollection(1).Points(15).DataLabel.Select<br>    Selection.Left = 521<br>    Selection.Top = 147<br>Alpha:<br>    <SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">GoTo</SPAN> Beta<br>    ActiveChart.SeriesCollection(1).Points(14).DataLabel.Select<br>    Selection.Left = 452<br>    Selection.Top = 131<br>Beta:<br>    <SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">GoTo</SPAN> Gamma<br>    ActiveChart.SeriesCollection(1).Points(13).DataLabel.Select<br>    Selection.Left = 349<br>    Selection.Top = 122<br>Gamma:<br>    <SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">GoTo</SPAN> Delta<br>    ActiveChart.SeriesCollection(1).Points(12).DataLabel.Select</FONT>

So the macro gets to the second line of code above and locks up instead of going on to Alpha. How should I be doing this so if there is no 15, it goes on to to look for 14 etc...

Thanks,

 

[Andrew Poulsom]

The Points collection object has a Count property that you can use in a loop.

 

[Bill_Biggs]

Can I trouble you for an example of that? I'll do the writing, but I need to understand the count property and how to establish it.

 

[Andrew Poulsom]

Example:

Dim i As Integer
With ActiveChart.SeriesCollection(1)
    For i = i to .Points.Count
'        Do something with .Points(i)
    Next i
End With

 

[Bill_Biggs]

Great! I can work with that. Thank you as always, Andrew.