With Dialogs(wdDialogInsertPicture)
.Display
If .Name = "" Then Exit Sub
ActiveDocument.InlineShapes.AddPicture _
FileName:=.Name, _
Range:=Selection.Range
End With
With Application.CommandBars.FindControl(ID:=6382)
SendKeys "%A%W{Enter}"
.Execute
End With