VBA or VBS position image

[GrimR]

Think this is VBA /VBSCRIPT question

code is from Outlook email script


How can I position this image

objShape = objSelection.InlineShapes.AddPicture ("

http://www./images/assets/logotagline.gif

")
objSelection.TypeParagraph()

MCITP:EA/SA, MCSE, MCSA, MCDBA, MCTS, MCP+I, MCP

 

[PHV]

Did you try to use the 4th parameter of the AddPicture method ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[SkipVought]

hi,

Change from InlineShapes to Shapes, as InLine is, well, er, up... in line with the text and cannot be otherwised positioned.

You may need to change other properties that affect text flow.

objShape = objSelection.Shapes.AddPicture("[URL unfurl="true"]http://www./images/assets/logotagline.gif[/URL] ")

With objShape
    .Top = 10
    .Left = 20
End With

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[GrimR]

SkipVought
Change from InlineShapes to Shapes, as InLine is, well, er, up... in line with the text and cannot be otherwised positioned.

thanks didnt know that, no wonder I've being struggling

picture disappears when I try your method.

If i change from InlineShapes to Shapes nothing gets imported

I was thinking of something along these lines, I think the (1) I need to change to 2 as it is the second image, not sure if I'm on the right track here.
Set objShape = objSelection.InlineShapes(1).ConvertToShape


PHV (MIS)
Did you try to use the 4th parameter of the AddPicture method ?
I looked at MSDN but not sure what you mean, I must be looking in the wrong place

MCITP:EA/SA, MCSE, MCSA, MCDBA, MCTS, MCP+I, MCP

 

[PHV]

I meant the Range named parameter.

http://msdn.microsoft.com/en-us/library/office/ff822636.aspx

But, if you know exactly where to place the picture, then you may use the ActiveDocument.Shapes.AddPicture method.

http://msdn.microsoft.com/en-us/library/office/aa171535(v=office.11).aspx

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[GrimR]

I read those earlies do not see anything about justify in there.

Is it possable to justify using Inlineshape

I tried this and worked, imported and resized the image

strFilePath = "

http://www./images/assets/networkawardemail.gif

"
Set objInlineShape = objWord.Selection.InlineShapes.AddPicture(strFilePath)
objInlineShape.ScaleWidth = 200
objInlineShape.ScaleHeight = 200

Now I just need to position it

something like this

strFilePath = "

http://www.gt.co.za/images/assets/networkawardemail.gif

"
Set objInlineShape = objWord.Selection.InlineShapes.AddPicture(strFilePath)
objInlineShape.ScaleWidth = 150
objInlineShape.ScaleHeight = 100
objInlineShape.Top = 200
objInlineShape.Left = 200

MCITP:EA/SA, MCSE, MCSA, MCDBA, MCTS, MCP+I, MCP

 

[GrimR]

Please help last bit

This works so far, see end of code for what I am trying to do.

'Insert first image
objSelection.InlineShapes.AddPicture(strLogo) 
objSelection.TypeParagraph()

'Insert second image and Resize the Logo to what size you want
strFilePath = strLogo1
Set objInlineShape = objWord.Selection.InlineShapes.AddPicture(strFilePath)
objInlineShape.ScaleWidth = 65
objInlineShape.ScaleHeight = 60

'Set the indent of the logo
With objInlineShape.Range.ParagraphFormat
.LeftIndent = 30
End With

objSelection.TypeParagraph()
[b]What I need is it to stop the indent and align this next bunch of text left again[/b]

MCITP:EA/SA, MCSE, MCSA, MCDBA, MCTS, MCP+I, MCP