Farbe von Shape aendern
16.04.2018 20:22:53
Shape
kann mir bitte jemand bei folgendem Thema helfen?
Ich habe in einem Sheet 65 kreise welche die Farbe wechseln sollen
beim anklicken.
1x Klick >Gruen
2x Klick >Rot
der folgende code funktioniert zwar, jedoch moechte 65 mal stehen haben.
Suche nach der funktion um dem Code zu sagen, damit sich dieser quasi nach der Maus orientiert wenn dies gehen sollte.
Besten Dank schon mal.
Option Explicit
Sub Fillcolor()
ActiveSheet.Shapes.Range(Array("Point4")).Select
If Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0) Then
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 128, 0)
Else
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0)
End If
End Sub