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)