I recorded a macro to add a chart, works perfect. but when I leave excel and restart again it just won't work..!! Please Help!!!
here is the code:
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("MAIN").Range("O25"), PlotBy:= _
xlRows
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=""Example value"""
'(this is the line thats wrong)
ActiveChart.SeriesCollection(2).Values = "=MAIN!R25C16"
ActiveChart.SeriesCollection(2).Name = "=""Standard Value"""
ActiveChart.Location Where:=xlLocationAsObject, Name:="MAIN"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Comparasion of PH Level"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "PH Level"
End With
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = False
.HasAxis(xlValue, xlPrimary) = True
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
ActiveChart.HasDataTable = False
here is the code:
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("MAIN").Range("O25"), PlotBy:= _
xlRows
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=""Example value"""
'(this is the line thats wrong)
ActiveChart.SeriesCollection(2).Values = "=MAIN!R25C16"
ActiveChart.SeriesCollection(2).Name = "=""Standard Value"""
ActiveChart.Location Where:=xlLocationAsObject, Name:="MAIN"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Comparasion of PH Level"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "PH Level"
End With
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = False
.HasAxis(xlValue, xlPrimary) = True
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
ActiveChart.HasDataTable = False