一、成例圭臬西西另类人体艺术摄影

在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西西另类人体艺术摄影