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.