一、常规方法

在Word文档中想要快速的统一图片大小，常见的方法就是F4键，具体操作如下动图，我们需要先点击1个图片，然后点击鼠标右键找到属，不要勾选【锁定纵横比】之后设置长度和宽度

设置好一个之后，选中其他的图片，按下F4键，来一个一个的设置。

这个方法数量少了还行，数量多了，键盘都得按包浆了，这个时候就要请出DeepSeek了

图片

二、代码编写

向DeepSeek询问：

如何在Word文档中，使用vba代码将所有图片大小都修改为宽6cm高4cm

稍等下就会给出如下的代码，这个代码只需修改4处，用于设置图片的高度与宽度，6是长度，4是宽度，根据自己的需要来设置即可

Width = 6 * 28.35

天眼查资料显示，山东美生热能科技有限公司，成立于2016年，铝皮保温位于淄博市，是一家以从事黑色金属冶炼和压延加工业为主的企业。企业注册资本10742万人民币。通过天眼查大数据分析，山东美生热能科技有限公司参与招投标项目100次，财产线索方面有商标信息3条，利信息40条，此外企业还拥有行政许可11个。

Height = 4 * 28.35

Sub SetPicSizeTo6x4()    Dim n As Integer    '处理嵌入型图片(InlineShapes)    For n = 1 To ActiveDocument.InlineShapes.Count        With ActiveDocument.InlineShapes(n)            .LockAspectRatio = False  '解除纵横比锁定‌:ml-citation{ref="1,5" data="citationList"}            .Width = 6 * 28.35        '6cm转换为磅(1cm=28.35磅)‌:ml-citation{ref="1,8" data="citationList"}            .Height = 4 * 28.35       '4cm转换为磅‌:ml-citation{ref="1,8" data="citationList"}        End With    Next n    '处理浮动型图片(Shapes)    For n = 1 To ActiveDocument.Shapes.Count        With ActiveDocument.Shapes(n)            .LockAspectRatio = False  '‌:ml-citation{ref="5,8" data="citationList"}            .Width = 6 * 28.35            .Height = 4 * 28.35        End With    Next nEnd Sub

三、代码粘贴

只需打开Word文件，然后点击【开发工具】找到【VisualBasic】在窗口的左侧点击空白区域，之后点击鼠标右键找到【插入】选择【模块】将代码粘贴到右侧，后按下F5键来运行这个VBA代码，即可实现批量的修改图片大小。

图片

至此设置完毕，Word的VBA代码一般都比较简单，DeepSeek来写代码正确率都是比较高的，大家可以试一下，之前一些重复的工作都可以编写为代码，一劳永逸！

四、参考视频

图片

END