镇平修车群

一、旧例才略

在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镇平修车群

坚执创作不易，点个“在看”救助下吧~👇👇 本站仅提供存储做事，通盘履行均由用户发布，如发现存害或侵权履行，请点击举报。

• 镇平修车群