Word 批量处理插入图片大小
需积分: 50 18 浏览量
2015-11-10
23:51:13
上传
评论 1
收藏 23KB DOC 举报
Word 批量处理插入图片大小
F8 打开宏->输入名字，创建新宏代码->输入以下代码，保
存->关闭界面，选中其中一个图片->F8，点击运行
Sub Play()
Dim n
On Error Resume Next
For n = 1 To AcveDocument.InlineShapes.Count
AcveDocument.InlineShapes(n).Height = 600
AcveDocument.InlineShapes(n).Width = 400
Next n
For n = 1 To AcveDocument.Shapes.Count
AcveDocument.Shapes(n).Height = 400
AcveDocument.Shapes(n).Width = 300
Next n
End Sub
资源评论
CaddressL
- 粉丝: 2
- 资源: 2
