VBA to change all shapes that start with "SHP_"

[tonywatsonhelp]

Hi Everyone,
I want a macro to change all shape colours to RGB 150,150,085 if there name starts with "SHP_"
please help if you can.
Thanks
Tony

 

[Alex Blakenburg]

Not sure what you want to change the color of but pick one of the lines in this:

Sub ChangeShapeColor()

    Dim oShp As Shape
    
    For Each oShp In ActiveSheet.Shapes
        With oShp
            If Left(.Name, 4) = "SHP_" Then
                .Fill.ForeColor.RGB = RGB(150, 150, 85)
                '.Line.BackColor.RGB = RGB(150, 150, 85)
                '.TextFrame.Characters.Font.Color = RGB(150, 150, 85)
            End If
        End With
    
    Next oShp
End Sub

 

[tonywatsonhelp]

Excellent, thank you alex, works perfectly

 

[Alex Blakenburg]

You're welcome. Glad I could help