Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 14
Default can't update chart series unless its activated

I'm trying to update the name a series refers to in code. I tried to do it
like this:

Sub test()
Dim sACWPNamedRange

sACWPNamedRange = "'" & ActiveSheet.Name & "'!" & "ACWP"

ActiveWorkbook.Names.Add Name:=sACWPNamedRange, _
RefersTo:=ActiveSheet.Range("C32:I32")

With ActiveSheet.ChartObjects("Chart 1")
.SeriesCollection(3).Values = "=" & sACWPNamedRange
End With

End Sub

The last bit there throws error '438':
Object doesn't support this property or methd.

If I activate the chart first:

Sub test()
Dim sACWPNamedRange

sACWPNamedRange = "'" & ActiveSheet.Name & "'!" & "ACWP"

ActiveWorkbook.Names.Add Name:=sACWPNamedRange, _
RefersTo:=ActiveSheet.Range("C32:I32")

ActiveSheet.ChartObjects("Chart 1").Activate
With ActiveChart
.SeriesCollection(3).Values = "=" & sACWPNamedRange
End With

End Sub

now it works! Why? I think it has something to do with the reference
returned from the ChartObjects collection...

Thanks,
woody
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 20
Default can't update chart series unless its activated

Hi Woody,

Try...

With ActiveSheet.ChartObjects("Chart 1").Chart
.SeriesCollection(3).Values = "=" & sACWPNamedRange
End With

Same as previous poster, a ChartObject is not a Chart

Ed Ferrero
http://edferrero.m6.net

I'm trying to update the name a series refers to in code. I tried to do
it
like this:

Sub test()
Dim sACWPNamedRange

sACWPNamedRange = "'" & ActiveSheet.Name & "'!" & "ACWP"

ActiveWorkbook.Names.Add Name:=sACWPNamedRange, _
RefersTo:=ActiveSheet.Range("C32:I32")

With ActiveSheet.ChartObjects("Chart 1")
.SeriesCollection(3).Values = "=" & sACWPNamedRange
End With

End Sub

The last bit there throws error '438':
Object doesn't support this property or methd.

If I activate the chart first:

Sub test()
Dim sACWPNamedRange

sACWPNamedRange = "'" & ActiveSheet.Name & "'!" & "ACWP"

ActiveWorkbook.Names.Add Name:=sACWPNamedRange, _
RefersTo:=ActiveSheet.Range("C32:I32")

ActiveSheet.ChartObjects("Chart 1").Activate
With ActiveChart
.SeriesCollection(3).Values = "=" & sACWPNamedRange
End With

End Sub

now it works! Why? I think it has something to do with the reference
returned from the ChartObjects collection...

Thanks,
woody



Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Update line chart series colors Apple Ling Charts and Charting in Excel 0 November 2nd 10 06:48 AM
excel chart maximum series should more than 255 series kameking Charts and Charting in Excel 5 August 22nd 10 10:52 AM
User Selectable Series and Number of Series for Line Chart Dave in NJ Charts and Charting in Excel 2 February 23rd 09 12:18 AM
how to plot column chart with one series against multiple series. svenkateshmurthy Charts and Charting in Excel 2 October 16th 07 09:09 PM
chart data series -- plot a table as a single series hjc Charts and Charting in Excel 7 September 20th 05 05:52 PM


All times are GMT +1. The time now is 06:20 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"