Actually you did help me greatly and I apologize. I'm not purposely trying to
mission creep. As each question was answered it led me to another question as
I thought of improvements if they were possible. Plus to be honest it's how I
learn through asking these questions. If you want I'll show you the file and
you can see that this whole chart issue is a very small portion of the file
I'm working on which is actually a scorecard used to measure employee
performance. I definitely thank you for all of your help Jim.

"Jim Cone" wrote:

"I think what we have here is mission creep"...
http://en.wikipedia.org/wiki/Mission_creep

You may want to review your needs and make a separate post with
your request for help
-or-
Email the workbook to me with your specific requirements and I can
prepare a quotation outlining the cost to do the coding.
(remove the xxx from my email address)
--
Jim Cone
Portland, Oregon USA
james.coneXXX at comcast.netXXX



"Qaspec"
wrote in message
You're right. Because the other charts were a different type i completely
spaced out and forgot about them!
The application caller works great. Everything is just as I need it so far.
Just one more question though. Would it be possible to change the codes run
event for each chart to run when the source data values change the chart
changes triggering the change in bar code color?





"Jim Cone" wrote:
That is why I said...
"The above assumes there is only one chart on the sheet or that
it is the first chart that was added to the sheet."

The following line references the chart that calls the code...
With ActiveSheet.ChartObjects(Application.Caller).Chart .SeriesCollection(1)

Note: A Chart on a worksheet is contained within a ChartObject.
Application.Caller (in this case) returns the name of the ChartObject.
So... ChartObjects(Application.Caller) = ChartObjects("Chart x").
And... ChartObjects("Chart x").Chart ... is the chart you clicked.
--
Jim Cone
Portland, Oregon USA



"Qaspec"

wrote in message
I feel stupid....the code does work. It is changing the colors on the first
chart on the page and not the chart I'm clicking. Can this code be set to
automatically produce thise behavior for every chart on the sheet?




"Jim Cone" wrote:
This line determines whether the color changes...
"If vValues(iPoint) <= vPatterns(iPattern, 1) Then"
So...
Try changing the values the chart uses or the values in range("T1:T3")
--
Jim Cone
Portland, Oregon USA


"Qaspec"

wrote in message
The code runs all the way through without an error but it is not changing the
colors of the bars in the chart.


"Jim Cone" wrote:
Change the unwilling line to...
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection (1)

The above assumes there is only one chart on the sheet or that
it is the first chart that was added to the sheet.
--
Jim Cone
Portland, Oregon USA




"Qaspec"
wrote in message
Then is it xl2003? Maybe my method of placement? I placed the code in vba
project in a module and went to the chart and assigned the macro from there.
At that point I click on the chart to run the macro is where I get the error
message. My Macro security is set to low, and trust all sources, and allow
access to vba project.
I did notice that when I searched for the ActiveChart object in the vba
object browser it gave me a message saying it was hidden.




"Jim Cone" wrote:
I ran your code on a column chart in XL2002 with no problems.
--
Jim Cone
Portland, Oregon USA