Aiysha
asked on
xlXYScatterSmooth
plotting in vb 6.0.. I am having problems at the highlighted line in the code below..I am trying to convert vba code to vb 6.0 code.
is there a possibility of having problems later in the code?
For OutVar = 1 To TotalVariableCount
Set tempchart = FinalWBook.Charts.Add
tempchart.ChartType = xlXYScatterSmooth <------------------------- ----
tempchart.Location Where:=xlLocationAsNewShee t
tempchart.Name = ArraySelectionName(OutVar) & "-" & ArrayVariableName(OutVar)
tempchart.SeriesCollection .NewSeries
'ActiveChart.SeriesCollect ion.NewSer ies
tempchart.SeriesCollection (1).XValue s = "=ActualData!R2C1:R" & numberofcells & "C1"
tempchart.SeriesCollection (1).Values = "=ErrorfunctionAll!R" & (OutVar - 1) * ACTUALDATAPOINTS + 2 & "C1:R" & OutVar * ACTUALDATAPOINTS + 1 & "C1"
tempchart.SeriesCollection (1).Name = "=""Actual"""
tempchart.SeriesCollection (2).XValue s = "=ActualData!R2C1:R" & numberofcells & "C1"
tempchart.SeriesCollection (2).Values = "=ErrorfunctionAll!R" & (OutVar - 1) * ACTUALDATAPOINTS + 2 & "C2:R" & OutVar * ACTUALDATAPOINTS + 1 & "C2"
tempchart.SeriesCollection (2).Name = "=""sim"""
With tempchart
.HasTitle = True
.ChartTitle.Characters.Tex t = ArraySelectionName(OutVar) & "-" & ArrayVariableName(OutVar)
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Chara cters.Text = "DAYS"
.Tab.ColorIndex = 6
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Next OutVar
is there a possibility of having problems later in the code?
For OutVar = 1 To TotalVariableCount
Set tempchart = FinalWBook.Charts.Add
tempchart.ChartType = xlXYScatterSmooth <-------------------------
tempchart.Location Where:=xlLocationAsNewShee
tempchart.Name = ArraySelectionName(OutVar)
tempchart.SeriesCollection
'ActiveChart.SeriesCollect
tempchart.SeriesCollection
tempchart.SeriesCollection
tempchart.SeriesCollection
tempchart.SeriesCollection
tempchart.SeriesCollection
tempchart.SeriesCollection
With tempchart
.HasTitle = True
.ChartTitle.Characters.Tex
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Chara
.Tab.ColorIndex = 6
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Next OutVar
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.