Hallo Zusammen,

ich habe in einem Worddokument eine Ampelschaltung eingefügt, in dem ich 2 Makros "AmpelEinfügen" und "AmelSchalten" eingefügt habe.

Ich möchte in dem Dokument aber mehrere Ameln einfügen und diese jeweils durch einen eigenen CommandButton ansteuern. Hierzu habe ich die Makros Kopiert und in 01, 02, ... umbenannt. Leider führt das nicht zum gewünschten Ergebnis. Kann mir jemand hierbei behilflich sein und sagen, was ich zu tun und zu beachten habe?

Anbei der Code:

Sub AmpelEinfuegen()

Dim shp As Word.Shape

    Set shp = ActiveDocument.Shapes.AddShape(Type:=msoShapeOval, _
        Left:=20#, Top:=20#, Width:=20#, Height:=20#, _
        Anchor:=ActiveDocument.Range(Start:=Selection.Start, _
        End:=Selection.End))
    With shp
        .Fill.ForeColor = wdColorRed
        .Name = "Rot"
    End With
    Set shp = ActiveDocument.Shapes.AddShape(Type:=msoShapeOval, _
        Left:=40#, Top:=20#, Width:=20#, Height:=20#, _
        Anchor:=ActiveDocument.Range(Start:=Selection.Start, _
        End:=Selection.End))
    With shp
        .Fill.ForeColor = wdColorYellow
        .Name = "Gelb"
    End With
    Set shp = ActiveDocument.Shapes.AddShape(Type:=msoShapeOval, _
        Left:=60#, Top:=20#, Width:=20#, Height:=20#, _
        Anchor:=ActiveDocument.Range(Start:=Selection.Start, _
        End:=Selection.End))
    With shp
        .Fill.ForeColor = wdColorBrightGreen
        .Name = "Gruen"
    End With

End Sub
 

Sub AmpelSchalten()

 With ActiveDocument.Shapes
        Debug.Print .Item("Rot").Visible
        If .Item("Rot").Fill.Transparency = 0 And _
                .Item("Gelb").Fill.Transparency = 0 And _
                .Item("Gruen").Fill.Transparency = 0 Then
            .Item("Gelb").Fill.Transparency = 1
            .Item("Gruen").Fill.Transparency = 1
        ElseIf .Item("Rot").Fill.Transparency = 0 And _
                .Item("Gelb").Fill.Transparency = 1 And _
                .Item("Gruen").Fill.Transparency = 1 Then
            .Item("Rot").Fill.Transparency = 1
            .Item("Gelb").Fill.Transparency = 0
        ElseIf .Item("Rot").Fill.Transparency = 1 And _
                .Item("Gelb").Fill.Transparency = 0 And _
                .Item("Gruen").Fill.Transparency = 1 Then
            .Item("Gelb").Fill.Transparency = 1
            .Item("Gruen").Fill.Transparency = 0
        ElseIf .Item("Rot").Fill.Transparency = 1 And _
                .Item("Gelb").Fill.Transparency = 1 And _
                .Item("Gruen").Fill.Transparency = 0 Then
            .Item("Gruen").Fill.Transparency = 1
            .Item("Rot").Fill.Transparency = 0
        End If
    End With
End Sub

1000 Dank im Voraus