Вставка и изменение размера скриншота

Question

Я часто делаю скриншоты случайных рисунков и хочу изменить их размер с помощью макроса. Я хочу, чтобы макрос автоматически вставлял скриншот, а затем изменял его размер, чтобы он соответствовал высоте 5,9 дюймов и ширине 10 дюймов. Текущий макрос, который я использую, работает отлично, пока скриншот не слишком высокий (по высоте), но я хочу, чтобы он подстраивался под ближайшую ширину (10) или высоту (5,9), в зависимости от того, что наступит раньше. Есть предложения?

Кайл

Sub Resize()

  If ActiveDocument.Shapes.Count = 3 Then
    ActiveDocument.Shapes(3).Select
    Selection.shapeRange.Delete
  End If
  Application.ScreenUpdating = False
  Selection.Paste
  If ActiveDocument.InlineShapes.Count = 1 Then
    ActiveDocument.InlineShapes(1).ConvertToShape
  End If
  If ActiveDocument.Shapes.Count = 3 Then
    With ActiveDocument.Shapes(3)
      .WrapFormat.Type = wdWrapFront
      .LockAspectRatio = msoTrue
      .Height = InchesToPoints(5.9)
     ' .Width = InchesToPoints(10)

      .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
     .RelativeVerticalPosition = wdRelativeVerticalPositionPage
      .Top = InchesToPoints(0.8) 
      .Left = wdShapeCenter 
    End With
  End If
  Application.ScreenUpdating = True
End Sub