WordArt - changing text color in code

**SuitedAces** · 01-20-2007, 11:28 AM

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

**MSP77079** · 01-20-2007, 12:09 PM

The first one you tried should have worked. But, let me show you how I attack an issue like this ... it might help.

I start the way you did, with the macro recorder. Then, I try to dimension each item to be sure that I have the correct references to the correct objects ... which the macro recorder somehow seems to miss pretty often with its overuse of "Selection".

In this case ..

Dim ws As Worksheet
Dim sh As Shape

    Set ws = ActiveSheet
    Set sh = ws.Shapes("WordArt 35")

This way, I am always picking items from a list provided by VB. It does not ALWAYS work. At times there are options that exist, but are not provied by the VB drop-down. But, it usually works.

In this case ...

Dim ws As Worksheet
Dim sh As Shape

    Set ws = ActiveSheet
    Set sh = ws.Shapes("WordArt 35")
    
    sh.Fill.ForeColor.SchemeColor = 9

I run it ... it works.

**SuitedAces** · 01-20-2007, 12:11 PM

I got this to work.

Please disregard my question.

**SuitedAces** · 01-25-2007, 04:11 AM

MS that you for your reply I must have posted my response at about the same time you were replying.

I didnt see any reply at the time I posted to disregard.

I certainly would not have posted that as a reply have I seen your post.

I appreciate your help and my line of code matches yours.