Ellipse Klick und Doppelklick Ereignis
dieter(drummer)
Mit einfachem Klick wird Ellipse11 zweifarbig, grün/weiss, gefärbt und das kunktioniert:
Anbei Testdatei:http: //www.herber.de/bbs/user/66228.xls
Sub JaEllipse11_BeiKlick()
'Elli11 auf grün
ActiveSheet.Shapes("Oval 11").Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 1#
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.ShapeRange.Fill.BackColor.SchemeColor = 9
Selection.ShapeRange.Fill.TwoColorGradient msoGradientFromCenter, 2
'Haken grün setzen
Range("B8").FormulaR1C1 = " ü"
Range("C8").Select
End Sub
Nun soll MIT DOPPELKLICK dieselbe Ellipse11 zweifarbig, rot/weiss, gefärbt werden. Ich kriegs nicht hin, dass dieselbe Ellipse11 auch auf Doppelklick reagiert. Ist das überhaupt möglich? Und wie?
Mit Dank für evtl. Hilfe.
Gruss dieter(drummer)