貼上螢幕截圖並調整其大小

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