第一步:
打开含有要编辑图片的word,快捷键:Alt+F8 调出宏窗口,输入宏名称:批量设置图片格式,点击创建。
第一步:
将下方的代码复制粘贴到编辑栏里,简单的编辑图片的宽和高,只要在 picheight = picwidth = 输入想要的数值,就可以了。
我一般是不锁定纵横比的,这样宽和高就可以自由调整。程序默认是锁定纵横比,如果要设为不锁定纵横比,则如代码中一样,输入Shape.LockAspectRatio = msoFalse
第三步:运行(点击绿色三角形),运行完可看编辑后的效果。
第四步:保存。
代码如下(如果要注释掉某内容,使其不产生作用,在内容前面输单引号)
Sub 批量设置图片格式()
' 批量设置图片格式 宏
'定义变量
Dim picwidth
Dim picheight
On Error Resume Next '忽略错误
'按照固定大小缩放
picheight = 10 '单位厘米,可修改
picwidth = 14.58 '单位厘米,可修改
''类型1:嵌入式图形 InlineShapes类型图片
For Each Shape In ActiveDocument.InlineShapes
'msoFalse是不锁定纵横比
Shape.LockAspectRatio = msoFalse
'按照固定大小缩放
Shape.Height = picheight * 28.35 '设置图片高度为 10cm (1cm等于28.35px)
Shape.Width = picwidth * 28.35 '设置图片宽度8cm
Next
''类型2:非嵌入式图形,Shapes类型图片
For Each Shape In ActiveDocument.Shapes
'msoFalse是不锁定纵横比
Shape.LockAspectRatio = msoFalse
'按照固定大小缩放
Shape.Height = picheight * 28.35 '设置图片高度为 10cm (1cm等于28.35px)
Shape.Width = picwidth * 28.35 '设置图片宽度8cm
Next
End Sub