DeepSeek与Word文档才是绝配，批量修改图片大小，实在太秒了！

摘要：之前跟大家分享很多DeepSeek与Excel的使用方法，最近我发现DeepSeek与Word才是绝配，能够解决很多重复且繁琐的工作，主要还是通过VBA代码来实现，我们来看下今天的案例，批量修改图片大小。

之前跟大家分享很多DeepSeek与Excel的使用方法，最近我发现DeepSeek与Word才是绝配，能够解决很多重复且繁琐的工作，主要还是通过VBA代码来实现，我们来看下今天的案例，批量修改图片大小。

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

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

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

向DeepSeek询问：

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

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

Width = 6 * 28.35

Height = 4 * 28.35

Sub SetPicSizeTo6x4Dim n As Integer'处理嵌入型图片(InlineShapes)For n = 1 To ActiveDocument.InlineShapes.CountWith 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 WithNext n'处理浮动型图片(Shapes)For n = 1 To ActiveDocument.Shapes.CountWith ActiveDocument.Shapes(n).LockAspectRatio = False ':ml-citation{ref="5,8" data="citationList"}.Width = 6 * 28.35.Height = 4 * 28.35End WithNext nEnd Sub

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