Pegar y cambiar el tamaño de una captura de pantalla

Question

A menudo tomo capturas de pantalla de dibujos aleatorios y quiero cambiar su tamaño usando una macro. Quiero que la macro pegue automáticamente la captura de pantalla y luego cambie su tamaño para que se ajuste a una altura de 5,9 pulgadas y un ancho de 10 pulgadas. La macro actual que estoy usando funciona perfectamente siempre y cuando la captura de pantalla no sea demasiado alta (en altura), pero quiero que se ajuste al ancho (10) o alto (5,9) más cercano, lo que ocurra primero. ¿Alguna sugerencia?

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