Here's a starting point for you to work on:
Dim sngW As Single
Dim sngH As Single
Dim lngRot As Long
Dim lngType As Long
Sub PickUpFormat()
Dim oshp As Shape
On Error GoTo err:
Set oshp = ActiveWindow.Selection.ShapeRange(1)
oshp.PickUp
sngW = oshp.Width
sngH = oshp.Height
lngRot = oshp.Rotation
lngType = oshp.AutoShapeType
Exit Sub
err:
MsgBox "Select Shape"
End Sub
Sub Apply_Format()
Dim oshp As Shape
On Error GoTo err:
For Each oshp In ActiveWindow.Selection.ShapeRange
oshp.AutoShapeType = lngType
oshp.Apply
oshp.LockAspectRatio = False
oshp.Width = sngW
oshp.Height = sngH
oshp.Rotation = lngRot
Next oshp
Exit Sub
err:
MsgBox "ERROR"
End Sub