调整图片大小的宏

2022-04-26 07:50:12   第一文档网     [ 字体: ] [ 阅读: ] [ 文档下载 ]
说明:文章内容仅供预览,部分内容可能不全。下载后的文档,内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的,是否完整无缺。下载word有问题请添加QQ:admin处理,感谢您的支持与谅解。点击这里给我发消息

#第一文档网# 导语】以下是®第一文档网的小编为您整理的《调整图片大小的宏》,欢迎阅读!
大小,调整,图片

批量调整图片大小的宏

1Alt+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中所有的图片统一调整为设定的高度及宽度。


本文来源:https://www.dywdw.cn/fbf6ed36ab114431b90d6c85ec3a87c241288a76.html

相关推荐
推荐阅读