Option Explicit

Sub AutoOpen()
 Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="ShapeDrehen"
End Sub

Sub ShapeDrehen()
 Dim oSH As Shape

' Als Check ob das Makro durchlaufen wird
 Beep

' Shape drehen
 Set oSH = ActiveDocument.Shapes(1)
 oSH.IncrementRotation 10

' Nächste Drehung vorbereiten
 Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="ShapeDrehen"
End Sub