changing chart title via vba?

  • Thread starter Thread starter basis
  • Start date Start date
B

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
 
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
 
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
 
Hi


Similar question but based on an if argument.

I want to change the month my chart shows depending on a certain cell.

i.e if cell a1 says april i want my chart to say "April Figures"

How can the if statement be incorporated into the above.

thanks

Excelghostrider
 
Back
Top