Thema Datum  Von Nutzer Rating
Antwort
Rot Ampel in Word
26.04.2021 10:19:03 Silke
NotSolved

Ansicht des Beitrags:
Von:
Silke
Datum:
26.04.2021 10:19:03
Views:
68
Rating: Antwort:
  Ja
Thema:
Ampel in Word

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Ampel in Word
26.04.2021 10:19:03 Silke
NotSolved