Sub ChoisePicture()
  Dim fd As FileDialog

  Set fd = Application.FileDialog(msoFileDialogFilePicker)
  With fd
    .Filters.Add "Images", "*.gif; *.jpg; *.jpeg"
    .FilterIndex = 2
    .AllowMultiSelect = False
    If .Show = -1 Then
      Call AddPictures(.SelectedItems(1))
    End If
  End With
End Sub

Sub AddPictures(Filename As String)
  Dim iShp As InlineShape
  Dim sHWRatio As Single

  With Application.ActiveDocument
    If .InlineShapes.Count = 0 Then
      .InlineShapes.AddOLEControl ClassType:="Forms.Image.1"
    End If
    .InlineShapes(1).Select
    Selection.InlineShapes.AddPicture Filename:=Filename, LinkToFile:=False, SaveWithDocument:=True

    With .InlineShapes(1)
      If .Type = wdInlineShapeLinkedPicture Or .Type = wdInlineShapePicture Then
        sHWRatio = .Height / .Width
        .Width = CentimetersToPoints(8.84)
        .Height = .Width * sHWRatio
      End If
    End With
  End With
End Sub