While .ZOrderPosition > 1
.ZOrder msoSendBackward
Wend

doesnt work. word crashes...

this is what i've done.

With oShp
With .WrapFormat
.Type = wdWrapSquare
.Side = wdWrapBoth
.DistanceTop = InchesToPoints(0.1)
.DistanceBottom = InchesToPoints(0.1)
.DistanceLeft = InchesToPoints(0.1)
.DistanceRight = InchesToPoints(0.1)
End With
.LockAspectRatio = msoTrue
.Width = InchesToPoints(9)
.Height = InchesToPoints(4) ' The displayed width of the picture
.Left = InchesToPoints(0.1) - ActiveDocument.PageSetup.LeftMargin 'The distance from the left edge of the paper
.Top = InchesToPoints(2) - ActiveDocument.PageSetup.TopMargin 'The distance from the top edge of the paper
While .ZOrderPosition > 1
.ZOrder msoSendBackward
Wend
End With


lbl_Exit:
Set oShp = Nothing
Exit Sub