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

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