Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Excel VBA Chart 1
- Thread starter adamsr
- Start date
-
1
- #2
RobBroekhuis
Technical User
You have to access the chart.seriescollection(1).formula property.
Then parse the string to find the data column, and increment the column number. Remake the string, and reassign the formula property. You can use something like
s=activechart.SeriesCollection(1).formula
p1=instrrev(s,"!"
p2=instrrev(s,","
set cell=sheets("MyData".range(mid(s,p1+1,p2-p1-1)).offset(0,1)
activechart.SeriesCollection(1).formula=left(s,p1)+cell.address+mid(s,p2)
Rob
![[flowerface]](/data/assets/smilies/flowerface.gif "[flowerface] [flowerface]")
Then parse the string to find the data column, and increment the column number. Remake the string, and reassign the formula property. You can use something like
s=activechart.SeriesCollection(1).formula
p1=instrrev(s,"!"
p2=instrrev(s,","
set cell=sheets("MyData"
.range(mid(s,p1+1,p2-p1-1)).offset(0,1)activechart.SeriesCollection(1).formula=left(s,p1)+cell.address+mid(s,p2)
Rob
- Thread starter
- #3
- Status
Similar threads
- Locked
- Question
