The following should work for you. This inserts a linked selected image. It is not clear what you want to save.
Option Explicit
Sub PIXINS()
'
' PIXINS Macro
'
'
Dim strName As String
strName = BrowseForImage("Select the image to insert")
If strName = "" Then Exit Sub
Selection.InlineShapes.AddPicture _
FileName:=strName, _
LinkToFile:=True, SaveWithDocument:=False
End Sub
Function BrowseForImage(Optional strTitle As String) As String
'Graham Mayor
'strTitle is the title of the dialog box
Dim fDialog As FileDialog
On Error GoTo err_Handler
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.Title = strTitle
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Iamge Files", "*.png,*.jpg,*.tif,*.bmp,*.gif"
.InitialFileName = Environ("USERPROFILE") & "\Pictures\"
.InitialView = msoFileDialogViewLargeIcons
If .Show <> -1 Then GoTo err_Handler:
BrowseForImage = fDialog.SelectedItems.Item(1)
End With
lbl_Exit:
Exit Function
err_Handler:
BrowseForImage = vbNullString
Resume lbl_Exit
End Function