Dynamic charts made in this way are in general as rapid as VBA, since they
rely on built in Excel worksheet functions. As soon as the VBA changes the
input data, the dynamic formulas update themselves, and the chart keeps
pace.

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


"Matthew Cunliffe" wrote in
message ...
Thanks Jon. I need to write it in code as it is part of an automated
update
to the whole workbook. The idea is that the user just presses one button,
all the data is collated and processed, then displayed in the updated
chart.
As this is likely to occur several times a day, it needs to be fairly
rapid
(although I seem to have spend half a day trying to resolve this!)
--
Matthew Cunliffe
www.euro-point.co.uk
Test Consultancy


"Jon Peltier" wrote:

You can do this without using code:

http://peltiertech.com/Excel/Charts/Dynamics.html

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


"Matthew Cunliffe" <Matthew wrote in
message ...
Hello,

I have an existing chart on a worksheet for which I am trying to update
the
XValues for each series. The update works for the first series that I
want
to change, but on the subsequent ones, it raises a Runtime Error 1004.
The
original values in each series are all valid. If I swap the series
around
(so that the second and third are before the first) then the error
occurs
immediately.

Below is a cut-down version of the code I am using. The startrow and
endrow
variables are normally populated from elsewhere.

If anyone could give me a pointer as to why it works for the first
series
but fails on all subsequent ones I would be grateful.

Set CHT = Worksheets("Chart").ChartObjects("Chart 1").Chart

startrow = 152
endrow = 196

Value1 = "='Overall Progress - Tabular'!R" & startrow & "C6:R" & endrow
&
"C6"
Value2 = "='Overall Progress - Tabular'!R" & startrow & "C8:R" & endrow
&
"C8"
Value3 = "='Overall Progress - Tabular'!R" & startrow & "C10:R" &
endrow &
"C10"

CHT.SeriesCollection("Cumulative Actual").XValues= Value1
CHT.SeriesCollection("Cumulative Predictive Failed").XValues = Value2
CHT.SeriesCollection("Cumulative Actual Failed").XValues = Value3