批量更改word中图片的宏命令.doc

《批量更改word中图片的宏命令.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Subsetpicsize()'Dimn'OnErrorResumeNext'Forn=1ToActiveDocument.InlineShapes.Count'ActiveDocument.InlineShapes(n).Height=155'ActiveDocument.InlineShapes(n).Width=207'NextnForn=1ToActiveDocument.Shapes.Count'ActiveDocument.Shapes(n).Height=155'ActiveDocument.Shapes(n).

2、Width=207'NextnEndSub155207代表宽和高宏点击新建，直接命令复制上运行即可。