Adding Chart - Methods Fail
 

I am trying to add a chart with VB6. I am getting similar errors on
all line from the 'HasTitle' line.

eg "Method 'HasTitle' of object '_Chart' failed"

I Cannot work out what is wrong I initially recorded the code and
ammended it.

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlChart As Excel.Chart

With xlApp.Workbooks(xlBook.Name).Worksheets(xlSheet.Na me)

Set xlChart = xlApp.Charts.Add
xlChart.ChartType = xlLineMarkers
xlChart.SetSourceData Source:=.Range(.Cells(lHeaderRow + 1, lUsageCol),
..Cells(lRowCnt - 1, lUsageCol)), _
PlotBy:=xlColumns
xlChart.SeriesCollection(1).XValues = _
.Range(.Cells(lHeaderRow + 1, lDateCol), .Cells(lRowCnt - 1,
lDateCol))
xlChart.Location Whe=xlLocationAsObject, Name:=xlSheet.Name
xlChart.HasTitle = True
xlChart.ChartTitle.Characters.Text = "Disk Space History: " &
rsDrives.Fields("DrivePath")
xlChart.Axes(xlCategory, xlPrimary).HasTitle = True
xlChart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Date"
xlChart.Axes(xlValue, xlPrimary).HasTitle = True
xlChart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "% Usage"
xlChart.HasAxis(xlCategory, xlPrimary) = True
xlChart.HasAxis(xlValue, xlPrimary) = True
xlChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
xlChart.HasLegend = False

End With

Thanks in advance for your help .... Paul

Adding Chart - Methods Fail
 

wrote:
I am trying to add a chart with VB6. I am getting similar errors on
all line from the 'HasTitle' line.

eg "Method 'HasTitle' of object '_Chart' failed"

I Cannot work out what is wrong I initially recorded the code and
ammended it.

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlChart As Excel.Chart

With xlApp.Workbooks(xlBook.Name).Worksheets(xlSheet.Na me)

Set xlChart = xlApp.Charts.Add
xlChart.ChartType = xlLineMarkers
xlChart.SetSourceData Source:=.Range(.Cells(lHeaderRow + 1,
lUsageCol),
.Cells(lRowCnt - 1, lUsageCol)), _
PlotBy:=xlColumns
xlChart.SeriesCollection(1).XValues = _
.Range(.Cells(lHeaderRow + 1, lDateCol), .Cells(lRowCnt - 1,
lDateCol))
xlChart.Location Whe=xlLocationAsObject, Name:=xlSheet.Name
xlChart.HasTitle = True
xlChart.ChartTitle.Characters.Text = "Disk Space History: " &
rsDrives.Fields("DrivePath")
xlChart.Axes(xlCategory, xlPrimary).HasTitle = True
xlChart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text =
"Date"
xlChart.Axes(xlValue, xlPrimary).HasTitle = True
xlChart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "%
Usage"
xlChart.HasAxis(xlCategory, xlPrimary) = True
xlChart.HasAxis(xlValue, xlPrimary) = True
xlChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
xlChart.HasLegend = False

End With

Thanks in advance for your help .... Paul

After spending a couple of hours trying to resolve this, 5 mins after
my post I have found a solution:-

moving "xlChart.Location Whe=xlLocationAsObject, Name:=xlSheet.Name"
to be the last line of the code above.

Why? I do not know - maybe after changing the location it must be
referenced in a different way?