Product: Excel-97 SR2

What I'm trying to achieve is within a VB script is
changing the text title of a Chart. In reading through
the on-line help file, it gives the following example:

With Worksheets(1).Charts("chart1").Axes(xlCategory)
.HasTitle = True
.AxisTitle.Caption = "1994"
End With

But when I cut-n-paste the example into my spreadsheet,
changing only the value for Worksheets and Charts to whats
appropriate to my spreadsheet (for example; Worksheets
("Sheet1").Charts("Chart 3")...) I get the following error
message:

- Andrew
Run-time error: 438

Object doesn't support property or method


I've checked, double-checked, quadtriple checked for
typing / syntax errors, but other than the changes
mentioned, it's exactly as in the help file! Unless the
help file example is wrong, I cannot find why am I getting
this error.

Hi Andrew,

Try:

Sub Yester()

With Worksheets("Sheet1").ChartObjects("Chart 3").Chart.Axes(xlCategory)
.HasTitle = True
.AxisTitle.Caption = "1994"
End With

End Sub

---
Regards,
Norman



"Andrew" wrote in message
...
Product: Excel-97 SR2

What I'm trying to achieve is within a VB script is
changing the text title of a Chart. In reading through
the on-line help file, it gives the following example:


But when I cut-n-paste the example into my spreadsheet,
changing only the value for Worksheets and Charts to whats
appropriate to my spreadsheet (for example; Worksheets
("Sheet1").Charts("Chart 3")...) I get the following error
message:

- Andrew
Run-time error: 438

Object doesn't support property or method


I've checked, double-checked, quadtriple checked for
typing / syntax errors, but other than the changes
mentioned, it's exactly as in the help file! Unless the
help file example is wrong, I cannot find why am I getting
this error.

Bingo! That worked. Nice of Microsoft to omit that
little piece of the puzzle! :)

Thanks Norman.

-----Original Message-----
Hi Andrew,

Try:

Sub Yester()

With Worksheets("Sheet1").ChartObjects("Chart
3").Chart.Axes(xlCategory)
.HasTitle = True
.AxisTitle.Caption = "1994"
End With

End Sub

---
Regards,
Norman