宏定义批量改图片_后续再完善

Sub 批量设置图片格式()
'
' 批量设置图片格式 宏
'
'

'定义变量
Dim picwidth
Dim picheight

On Error Resume Next '忽略错误

'按照固定大小缩放，保持比例
picheight = 5  '单位厘米，可修改
'picwidth = 2.5  '单位厘米，可修改

''类型1：嵌入式图形 InlineShapes类型图片
For Each Shape In ActiveDocument.InlineShapes
'msoFalse是不锁定纵横比，msoTrue是锁定（默认）。
Shape.LockAspectRatio = msoTrue

'按照固定大小缩放, 两行删一行即可
Shape.Height = picheight * 28.35 '设置图片高度为 10cm （1cm等于28.35px）
'Shape.Width = picwidth * 28.35 '设置图片宽度8cm

Next

''类型2：非嵌入式图形，Shapes类型图片
For Each Shape In ActiveDocument.Shapes

'按照固定大小缩放, 两行删一行即可
Shape.Height = picheight * 28.35 '设置图片高度为 10cm （1cm等于28.35px）
'Shape.Width = picwidth * 28.35 '设置图片