WordArt - changing text color in code

Could someone help me with this.

I recorded a macro changing the forecolor of a Wordart and got this for blue

ActiveSheet.Shapes("WordArt 35").Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 12
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)

and this for white

ActiveSheet.Shapes("WordArt 35").Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)

So I reduced my code to the color scheme and get a message that says
the 'property or method is not supported by this object'.

Here is what I have tried
Sheet1.Shapes("WordArt 35").Fill.ForeColor.SchemeColor = 12
and
Sheet1.Shapes("WordArt 35").ForeColor.SchemeColor = 12
and
Sheet1.Shapes("WordArt 35").ShapeRange.Fill.ForeColor.SchemeColor = 12




Thank You