word 里怎么批量修改图片大小？

发布网友发布时间：2022-04-21 08:16

共1个回答

热心网友时间：2023-10-17 00:59

1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！\x0d\x0a2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存\x0d\x0aSub setpicsize() '设置图片大小\x0d\x0aDim n '图片个数\x0d\x0aOn Error Resume Next '忽略错误\x0d\x0aFor n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片\x0d\x0aActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px\x0d\x0aActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px\x0d\x0aNext n\x0d\x0aFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片\x0d\x0aActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px\x0d\x0aActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px\x0d\x0aNext n\x0d\x0aEnd Sub\x0d\x0a这样就可以了！