嘿，我来帮你搞定这个问题！你的基础代码已经完成了创建Word文档和粘贴截图的核心操作，接下来只需要在粘贴后对图片对象做尺寸调整就行。这里有几个实用的方案，你可以根据需求选：

方案1：按比例缩小（保持图片不变形） #

这是最常用的方式，锁定图片的宽高比，避免拉伸变形，适合统一调整所有截图的大小：

Sub Testing()
    Dim wrd As Word.Application
    Dim wrdDoc As Word.Document
    Dim targetImg As Word.InlineShape ' 用InlineShape处理嵌入型图片
    
    Set wrd = New Word.Application
    Set wrdDoc = wrd.Documents.Add
    
    With wrd
        .Visible = True
        .Activate
    End With
    
    Call PrintScreen
    wrd.Selection.Paste
    
    ' 定位到刚粘贴的最后一张图片
    Set targetImg = wrdDoc.InlineShapes(wrdDoc.InlineShapes.Count)
    With targetImg
        .LockAspectRatio = msoTrue ' 锁定纵横比，防止变形
        .Width = InchesToPoints(4) ' 设置宽度为4英寸，高度会自动按比例适配
        ' 要是想以高度为基准，也可以改成 .Height = InchesToPoints(3)
    End With
End Sub

方案2：强制固定尺寸（允许变形） #

如果你需要让图片严格符合某个固定尺寸（比如统一的缩略图大小），可以关闭纵横比锁定：

' 替换上面的With targetImg部分
With targetImg
    .LockAspectRatio = msoFalse ' 关闭纵横比锁定
    .Width = InchesToPoints(3.5)
    .Height = InchesToPoints(2.5)
End With

方案3：调整环绕方式，让图片紧密排列 #

如果想在单页塞更多图片，还可以把图片改成“紧密环绕”或“浮于文字上方”的布局，这样能灵活排列多个图片：

' 先把嵌入型图片转换成可自由移动的Shape对象
Dim targetShp As Word.Shape
Set targetShp = targetImg.ConvertToShape

With targetShp
    .WrapFormat.Type = wdWrapTight ' 设置紧密环绕布局
    .Left = InchesToPoints(0.5) ' 调整左边距
    .Top = InchesToPoints(0.5) ' 调整上边距
    .LockAspectRatio = msoTrue
    .Width = InchesToPoints(4)
End With

小提醒： #

• InchesToPoints是Word的内置函数，能把英寸转换成Word的标准单位（磅），方便你对照页面尺寸调整（比如A4页面宽度约8.27英寸，去掉边距后大概7英寸，所以设置4英寸宽度的话，一行能放1张，3.5英寸就能放2张）。
• 如果要批量处理多张截图，可以用循环遍历wrdDoc.InlineShapes或wrdDoc.Shapes集合。

这样修改后，你粘贴的截图就会自动调整到合适大小，单页就能容纳更多内容啦！

内容的提问来源于stack exchange，提问作者John Louie Gonzales