Word中批量修改图片大小
由于word不是专业的图片编辑工具，因此只能利用宏的强大功能来实现批量修改图片大小。
?
在word中按Alt+F8打开宏创建窗口，输入宏名之后（如resize_pics），点击“创建”按钮进入VisualBasic编辑器窗口，将如下代码复制到VisualBasic编辑器窗口的EndSub上面一行：
Dimn''图片个数
OnErrorResumeNext''忽略错误
Forn=1ToActiveDocument.InlineShapes.Count''InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height=400''设置图片高度为400px
ActiveDocument.InlineShapes(n).Width=300''设置图片宽度300px
Nextn
Forn=1ToActiveDocument.Shapes.Count''Shapes类型图片
ActiveDocument.Shapes(n).Height=400''设置图片高度为400px
ActiveDocument.Shapes(n).Width=300''设置图片宽度300px
Nextn
然后关掉VB编辑器窗口，在word中按Alt+F8重新打开宏窗口，选择刚才创建的宏，单击“运行”按钮即可批量修改word中的图片大小。
|
|
