Shape aanpassen als waarde cell verandert

[TSmolders]

Hallo,

Ik ben op zoek naar een stukje vba tekst voor excel 2007.

Ik heb meerdere shapes:Rounded Rectangle 5, Rounded Rectangle 30, etc, etc
Ik wil dat de kleur verandert van een paar shapes als cell N1 een bepaalde tekst heeft.
Als de cell N1 niet deze tekst heeft, dan moeten de kleuren weer terug naar de oorspronkelijke kleuren.

En welke codes heb ik nodig voor de kleuren? Kan ik RGB codes gebruiken?
Kleur 1: 31, 73, 125
Kleur 2: 255, 255, 255
Kleur 3: 0, 176, 80
Kleur 4: 255, 0, 0

Ik hoop dat iemand me kan helpen.

Gr,

TSmolders

 

[jaccovh]

If Range("n1").Value = "kleur1" Then
            ActiveSheet.Shapes("Rounded Rectangle 5").Fill.ForeColor.RGB = RGB(31, 73, 125)
        Else if Range("n1").Value = "kleur2" Then
            ActiveSheet.Shapes("Rounded Rectangle 5").Fill.ForeColor.RGB = RGB(255, 255, 255)
        Else if Range("n1").Value = "kleur3" Then
            ActiveSheet.Shapes("Rounded Rectangle 5").Fill.ForeColor.RGB = RGB(0, 176, 80)
        Else if Range("n1").Value = "kleur4" Then
            ActiveSheet.Shapes("Rounded Rectangle 5").Fill.ForeColor.RGB = RGB(255, 0, 0)
        Else
            ActiveSheet.Shapes("Rounded Rectangle 5").Fill.ForeColor.RGB = RGB(0, 0, 0)
        End If

volgens mij moet je wel kunnen zien welk stukje code wat doet en wat je kan veranderen

 

[TSmolders]

Hi bedankt,

hij werkt niet helemaal (of helemaal niet )
De Else if heb ik vervangen door ElseIf, anders deedt hij het niet.

nu verandert de kleur ook niet.
Volgens mij wil ik ook niet de forecolor aanpassen, maar de Shape Outline... (had ik niet gezegd).

Any further help?

Thanks,

T.

 

[TSmolders]

Got it
ff puzzelen en hebbes

ActiveSheet.Shapes("Rounded Rectangle 29").Line.ForeColor.RGB = RGB(31, 73, 125)

Thanks a lot for the help Jaccovh