How to determine the chart name of a newly added chart

[Andrew XJ]

In one Spreadsheet, I use FOR loop to add several chart, the chart number varies. How can i extract the chart name of the newly added chart? Thx.

[Andrew XJ]

Is it necessary that ChartObjects(1) always refer to the chart added latestly? Seems not, So how to determine the name of the newly added chart?
Please help.....

[Andrew XJ]

help please

[Steve Hartman]

Right click on the chart and choose assign macro. The box that comes up will have the chart name in the top line. Cancel the box, unless of course you actually want to assign a macro to the chart.

[Mark O'Brien]

On 2002-02-27 18:41, Andrew XJ wrote:
In one Spreadsheet, I use FOR loop to add several chart, the chart number varies. How can i extract the chart name of the newly added chart? Thx.

If you set a chart object variable to be the new chart that has just been added, you can define the name yourself. For example:

  Dim MyChart As Chart

  

  For i = 1 To 5

    Set MyChart = Application.Charts.Add

    MyChart.Name = "Chart" & i

  Next

In this example I'm just adding chart sheets rather inserting than chart objects onto sheets,
but the same principle applies.

_________________
[b] Mark O'Brien

[ This Message was edited by: Mark O'Brien on 2002-02-28 07:15 ]

These codes are for newly added codes. parts of my codes are as following:
ActiveSheet.ChartObjects("Chart 36").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy

ActiveWindow.Visible = False
Windows("Monthly Cpk Summary-PPT.xls").Activate
Range(Cells(10 * LoopP - 15, , Cells(10 * LoopP, 13)).Select
ActiveSheet.Paste

'Need to determine the chart name
ActiveSheet.ChartObjects("Chart " & LoopP + 52).Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete

I use ActiveSheet.ChartObjects("Chart "& LoopP+52).Activate because i found that the latestly creatly chart is Chart 51. So in this case how can i name the chart?
No stuff such as "MyChart", right? so no MyChart.Name. Please enlighten.

[Mark O'Brien]

If the whole objective is to activate the last chart that was created, add this code to your project:

Public Sub ActivateLastChartAdded()



  Dim chrt As ChartObject

  Dim i As Integer

  

  For Each chrt In ActiveSheet.ChartObjects

    i = i + 1

  Next



  ActiveSheet.ChartObjects.Item(i).Activate



End Sub

Now to activate the last chart in your code, simply use

ActivateLastChartAdded

Instead of:

ActiveSheet.ChartObjects("Chart " & LoopP + 52).Activate 

HTH
_________________
[b] Mark O'Brien

[ This Message was edited by: Mark O'Brien on 2002-02-28 10:10 ]

[ This Message was edited by: Mark O'Brien on 2002-02-28 10:13 ]