① 如何批量修改word文档中图片的大小
一次性调节word所有图片方法如下:
打开WORD,在”工具“菜单下,选择”选项“命令,在”选项“窗口中,”编辑”选项卡下,将插入图片的格式选择为“四周型”。在“插入”菜单中选择“图片”/“来自文件”,在“插入图片“对话框中选择要插入的图片。
然后在“绘图”工具栏中的“添加或删除按钮”中选择“选中多个对象”,使用“选中多个对象”,将所有插入的图片全部选中。双击任意一图片,在弹出的对余雹话框中,就可以统一批量设置了,完成。
在word中,默认插入的嵌入式图片是不能批量统一设置,只有将默认修改为四周型后,才可以批差毁皮量修改图片版式或大小。
用宏命令虚差最省心:
代码1如下:
Sub setpicsize()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
If iSha.Type = wdInlineShapePicture Then
iSha.LockAspectRatio = msoFalse '不锁定纵横比
iSha.Width = CentimetersToPoints(5) '宽5CM
iSha.Height = CentimetersToPoints(5) '高5CM
End If
Next
End Sub
代码2如下:
Sub setpicsize()
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数,图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Height = 300 '设置高度10.58cm
ActiveDocument.InlineShapes(j).Width = 510 '设置宽度17.99cm
Next j
End Sub