word常见问题_3 批量修改图片大小

原创已于 2022-12-10 18:09:37 修改 · 783 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#word

于 2022-12-09 00:47:25 首次发布

word小技巧专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一种使用Word宏批量调整文档内图片尺寸的方法，通过简单的VBA代码实现图片大小的一致性，改善文档排版效果。

1 问题描述

在word中，有时会插入大量的图片，这些图片不仅大小不一致，有时还会对整个文档排版的美观性产生影响。具体而言，可能会出现word里面一页只出现了一张图片。而留有大量空白的情况。

2 解决办法

使用word中的宏来实现对文档中所有图片大小的修改。依次按以下操作创建宏命令，然后在编辑器中输入代码。

Sub SetFigureSize()
'
' SetFigureSize 宏
'
'
Dim n  '图片个数
On Error Resume Next   '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count '遍历所有图片
ActiveDocument.InlineShapes(n).Height = 9 * 28.5 '高度为9cm
ActiveDocument.InlineShapes(n).Width = 14 * 28.5 '宽度为14cm
Next n

End Sub

最后，运行这个宏，就能实现对图片大小的批量修改了。