Shapes Linie mit Klick Farbwechsel
24.09.2017 10:05:36
Dieter(Drummer)
dieses Makro, in Modul1, ändert die Shapeslinie rot in grün.
Wie muss das Makro sein, wenn die Shapeslinie mit 1. Klick rot und 2. Klick grün werden soll. Nach 1. Klick kommt "Mein Makro 1" und nach 2. Klick kommt "Mein Makro 2".
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Musterdatei: https://www.herber.de/bbs/user/116469.xlsm
Sub Linien_Farbwechsel()
ActiveSheet.Shapes.Range(Array("MultiPli2")).Select
With Selection.ShapeRange.Line
.ForeColor.RGB = RGB(255, 0, 0)
End With
MsgBox ("Linie rot") ' Hier mein Makro1
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 128, 0)
End With
MsgBox ("Linie wird grün") ' Hier mein Makro2
Range("A2").Select
End Sub