changing chart title via vba?

[basis]

I don't understand why this is so difficult, but I'm trying to change
the title bar of a chart. I couldn't get the code to work, so I just
recorded a simple macro to see a "working" version. Problem is, the
recorded macro doesn't work either!

Here's the code from the macro:

Sub Macro1()
Sheets("3. FHS").Select
ActiveSheet.ChartObjects("ProjGraph1").Activate
ActiveChart.ChartTitle.Select
Selection.Characters.Text = "Text"
End Sub

When I press play from within the editor, I get:

Run-time error '-2147221080 (800401a8)':
Method'ChartTitle' of object'_Chart' failed

This should be so simple, but as a newbie, I'm making no progress
whatsoever ....

b

 

[Greg Wilson]

The following assumes that the chart is the first that was
added to the worksheet and therefore is referred to as
Chartobjects(1). Change the index number if necessary.
Note that there is no need to select anything.

Sub Macro1()
ActiveSheet.ChartObjects(1).Chart. _
ChartTitle.Characters.Text = "Text"
End Sub

 

[Tom Ogilvy]

Try it like this:

Sub Macro1()
With Sheets("3. FHS").ChartObjects("ProjGraph1")
.Chart.HasTitle = True
.Chart.ChartTitle.Text = "This is New Title"
End With
End Sub