Can someone help with the code snipet below. I am trying to program a chart
series but keep getting errors.
Thanks,
Ken
Dim oSheet As Worksheet
Dim oChartObj As ChartObject
Dim Series As Series
Set oSheet = ThisWorkbook.Worksheets(WorkSheetName)
RowNo = 43
Set oChartObj = oSheet.ChartObjects("Chart 1")
With oChartObj
.Top = oSheet.Rows(RowNo + 1).Top
.Left = oSheet.Columns("E").Left
.Width = oSheet.Columns("R").Left - oSheet.Columns("E").Left
.Height = oSheet.Rows(RowNo + 29).Top - oSheet.Rows(RowNo + 1).Top
End With
' Location Reports
With oChart.Chart.SeriesCollection(1) ' "Location Reports")
.XValues = "='17AE'!R3C13:R42C13"
.Values = Worksheets(oSheet.Name).Range(Cells(3, Col_N), Cells(RowNo,
Col_N))
End With
Bookmarks