ich möchte einen kleinen Scherz installieren
ich habe mit „Zeichnen“ fünf Kreise eingegeben und lasse diese auf „Knopfdruck“ (mit dem Makrorekorder aufgezeichnet) nacheinander rot ausfüllen und wieder leeren.
Ich würde die Bewegung gern weiterlaufen lassen, solange bis ich wieder auf den Knopf drücke.
Die Zeit habe ich eingefügt. Es könnte etwas schneller laufen.
Weiss jemand, wie das geht?
Vielen Dank
Ronald
ActiveSheet.Shapes("Oval 1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Application.Wait Now + TimeSerial(0, 0, 1)
ActiveSheet.Shapes("Oval 2").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
ActiveSheet.Shapes("Oval 1").Select
Selection.ShapeRange.Fill.Visible = msoFalse
Application.Wait Now + TimeSerial(0, 0, 1)
ActiveSheet.Shapes("Oval 3").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
ActiveSheet.Shapes("Oval 2").Select
Selection.ShapeRange.Fill.Visible = msoFalse
Application.Wait Now + TimeSerial(0, 0, 1)
ActiveSheet.Shapes("Oval 4").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
ActiveSheet.Shapes("Oval 3").Select
Selection.ShapeRange.Fill.Visible = msoFalse
Application.Wait Now + TimeSerial(0, 0, 1)
ActiveSheet.Shapes("Oval 5").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
ActiveSheet.Shapes("Oval 4").Select
Selection.ShapeRange.Fill.Visible = msoFalse
Application.Wait Now + TimeSerial(0, 0, 1)
ActiveSheet.Shapes("Oval 5").Select
Selection.ShapeRange.Fill.Visible = msoFalse
Application.Wait Now + TimeSerial(0, 0, 1)
End Sub