Conditional Formatting Shapes that contains specific words

[liberovago]

Hi to all!

My question regards a vba code.
How to conditional Formatting Shapes in a sheet?

I have a product list on sheet1
Many shapes on sheet 2, linked to every cell in sheet1 that contains that product name.
I need to color the background of every shape, if they contains the word for example "BETA".

 

[Fluff]

Cross posted Conditional Formatting on shapes based on specific word

While we do allow Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules). This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

 

[liberovago]

Thanks! The code that worked for me:

Sub liberovago()
   Dim shp As Shape
 
   For Each shp In Sheets("Foglio4").Shapes
    If shp.Type = 1 Then
      If InStr(1, shp.TextFrame.Characters.Caption, "Finocchi", vbTextCompare) > 0 Then
        shp.Fill.ForeColor.RGB = 45678
      End If
    End If
   Next shp
End Sub

 

[Fluff]

Glad you sorted it & thanks for the feedback.