Sub InsertPic()
Dim fDialog As FileDialog
Dim strFile As String
Dim oImage As InlineShape
    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
    With fDialog
        .Title = "Select image to insert"
        .InitialFileName = "C:\Users\atom\Desktop\PDF\"
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Images", "*.jpg,*.png,*.gif"
        .InitialView = msoFileDialogViewList
        If .Show <> -1 Then GoTo err_Handler:
    End With
    strFile = fDialog.SelectedItems.Item(1)
    Set oImage = Selection.InlineShapes.AddPicture(strFile)
    With oImage
        .LockAspectRatio = msoTrue
        .ScaleHeight = 50
        .ScaleWidth = 50
        .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
        .ConvertToShape
    End With
lbl_exit:
    Set fDialog = Nothing
    Set oImage = Nothing
    Application.WindowState = wdWindowStateNormal
    '    Documents.Add DocumentType:=wdNewBlankDocument
    '    ShowVisualBasicEditor = True
    Exit Sub
err_Handler:
    Err.Clear
    GoTo lbl_exit
End Sub

Sub InsertPic()
Dim strFile As String, iShp As InlineShape, Shp As Shape, Rng As Range
On Error Resume Next
With Dialogs(wdDialogInsertPicture)
  .Display
  If .Name <> "" Then
    strFile = .Name
  Else
    Exit Sub
  End If
End With
Set Rng = Selection.Range: Rng.Collapse wdCollapseEnd
Set iShp = ActiveDocument.InlineShapes.AddPicture(strFile, False, True, Rng)
Set Shp = iShp.ConvertToShape
With Shp
  .LockAnchor = True
  .LockAspectRatio = msoTrue
  .Height = .Height / 2
  .RelativeVerticalPosition = wdRelativeVerticalPositionLine
  .Top = 0
  .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
  .Left = wdShapeCenter
End With
Set Rng = Nothing: Set iShp = Nothing: Set Shp = Nothing
End Sub

  .Display
  If .Name <> "" Then