调整图片大小的宏

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

本文来源：https://www.wddqw.com/doc/fbf6ed36ab114431b90d6c85ec3a87c241288a76.html

相关文章：

正在阅读：

调整图片大小的宏01-01

为什么王源和王俊凯都不理易烊千玺01-01

2017年中小学校三八妇女节演讲比赛方案01-01

父亲遭遇车祸以后-生活随笔01-01

##年区畜牧兽医局上半年工作总结01-01

比重变化量公式01-01

材料作文“关怀与冷漠”评析与标杆作文01-01

《夜空中最亮的星》歌词介绍01-01

教师听课的评语（精选10篇）01-01

上一篇：电脑故障维修：操作系统也会限制大容量硬盘下一篇：因特网中计算机域名的最高域名表示地区或组织性质