Replace Object

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

VB Code:

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?

shape1.length = shape2.length
shape1.height = shape2.height

Is that what you mean?
Are they both in the same application?

Your post does not make sense to me.

I am not sure what the length and the height of the shape have to do with replacing the shape. And being that this is a word document I dont see what different applications would refer to.

Please clarify.

I mis understood what you needed to do, i made a sugestion based on what i thought you needed but apparently i was well wide of the mark, sorry :)

Record a macro of you doing the task and then check out the generated module code. With a little tweaking it will be useful.