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

只道平常

已于 2022-12-10 18:09:37 修改

阅读量639

点赞数

分类专栏： word小技巧文章标签： word

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

本文链接：https://blog.csdn.net/KnowThePast/article/details/128245768

版权

word小技巧专栏收录该内容

3 篇文章 1 订阅

订阅专栏

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

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