word中选择宏,查看宏或者创建宏,不同版本的略有区别
输入宏名称,默认也可
在相应位置粘贴如下代码
Sub 批量调整图片大小()
'
' 批量调整图片大小 宏
'
'
Dim n ' 图片个数
On Error Resume Next ' 忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片
ActiveDocument.InlineShapes(n
word中选择宏,查看宏或者创建宏,不同版本的略有区别
输入宏名称,默认也可
在相应位置粘贴如下代码
Sub 批量调整图片大小()
'
' 批量调整图片大小 宏
'
'
Dim n ' 图片个数
On Error Resume Next ' 忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片
ActiveDocument.InlineShapes(n