Objekt drehen Markierung wieder in Mittelpunkt

[koter]

hallo Günther,

...deswegen meine Frage zu einem shortcut...

Du könntest einen Shortcut auf ein Makro legen:

Code:

Sub DrehpunktAufMitte()
   If ActiveSelectionRange.Count = 1 Then
       ActiveShape.RotationCenterX = ActiveShape.CenterX
       ActiveShape.RotationCenterY = ActiveShape.CenterY
   End If
End Sub

Du kannst auch im Andockfenster „Änderungen“ den Objektursprung wieder auf die Mitte legen.

Gruß

Koter