InLineShapes

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Bo Hansson - 21 Dec 2005 21:24 GMT

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

Reply to this Message

Word Heretic - 21 Dec 2005 23:33 GMT

G'day "Bo Hansson" <bo1.hansson@telia.com>,

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:

>I'm new to InLineShapes - and have problems!
>
[quoted text clipped - 15 lines]
> End If
>End With

Reply to this Message

hubaishan - 27 Dec 2005 21:31 GMT

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

Signature

Saeed Omer Hubaishan
YEMEN

> G'day "Bo Hansson" <bo1.hansson@telia.com>,
>
[quoted text clipped - 28 lines]
> > End If
> >End With

Reply to this Message

Brenda - 09 Feb 2006 21:43 GMT

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?

Signature

Brenda

> you can Add this to your code
> If <Condition> Then
[quoted text clipped - 35 lines]
> > > End If
> > >End With

Reply to this Message