word中如何将大量图片批处理统一的尺寸大小？谢谢！

发布网友 发布时间：2022-02-24 16:04

我来回答

共2个回答

热心网友 时间：2022-02-24 17:33

设置图片高度为
99px
ActiveDocument.InlineShapes(n).Height
=
99
'忽略错误
For
n
=
1
To
ActiveDocument：（之后单击运行即可）
Dim
n
'.Width
=
71
'；
在Sub
宏名()与End
Sub之间编写如下代码;设置图片宽度
71px
Next
n
For
n
=
1
To
ActiveDocument;InlineShapes类型图片
ActiveDocument.InlineShapes.Shapes.InlineShapes(n);设置图片高度为
99px
ActiveDocument.Width
=
71
'.Shapes(n)，输入宏名——（非数字）——创建.Height
=
99
'.Shapes(n)选择工具——宏——宏(Alt+F8调出宏编辑窗口).Count
'图片个数
On
Error
Resume
Next
'Shapes类型图片
ActiveDocument.Count
'

热心网友 时间：2022-02-24 18:51

选择工具——宏——宏(Alt+F8调出宏编辑窗口)，输入宏名——（非数字）——创建；
在Sub
宏名()与End
Sub之间编写如下代码：（之后单击运行即可）
Dim
n
'图片个数
On
Error
Resume
Next
'忽略错误
For
n
=
1
To
ActiveDocument.InlineShapes.Count
'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height
=
99
'设置图片高度为
99px
ActiveDocument.InlineShapes(n).Width
=
71
'设置图片宽度
71px
Next
n
For
n
=
1
To
ActiveDocument.Shapes.Count
'Shapes类型图片
ActiveDocument.Shapes(n).Height
=
99
'设置图片高度为
99px
ActiveDocument.Shapes(n).Width
=
71
'设置图片宽度
71px
Next
n