一、惯例作为

在Word文档中思要快速的结伴图片大小，最常见的作为即是F4键，具体操作如下动图，咱们需要先点击1个图片，然后点击鼠标右键找到属性，不要勾选【锁定纵横比】之后栽培长度和宽度

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

这个作为数目少了还行，数目多了，键盘皆得按包浆了，这个时间就要请出DeepSeek了

图片

二、代码编写

向DeepSeek盘问：

如安在Word文档中，使用vba代码将通盘图片大小皆修改为宽6cm高4cm

稍等下就会给出如下的代码，这个代码只需修改4处，用于栽培图片的高度与宽度，6是长度，4是宽度，左证我方的需要来栽培即可

Width = 6 * 28.35

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

坚捏创作不易，点个“在看”撑捏下吧~👇👇 本站仅提供存储职业，通盘本色均由用户发布，如发现存害或侵权本色，请点击举报。