Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Excel / Programming / November 2007

Tip: Looking for answers? Try searching our database.

Using Graph properties in VBA

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Alan B - 26 Nov 2007 13:01 GMT
I have a sheet that runs a query on our ERP system.  A second sheet is a
pivot table based on the returned data and a third sheet contains a graph
with buttons.  Depending on which button is pressed, relevant data for that
department is returned.  This is for yield analysis so I wanted all the
inputs to be one colour and all the outputs another.  Every time the data
refreshes, the colours return to the default.  I have a macro that reformats
the graph to the appropriate colours, but the issue now is that there were 4
ins and outs (ie 8 in total) when I wrote the macro, but this week there are
only 6 in total.  The macro fails.  

I am now trying to find away of drawing the graph with the default colours,
identifying how many points are on the graph then doing a FOR WHILE loop to
recolour the data points.  ANy ideas how this could be done?

The line in my macro that fails is:

ActiveChart.SeriesCollection(1).Points(7).Select

as there are only 6 datapoits this week.

Regards

Alan Berry
find a way of identifying how many data points are on the graph then do it
using a a For While loop.
Jon Peltier - 26 Nov 2007 13:16 GMT
1. Count the points

Dim iPts as long
For iPts = 1 to ActiveChart.SeriesCollection(1).Points.Count
   With ActiveChart.SeriesCollection(1).Points(iPts)
       ' blah blah
   End With
Next

2. Don't select the points

ActiveChart.SeriesCollection(1).Points(7).Select
Selection.MarkerStyle = xlMarkerStyleDiamond

can be replaced by

ActiveChart.SeriesCollection(1).Points(7).MarkerStyle = xlMarkerStyleDiamond

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

> I have a sheet that runs a query on our ERP system.  A second sheet is a
> pivot table based on the returned data and a third sheet contains a graph
[quoted text clipped - 27 lines]
> find a way of identifying how many data points are on the graph then do it
> using a a For While loop.
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.