Weird problem for changing axis color

[mikejvir]

Hello All,

I want to change the font color on my axis's
xLCatergory
xLValue, xLPrimary
xLValue, xLSecondary

VBA threw an error. So I did a macro record and got this.

Sub Macro7()
'
' Macro7 Macro
'
ActiveChart.Axes(xlValue, xlSecondary).Select
With Selection.Format.TextFrame2.TextRange.Font.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 0, 255)
.Transparency = 0
.Solid
End With
End Sub

Sub Macro7()
'
' Macro7 Macro
'
    ActiveChart.Axes(xlValue, xlSecondary).Select
    With Selection.Format.TextFrame2.TextRange.Font.Fill
      .Visible = msoTrue
      .ForeColor.RGB = RGB(0, 0, 255)
      .Transparency = 0
      .Solid
    End With
End Sub

I copied this to my other code and still get an error which is

No sure what to do since this macro was recorded and did what I want. When I rerun it will not.

Thanks in advance.

Mike Virostko

 

[Jeffrey Mahoney]

Did you select the chart before running the macro? I don't know which line it was highlighting when the error came up.