Run time error '424'

[wwrightchess]

I recorded the following macro but when I tried to run it again I get the error run time error '424' object required on the third line when it tries to set the axes title.

Sub Macro11()
'
' Macro11 Macro
'

'
Sheets("ff_plot").Select
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Freezing Fraction"
Selection.Format.TextFrame2.TextRange.Characters.Text = "Freezing Fraction"
With Selection.Format.TextFrame2.TextRange.Characters(1, 17).ParagraphFormat
.TextDirection = msoTextDirectionLeftToRight
.Alignment = msoAlignCenter
End With
With Selection.Format.TextFrame2.TextRange.Characters(1, 17).Font
.BaselineOffset = 0
.Bold = msoFalse
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.RGB = RGB(89, 89, 89)
.Fill.Transparency = 0
.Fill.Solid
.Size = 10
.Italic = msoFalse
.Kerning = 12
.name = "+mn-lt"
.UnderlineStyle = msoNoUnderline
.Strike = msoNoStrike
End With
ActiveChart.ChartArea.Select
End Sub

 

[Anthony47]

You need to add chart selection:

Sheets("ff_plot").Select
   ActiveSheet.ChartObjects("WhichChart").Activate                '<<< ADD Here
   ActiveChart.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)

(macro recorder sometime fails)

Bye

 

[wwrightchess]

How do I get the name of the chart object? (The chart is on a sheet by itself)

 

[Anthony47]

If you select the chart you will see its name in the "Names box" (just above the first column header); or use ChartObjects(1) if there is only one

 

[wwrightchess]

I tried ChartObjects(1) and got application-defined or object-defined-error.
I do nt see where there is a names box anywhere. I tried a screenshot but it said it was too large

 

[Anthony47]

I tried ChartObjects(1) and got application-defined or object-defined-error

Which is the full line of code?

The Name box is the one in red, in the image

 

[wwrightchess]

Is there a ribbon I need to add? I still do not see what you refer to

Workbooks("combined_output.xlsx").Activate
Sheets("ff_plot").Select
ActiveSheet.ChartObjects(1).Activate

 

[Anthony47]

The code is formally correct

If you don't see the name box (nor the formula bar) then try:
-Menu /File /Options /Advanced; scroll to "Display"; make sure that "Show the formula bar" is checked

 

[wwrightchess]

Would anyone know what this would translate to on mac?
I can find Preferences (not Options)
I see a formula bar but there is no name I can see

 

[Domenic]

Is the chart embedded within a worksheet? Or is it actually on a chart sheet?