批量调整word 图片大小

打开文档后,按Alt+F11,在左边Porject下找到ThisDocument,右键插入模块,贴上下面的

Sub Macro()
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = iShape.Height * 0.25
iShape.Width = iShape.Width * 0.25
Next iShape
End Sub

按F5运行一次就可以了。
posted @   Sunny Qiang  阅读(260)  评论(0编辑  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示