How could I select a chart within a sheet?

[marlonsaveri]

I've created some examples trying to discover:

  Dim mychart As ChartObject
    Set mychart = ActiveWorkbook.ActiveSheet.ChartObject(1)
    Debug.Print mychart.Name

Sub EditSeriesName()
    Charts(1).Select
    ActiveChart.SeriesCollection(4).Name = "Nova"
End Sub

but I can't select a chart within a sheet, ie, a ChartObject. How could I do?

Thanks

 

[AlphaFrog]

Try something like this...

Set mychart = ActiveSheet.ChartObject[COLOR="Red"]s[/COLOR](1)

 

[marlonsaveri]

Studying "Debug.Print ActiveChart.Index", I see that the "index" applies only to charts that take up entire worksheets - charts - not ChartObject or I'm putting a invalid index in my case.

Thanks.

I've tried a macro, it tells me to use "ActiveSheet.ChartObjects("name of the chart").Activate"

 

[AlphaFrog]

I'm able to use the index reference on charts within a worksheet.

Did you note the S at the end of ChartObjects. You had omitted it in your code in the original posting #1.

Set mychart = ActiveSheet.ChartObject[B]s[/B](1)

 

[marlonsaveri]

I noted, maybe it's becaus I don't know the right index. But, why is it not working either?

Sub TakeIndex()
    Debug.Print ActiveChart.Index
End Sub

 

[AlphaFrog]

The ChartObject is the Parent of the ActiveChart. The code below will return the index of the parent ChartObject of the ActiveChart.

Sub TakeIndex()
    Debug.Print ActiveChart.Parent.Index
End Sub

 

[marlonsaveri]

Thanks, now it's working!

To finish my lesson, I tried:

[COLOR=Blue]Sub[/COLOR] Experience()
[COLOR=Blue]    Dim[/COLOR] MyGraf As ChartObject
    [COLOR=Blue]Dim[/COLOR] lastcell As Long

[COLOR=Blue]    Debug.Print [/COLOR]ActiveChart.Parent.Index
    Range("A2").Select
    ActiveSheet.ChartObjects(1).Select
[COLOR=Blue]    Set[/COLOR] MyGraf = ActiveSheet.ChartObjects(1)
    MsgBox "Ok So Far" [COLOR=PaleGreen]'OK[/COLOR]

    [COLOR=Red]lastcell = ActiveSheet.MyGraf.Chart.SeriesCollection.Count[/COLOR] [COLOR=Lime]'problem here[/COLOR]
    MyGraf.Chart.SeriesCollection(lastcell).Name = "LastCell"
[COLOR=Blue]End Sub[/COLOR]

 

[AlphaFrog]

lastcell = MyGraf.Chart.SeriesCollection.Count  [COLOR="Green"]' Removed ActiveSheet.[/COLOR]

I don't understand why this works now but not before.
Set MyGraf = ActiveSheet.ChartObjects(1)

 

[marlonsaveri]

\o/ Thanks AlphaFrog.

But it's strange; maybe because MyGraf, a variable, is not inside ActiveSheet as ChartObjects is, a property.

 

[AlphaFrog]

What?, I'm not understanding, with all, the commas and, sentence, , fragments.

But it really doesn't matter. Glad it worked out for you.