The code would be essentially that at https://www.msofficeforums.com/word/...-document.html with the addition of

before the second End With

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

thanks but how do i let de user search for a picture?

instead of a specific picture
Dim oShp As Shape
Set oShp = ActiveDocument.Shapes.AddPicture(FileName:="C:\Path\ImageName.jpg", _
SaveWithDocument:=True)

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