My macro to replace ellipses that were converted to curves back to ellipses

Create an ellipse (oval), rotate it 15deg, convert it to curves.

I created this macro to replace the shape with an ellipse but would like to add to it. I'd like to get the angle of rotation of the shape then after the shape is replaced have it rotate it to what it was.

Could probably be streamlined too but beyond my code hacking skills.

Sub ConvertCirclesBack()
Dim sr As ShapeRange, s As Shape
Dim x#, y#, w#, h#, dOffset#
ActiveDocument.BeginCommandGroup ("Convert")
Set sr = ActiveSelectionRange
If sr.Shapes.Count < 1 Then
MsgBox "Select at least one shape"
Exit Sub
End If
Optimization = True
ActiveDocument.Unit = cdrInch
If sr.Count = 0 Then Exit Sub
For Each s In sr
s.GetBoundingBox x, y, w, h
Set s = ActiveLayer.CreateEllipse2(x + w / 2, y + h / 2, w / 2, h / 2)
s.Flip cdrFlipVertical
Next s
Optimization = False
End Sub