Pictures in MSWord Aligned.

[dsrahul]

Hello my Friends ,
After a long visit to hospital with a broken ankle , I am back (although a bit limping) to work.
I searched my post & found my post was not repled,Anyway let me refresh the entire thing to you all if you could help in this.

There is an attachment with this please see & give me some insight on this.

Thank you all in advance

dsrahul.

[dsrahul]

        wrd.Documents.Open filename:=stwr, ConfirmConversions:=False, ReadOnly:= _
        False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
        "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
        Format:=wdOpenFormatAuto
    
    
    'wrd.Selection.PageSetup.Orientation = wdOrientLandscape
    'wrd.Selection.InlineShapes(1).ConvertToShape.WrapFormat.Type = wdInLine
    wrd.Selection.Range = wdRelativeHorizontalPositionMargin
    'wrd.Selection.InlineShapes(1).Align.msoAlignleft , True
    wrd.Selection.MoveDown unit:=wdLine, Count:=4
    wrd.Selection.EndKey unit:=wdLine, Extend:=wdExtend
    wrd.Selection.InlineShapes.AddPicture filename:=MyDir + savt, LinkToFile:=False, SaveWithDocument:=True
    wrd.Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend
    wrd.Selection.InlineShapes(1).LockAspectRatio = msoTrue
    wrd.Selection.InlineShapes(1).Height = 142
    wrd.Selection.InlineShapes(1).Width = 142
    wrd.Selection.MoveRight unit:=wdCharacter, Count:=1
    wrd.Selection.MoveDown unit:=wdLine, Count:=1
    wrd.Selection.EndKey unit:=wdLine, Extend:=wdExtend
    wrd.Selection.InlineShapes.AddPicture filename:=MyDir + savu, LinkToFile:=False, SaveWithDocument:=True
    wrd.Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend
    wrd.Selection.InlineShapes(1).LockAspectRatio = msoTrue
    wrd.Selection.InlineShapes(1).Height = 142
    wrd.Selection.InlineShapes(1).Width = 142
    wrd.Selection.InlineShapes(1).ConvertToShape.WrapFormat.Type = wdInLine
    wrd.Selection.MoveRight unit:=wdCharacter, Count:=1
    wrd.Selection.MoveDown unit:=wdLine, Count:=1
    wrd.Selection.EndKey unit:=wdLine, Extend:=wdExtend
    wrd.Selection.InlineShapes.AddPicture filename:=MyDir + savv, LinkToFile:=False, SaveWithDocument:=True
    wrd.Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend
    wrd.Selection.InlineShapes(1).LockAspectRatio = msoTrue
    wrd.Selection.InlineShapes(1).Height = 142
    wrd.Selection.InlineShapes(1).Width = 142
    wrd.Selection.InlineShapes(1).ConvertToShape.WrapFormat.Type = wdInLine
    wrd.Selection.MoveRight unit:=wdCharacter, Count:=1
    wrd.Selection.MoveDown unit:=wdLine, Count:=1
    wrd.Selection.EndKey unit:=wdLine, Extend:=wdExtend
    wrd.Selection.InlineShapes.AddPicture filename:=MyDir + savw, LinkToFile:=False, SaveWithDocument:=True
    wrd.Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend
    wrd.Selection.InlineShapes(1).LockAspectRatio = msoTrue
    wrd.Selection.InlineShapes(1).Height = 142
    wrd.Selection.InlineShapes(1).Width = 142
    'wrd.Selection.InlineShapes(1).ConvertToShape.WrapFormat = wdInLine
    wrd.Selection.MoveRight unit:=wdCharacter, Count:=1
    wrd.Selection.EndKey unit:=wdStory
    If KD = 4 Then GoTo 29
    If KD > 4 Then GoTo 28

This is the code I failed several times but could not do it. now please focus some light.

[HanneSThEGreaT]

You keep referring to a certain post somewhere on his forum, post the link to that post here, to give us more insight into what exactly you are struggling with. Posting code, and a "How to" attachment make people think twice in helping...

[dsrahul]

Hannes

Buddy ,Sorry I did not get you ,What you said in the post.
I attached the file about what the output would be.
I did not understand posting link etc.Please clarify.

Thanks once gain
Rahul

[HanneSThEGreaT]

Where is this thread :

I searched my post & found my post was not repled

¿

[dsrahul]

http://www.codeguru.com/forum/showth...and+vertically
Was not what I expected, anyway please try the new one.