word中图片如何统一大小.docx
文本预览下载声明
操作步骤如下:
打开要统一图片大小的 Word文档,点击“工具” - “宏” - “Visual Biscal
编辑器。
2)插入 normal 工程“模块”。
3)在“模块”中粘贴下面的代码。
Sub batchResizeShape()
Dim doc As Document
Dim i As Integer
Set doc = ActiveDocument
For i = 1 To
(i).ScaleHeight , msoFalse, msoScaleFromMiddle
(i).ScaleWidth , msoFalse, msoScaleFromMiddle
(i).Height =
(i).Width =
Next i
End Sub
4)保存,返回你要统一图片大小的 Word文档。运行“工具” - “宏” - 宏命令 。
看一下结果,是不是你想要的统一图片大小。
我用的两张图一个大一个小, 统一后 400*300 还是很大, 放在两个页面上, 上面
是 25%的缩略图,至此实现了统一大小的目标,如果你想要其它的大小,只需按代码里的说明更改一下长宽数值即可。
显示全部