change font color and font style in shape

I am trying to change the font color and the font style inside a shape. I am using the following code but keep getting "object doesn't support this method" message for the second and third lines of code

    With wsRegulatory.Shapes("RegulatoryTable")
        .Font.FontStyle = "Bold"
        .Font.ColorIndex = 2
        .Fill.Visible = msoTrue
        .Fill.Solid
        .Fill.ForeColor.SchemeColor = 63
        .Fill.Transparency = 0#
        .Line.Weight = 0.75
        .Line.DashStyle = msoLineSolid
        .Line.Style = msoLineSingle
        .Line.Transparency = 0#
        .Line.Visible = msoTrue
        .Line.ForeColor.SchemeColor = 64
        .Line.BackColor.RGB = RGB(255, 255, 255)
    End With

On what line?

At a guess, you need to use the TextFrame.Characters property for Font.

Hello maacmaac,

Try this updated version of the code.

    With wsRegulatory.Shapes("RegulatoryTable")
      With .TextFrame.Characters.Font
        .Bold = True
        .ColorIndex = 2
      End With
        .Fill.Visible = msoTrue
        .Fill.Solid
        .Fill.ForeColor.SchemeColor = 63
        .Fill.Transparency = 0#
        .Line.Weight = 0.75
        .Line.DashStyle = msoLineSolid
        .Line.Style = msoLineSingle
        .Line.Transparency = 0#
        .Line.Visible = msoTrue
        .Line.ForeColor.SchemeColor = 64
        .Line.BackColor.RGB = RGB(255, 255, 255)
    End With