How to fix shape position in word document

Question

Hello,

I developped a vb program that copy some range from Excel and paste it in word document as OLE Object. 

Then, the program change postion of this shape. This is my code

 WordApp.Selection.PasteSpecial( _
     DataType:=0) ' Paste as Objet OLE.
     with myDoc.Shapes(nbrshape)
      ' .RelativeHorizontalPosition =  WordApp.wdRelativeHorizontalPosition.wdRelativeHorizontalPositionPage
      ' .RelativeVerticalPosition = WordApp.wdRelativeVerticalPosition.wdRelativeVerticalPositionPage
      .height = 510
      .width = 530
      .Top = 110      
      .Left = -30  
     End With

But I have a problem that the shape is move with the text, if I add text or empty spaces above the shape. So, I used the "RelativeVerticalPosition" but, it makes no difference.

So, How to enable shape move with the text?

Answer 1

Look like to me VBA code and not VB.net, this forum is VB.net one.

Word for Developers forum can be of a better support on this issue, maybe a moderator can help moving it there.

---

Fouad Roumieh

Answer 2

But I have a problem that the shape is move with the text, if I add text or empty spaces above the shape.

You need to get the TextFrame object for the shape from the TextFrame property, and set that object up so that the text attaches to the shape in the manner you want. 

https://msdn.microsoft.com/en-us/library/office/ff194846.aspx