正文

word 文档 一次性设置多张图片大小

IP云
IP云V管理员/5 阅读
08/07
提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

1.打开WORD文档，插入多张图片。

2.在word中按alt+f11组合键，进入VBA模式。

3.在左边的工程资源管理器中找到你的word文档，在其上右键/添加/模块

4.复制以下代码

Sub Macro()
Mywidth = 3.5 '10为图片宽度（厘米）
Myheigth = 6 '10为图片高度（厘米）
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub

5.点击运行。

搞定！