InLineShapes

[Bo Hansson]

I'm new to InLineShapes - and have problems!

How do I position an InLineShape?

I'm filling a table with text and sometimes I would like to add an
InlineShape after the text.
But it always appear in front of the text!

My code is like this:

With myRange
'Moving to the right cell and then

.Expand Unit:=wdCell
.InsertAfter "Some text"
If <Condition> Then
InlineShapes.AddPicture FileName:= "path to picture"
End If
End With

 

[Word Heretic]

G'day "Bo Hansson" <[email protected]>,

The add method takes a range parm to position the picture. You aren't
providing this parm, so it is defaulting to wherever the selection is.
Collapse your myrange to its end, and then use it for the range parm.


Steve Hudson - Word Heretic

steve from wordheretic.com (Email replies require payment)
Without prejudice


Bo Hansson reckoned:

 

[hubaishan]

you can Add this to your code
If <Condition> Then
set MyShp =InlineShapes.AddPicture(FileName:= "path to picture")
MyShp.range.position="Your vertical position number here"
End If

 

[Brenda]

I have this right now:

Me.Application.Selection.InlineShapes.AddPicture("C:\Documents and
Settings\blowe\My Documents\Visual Studio
2005\Projects\WordDocumentVB\wordObjectDiagram.gif")

How can I use .InsertAfter with that?