百度
去
百度文库，查看完整内容> 内容来自用户:李敏
word批量修改图片大小
word批量修改图片大小——固定长宽篇这部分要说的是把
word中的所有图片修改成固定的并且相同的长和宽！1、打开
word，工具－宏－宏进乱值究杨著燃响入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！2、宏名起好了，单击“创建”进入Visual Basic编辑器，输入如下代码并保存Sub setpics效属天眼低状守ize ‘设置图片大小Dim n’图片个数On Error Resume Next ‘忽略错误For n = 1 To ‘InlineShapes类型图片= 400 ‘设置图片高度为400px = 300 ‘设置图片宽度300pxNext nFor n = 1 To ‘Shapes类型图片= 400 ‘设置图片高度为400px = 300 ‘设置图片宽度300pxNext nEnd Sub3、返回
word，工具－宏－宏，再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！
word批量修改图片大小——按比例缩放篇这部分要说的是把
word中的所有图片按比例缩放！具
体操作同上，只是代码部分稍做修改，代码如下：Sub setpicsize ‘设置图片大小Dim n’图片个数Dim picwidthDim picheightOn Error Resume Next ‘忽略错误For n = 1 To ‘InlineShapes类型图片picheight = picwidth = = picheight * ‘设置高度为倍= picwidth * ‘设置宽度为倍Next nFor n = 1 To ‘Shapes类型图片picheight = picwidth = = picheight * ‘设置高度为倍= picwidth * ‘设置宽度为倍Next nEnd Sub
