一次性缩放word全部图片为100%

经常从网上保存文章，主要是保存到OneNote里，但很多时候图片保存很拉跨，就通过word中转一下。

直接从word复制粘贴到OneNote里，图片不是100%尺寸，小图还好，大图就成了30%不是原图片了，每次都要一个个图片去调整大小，真恶心人。

搜了下解决方法，多是固定图片宽高为多少多少CM，，要你何用。。。

就找deepseek给我写了个

Sub 批量图片大小()
   Dim iSha As InlineShape
    For Each iSha In ActiveDocument.InlineShapes
        If iSha.Type = wdInlineShapePicture Then
            ' 重置图片为原始大小(100%缩放)
            iSha.Reset
            ' 或者使用缩放比例属性设置为100%
           ' iSha.ScaleWidth = 100
            ' iSha.ScaleHeight = 100
       End If
    NextEnd Sub

经过实际使用，在Office LTSC 2021上，iSha.Reset不好用，iSha.ScaleWidth = 100，iSha.ScaleHeight = 100缩放有效。

deepseek给的建议

使用说明

• 这个宏会遍历文档中的所有嵌入式图片
• 使用.Reset方法将每张图片恢复为原始大小(100%缩放)
• 替代方案是使用缩放比例属性设置为100%

注意事项

• 使用.Reset方法会同时移除对图片的所有裁剪和调整
• 如果只想调整大小而不重置其他修改，可以使用注释掉的缩放比例方法
• 运行前建议保存文档副本，以防需要撤销更改

使用方法

• 按Alt+F11打开VBA编辑器
• 插入新模块并粘贴上述代码
• 返回Word文档，按Alt+F8打开宏对话框
• 选择"批量图片大小"宏并运行

此宏会将所有嵌入式图片恢复为其原始尺寸，实现100%缩放效果。