Farben in Kreisen ändern

[Wilfried]

Hallo:

ich habe ein Worksheet (Ampel) mit 3 Kreisen (Elipse1, Elipse2, Elipse3).
Nun möchte ich mit VBA die Farben ändern
Die  Syntax

ActiveSheet("Elipse1").Color = vbBlue

funktioniert nicht.
Hat eine(r) eine Lösung für mich?
Mein System. Windows11, MS Office2021

LG
Willytyp

[Kuwer]

Hallo,

Code:

ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = RGB(0, 0, 255)

Gruß, Uwe

[Wilfried]

Vielen Dank, klappt wunderbar