スクリーンショットの貼り付けとサイズ変更

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