Grafik bewegen
29.03.2006 13:15:18
Andreas
Ich möchte eine Autoform per Vba langsam rotieren und verschieben lassen.
Eine Einfache rotation und verschiebung kriege Ich hin aber Ich möchte eine fließende bewegung.
Meine ansätze sind Wait oder eine For I Schleife bin aber gescheitert,
villeicht kann mir jemand weiterhelfen.
Mein bisheriger Code:
Sub drehen()
Dim x
For x = 1 To 4
ActiveSheet.Shapes("Group 6").Select
Selection.ShapeRange.IncrementRotation 32.64
Selection.ShapeRange.IncrementLeft 10
Next x
End Sub