Verknüpfung Kreisform mit Code

Hallo!

Ich habe in meiner Präsentation eine Ampel. Das ist ein graues
Rechteck mit drei weißen Kreisen drin. Die Formen sind alle einzeln.

Dazu habe ich folgenden Code, der die einzelnen Kreise beim Anklicken in den Farben rot, gelb und grün färben soll:

Sub Rot_an()
ActiveDocument.Shapes(2).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid Selection.Collapse
'
Gelb_aus
Gruen_aus
End Sub
'
Sub Rot_aus()
ActiveDocument.Shapes(2).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(102, 102, 153)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid Selection.Collapse
End Sub
'~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~
Sub Gelb_an()
ActiveDocument.Shapes(3).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 0)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid Selection.Collapse
'
Rot_aus
Gruen_aus
End Sub
'
Sub Gelb_aus()
ActiveDocument.Shapes(3).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(102, 102, 153)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid Selection.Collapse
End Sub
'~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~
Sub Gruen_an()
ActiveDocument.Shapes(4).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 255, 0)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid Selection.Collapse
'
Gelb_aus
Rot_aus
End Sub
'
Sub Gruen_aus()
ActiveDocument.Shapes(4).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(102, 102, 153)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.Collapse
End Sub
'
Sub Achtung()
ActiveDocument.Shapes(2).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
'
ActiveDocument.Shapes(3).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 0)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
'
ActiveDocument.Shapes(4).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(102, 102, 153)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.Collapse
End Sub

FRAGE:

Weiß jemand, wie ich jetzt die einzelnen Kreise mit den dazugehörigen Codes verbinden kann, damit meine Ampel funktioniert? ( vorausgesetzt mein Code stimmt ).

Danke euch.