Colando e redimensionando uma captura de tela

Question

Muitas vezes faço capturas de tela de desenhos aleatórios e quero redimensioná-los usando uma macro. Eu quero que a macro cole automaticamente a captura de tela e, em seguida, redimensione-a para caber em uma altura de 5,9 polegadas e uma largura de 10 polegadas. A macro atual que estou usando funciona perfeitamente, desde que a captura de tela não seja alta (em altura), mas eu quero que ela se ajuste à largura (10) ou à altura (5,9) mais próxima, o que ocorrer primeiro. Alguma sugestão?

Kyle

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