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
最后,运行这个宏,就能实现对图片大小的批量修改了。