MS Graph problem - Xtreme Visual Basic Talk

05-05-2005, 02:43 AM

ahilton

Newcomer

Join Date: Mar 2004

Posts: 5

MS Graph problem

Hi

I'm populating a load (c 200 each month) of MS Graphs in a PPT with data from a XLS. So far so easy. The number of data points varies from graph to graph and increments each month. Each graph is a simple line graph, with only the last datapoint having a data label. I thought I would write something that would go to the graph, remove the label from the last data point, insert new data, then add datalabels to the new last datapoint.

But, whilst the following code works (but is only useful if there are alwys only 6 datapoints)

Code:

With oGraph.SeriesCollection(1).Points(6)
                 .HasDataLabel = False
                End With

this code produces OBJECT REQUIRED error on the second line

Code:

With oGraph.SeriesCollection(1).Points.Count
                 .HasDataLabel = False
                End With

Can anyone assist?

Last edited by herilane; 05-05-2005 at 05:04 AM. Reason: [vb] tags make your code easier to read - click Reply on this post to see them in action.

05-05-2005, 05:06 AM

herilane

Unashamed geek

Retired Moderator
* Expert *

Join Date: Jul 2003

Location: London, England

Posts: 8,988

Is this what you're looking for?

Code:

'remove label from last point
With oGraph.SeriesCollection(1).Points
    .Items(.Count).HasDataLabel = False
End With

PS I edited your post to add [vb][/vb] tags around your code. More about tags here.

05-06-2005, 02:20 AM

ahilton

Newcomer

Join Date: Mar 2004

Posts: 5

Thanks, Helen, but no joy. OBJECT DOESN'T SUPPORT THIS PROPERTY OR METHOD.
However I had a look at the Graph Object model and found and came up with this

[vb]Set Points = oGraph.SeriesCollection(1).Points
Points(Points.Count).HasDataLabel = False[\vb]

Thanks agin anyway