Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Update line chart series colors | Charts and Charting in Excel | |||
excel chart maximum series should more than 255 series | Charts and Charting in Excel | |||
User Selectable Series and Number of Series for Line Chart | Charts and Charting in Excel | |||
how to plot column chart with one series against multiple series. | Charts and Charting in Excel | |||
chart data series -- plot a table as a single series | Charts and Charting in Excel |