Verknüpfung Kreisform mit Code

Computer: Software & Programmierung Office Software
1

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.

2

Vielleicht klärst Du erst einmal auf für welche Anwendung dieser Code gedacht ist. Sieht nach einem reinen Phantasieprodukt aus, ich wüst jetzt nicht wo dieser Code was bewirken soll?

Gruß HW

3

Mit Alt+F11 kommst du in den Editor. Danach musst du glaube ich (Habe noch nie mit VBA gearbeitet) dem Objekt ein Makro zuweisen.
Außerdem heißt es in PowerPoint nicht ActiveDocument, sondern ActivePresentation :wink:

mfg, Andre