Replace Object

[safewithyou247]

How do I replace a shape with a copy of another shape. This is the code that I have so far.

With ActiveDocument.Shapes(1)
   .Select
   Selection.InlineShapes(1).Select
   Selection.copy
   .Select
   ' Replace shape with inlineshape
End with

So I have a copy of the inline shape in the clipboard. And I have the shape that I want to replace selected. Now how do I go about replacing it?