Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 11/1/2017
Dim strFile As String
Dim oILS As InlineShape, oShp As Shape
Dim bRotate As Boolean
  
  bRotate = False
  With Dialogs(wdDialogInsertPicture)
    .Display
    If .Name <> "" Then strFile = .Name
  End With
  If strFile <> vbNullString Then
    Set oILS = Selection.InlineShapes.AddPicture(strFile)
    With oILS
      If .Width < .Height Then
        Set oShp = .ConvertToShape
        oShp.IncrementRotation 90
        bRotate = True
      End If
    End With
    If bRotate Then Set oILS = oShp.ConvertToInlineShape
    With oILS
      .LockAspectRatio = msoTrue
      If bRotate Then
        .Width = CentimetersToPoints(4.318)
      Else
        .Height = CentimetersToPoints(4.318)
      End If
      MsgBox .Height & " " & .Width
    End With
 End If
 Set oILS = Nothing: Set oShp = Nothing
End Sub