Changing Multiple Graph's Source Data

  • Thread starter Thread starter TysonE
  • Start date Start date
T

TysonE

So I have 8 graphs on one tab that reference data on another. I
highlighted both tabs, click copy, and I was hoping the graph's source
data would move itself to the new data tab, but no dice. They are
still referencing the original tab. Is there a way to move all the
new graph's source data to the new tab all at once?

Regards,

Tyson
 
If desired, send your file to my address below. I will only look if:
1. You send a copy of this message on an inserted sheet
2. You give me the newsgroup and the subject line
3. You send a clear explanation of what you want
4. You send before/after examples and expected results.
 
      If desired, send your file to my address below. I will only look if:
      1. You send a copy of this message on an inserted sheet
      2. You give me the newsgroup and the subject line
      3. You send a clear explanation of what you want
      4. You send before/after examples and expected results.
Click to expand...
That seems like more work than it's worth between us. I was just
looking for a quick answer. Worst case I go into each graph and
change the tab name.

Tyson
 
A macro can do this for you but I don't have time to recreate your project
to test my solution. have it your way.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)
� � � If desired, send your file to my address below. I will only look if:
� � � 1. You send a copy of this message on an inserted sheet
� � � 2. You give me the newsgroup and the subject line
� � � 3. You send a clear explanation of what you want
� � � 4. You send before/after examples and expected results.
Click to expand...
That seems like more work than it's worth between us. I was just
looking for a quick answer. Worst case I go into each graph and
change the tab name.

Tyson
 
Basic idea

Sub changechartseries()
ms = 1
ActiveSheet.ChartObjects("Chart 3") _
..Chart.SeriesCollection(1).Values = _
"=Sheet" & ms & "!R1C1:R10C1"
End Sub
 
Back
Top