批量更改word中图片大小为固定尺寸

最新推荐文章于 2024-03-20 10:00:00 发布

wamg潇潇

最新推荐文章于 2024-03-20 10:00:00 发布

阅读量8.8k

点赞数 2

分类专栏：其它技巧

其它技巧专栏收录该内容

14 篇文章

订阅专栏

介绍了在Word中批量修改图片大小的方法。在开发工具中创建名为setpicsize的宏，进入编辑器输入代码，指定Height和Weight值，保存关闭后，在含大量需改尺寸图片的Word文件里，通过开发工具的宏运行setpicsize即可。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在【开发工具】中创建名为setpicsize的宏，进入编辑器后输入以下代码：

  Dim i
    Dim Height, Weight
    Height = 300
    Weight = 200
    
    On Error Resume Next '忽略错误
    For i = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
            ActiveDocument.InlineShapes(i).Height = Height '设置图片高度为 Height_px
            ActiveDocument.InlineShapes(i).Width = Weight '设置图片宽度 Weight_px
    Next i

    For i = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
            ActiveDocument.Shapes(i).Height = Height '设置图片高度为 Height_px
            ActiveDocument.Shapes(i).Width = Weight '设置图片宽度 Weight_px
    Next i
End Sub

其中 Height 和 Weight的值自行指定，保存并关闭后，在含有大量要修改尺寸的图片的word文件中，点击上方的【开发工具】----> 【宏】——> 【setpicsize】——>【运行】即可

参考word中批量修改图片大小的两个方法