[ad_1]
I need to insert one or more picture inside an existing word file from VB.net.
I’m able to insert them at the end of the word file but not moving.
Is there a way to place them directly after my text or move them after placed ?
That’s what I have done:
Dim inline_shape As Word.InlineShape
Dim shape As Word.Shape
oPara = aDoc.Content.Paragraphs.Add
oPara.Range.Text = "Picture"
oRng = oPara.Range
inline_shape = oRng.InlineShapes.AddPicture(MyFile)
shape = inline_shape.ConvertToShape()
shape.LockAspectRatio = Microsoft.Office.Core.MsoTriState.msoTrue
shape.Height = shape.Height / 2
shape.WrapFormat.Type = Word.WdWrapType.wdWrapTopBottom
[ad_2]