Shape zeitverzögert Gesamtdrehung
31.10.2017 11:38:51
Dieter(Drummer)
Sorry, da schon wieder in Sachen "Grafik" drehen, aber mich interessiert es, wie es funktioniert.
Die Grupierung "Pfeile4" soll sich um 45 Grad rechts drehen, aber die gesamze Drehung soll nach einem Klick zeitverzögert geschehen.
Dieses Makro ist aus Herbers Forum und ich habe die DIM Anweisungen selbst erstellt und sie sind sicher falsch. Nach dem Klick auf Button (grau), dreht sich die Grafik nicht.
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Hier meine Musterdatei und der Code: https://www.herber.de/bbs/user/117322.xlsm
'Herber: von Werner Oertli am 29.03.2006
'Verzögertes, gesamtes Drehen
Sub Drehen()
Dim x As Integer 'Mx
Dim i As Integer 'Mx
Dim newHour As Integer 'Mx
Dim newMinute As Integer 'Mx
Dim newSecond As Integer 'Mx
Dim waitTime As Integer 'Mx
ActiveSheet.Shapes("Pfeile4").Select
x = 0
For i = 1 To 1 '20
x = x + 45
Selection.ShapeRange.IncrementRotation x
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Next i
End Sub