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

《批量更改word中图片的宏命令》由会员分享，可在线阅读，更多相关《批量更改word中图片的宏命令（1页珍藏版）》请在金锄头文库上搜索。

Sub setpicsize() Dim n On Error Resume Next For n = 1 To ActiveDocument.InlineShapes.Count ActiveDocument.InlineShapes(n).Height = 155 ActiveDocument.InlineShapes(n).Width = 207 Next nFor n = 1 To ActiveDocument.Shapes.Count ActiveDocument.Shapes(n).Height = 155 ActiveDocument.Shapes(n).Width = 207 Next nEnd Sub155 207代表宽和高宏点击新建，直接命令复制上运行即可。