I tried many ways, but failed. Here's the code (I missed off End sub above):
Macro 1:
Public sngW As Single
Public sngH As Single
Public lngRot As Long
Public lngType As Long
Sub CopyProperties()
Dim oshp As Shape
Set oshp = ActiveWindow.Selection.ShapeRange(1)
oshp.PickUp
sngW = oshp.Width
sngH = oshp.Height
lngRot = oshp.Rotation
lngType = oshp.AutoShapeType
Exit Sub
End Sub
Converting the selected macro 1 shape's properties to another object selected:
Sub ConvertProperties()
Dim oshp As Shape
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
End Sub
Thanks in advance.