picture and text wrap

[raj]

I am inserting a picture using

If Dialogs(wdDialogInsertPicture).Show = 0 The
MsgBox "Figure not selected, stopping...", , "Figure
En
End I
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExten

now i want my macro to set the advanced layout of this picture "Text wrapping"as "Top and Bottom"

Please advice how to do this.