调整图片大小的宏

2022-04-26 07:50:12 文档大全网 [ 字体：小中大 ] [ 阅读： ]

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《调整图片大小的宏》，欢迎阅读！
大小,调整,图片
批量调整图片大小的宏

1、Alt+F8调出宏编辑窗口

2、输入宏名“XXX”后，点“创建”按钮在编辑器中输入以下红字内容：

Sub setpicsize() ’设置图片大小 Dim n '图片个数

On Error Resume Next '忽略错误

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片

ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比

ActiveDocument.InlineShapes(n).Height = 82 '设置图片高度 ActiveDocument.InlineShapes(n).Width = 117 '设置图片宽度 Next n End Sub

3、保存退出，点运行“图片”宏，word中所有的图片统一调整为设定的高度及宽度。