Error 438, Trouble with Formatting Shapes, Recorded Macro Not Working

[FracinDean]

I am attempting to use a macro to change the formatting of some shapes. I recorded some code with the macro recorder which works when I am recording it, but it doesn't work when I re-run it from the macro. Here is the code:

    ActiveChart.ChartArea.Select
    ActiveChart.Shapes.Range(Array("Freeform 1")).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.150000006
        .Transparency = 0
        .Solid
    End With

The error is "Run-time error '438': Object doesn't support this property or method."

The debugger is pointing to the statement "With Selection.ShapeRange.Fill"

This seems to be my last hurdle on this project. Thanks to past postings from this forum, I have learned tonight about how to delete the previous objects, use user-defined coordinates to draw the objects, and re-name the two objects so they are always #1 and #2.

Any assistance appreciated.

 

[oldbrewer]

this selects a shape and colours it....

ActiveSheet.Shapes("Rectangle 1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End Sub

 

[FracinDean]

Thanks oldbrewer.

I get the same error again, this time on the statement:

Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13

Any more suggestions?

In case it matters, I have Excel 10, version 14.0.7153.5000 (32-bit).

 

[FracinDean]

I have the same code as my original now, and it is working. I don't know what is different this time, but the problem is solved for now. Thanks oldbrewer.

 

[oldbrewer]

excel is like women - hard to predict at times....

 

[FracinDean]

This is a follow-up to document what I found to be the problem. The code is working reliably now. I had to add the identifier for the shape ("Freeform 1") to the third line of code below.

    ActiveChart.ChartArea.Select
    ActiveChart.Shapes.Range(Array("Freeform 1")).Select
    With Selection.ShapeRange("Freeform 1").Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.150000006
        .Transparency = 0
        .Solid
    End With