word2007中无法录制裁剪和改变图片大小的宏,自己编写吧!

打开word中宏编辑,拷进去就行。设定好指定的快捷键(宏指定快捷键的方法可以度娘哦!) 在word文档中,选定图片,点击快捷键,ok搞定!

sub 裁剪和改变图片大小()
'请手动填写图片裁剪和大小尺寸
left_cut = 3.51 '定义图片左边裁剪的大小 单位厘米
right_cut = 1.6 '定义图片右边裁剪的大小
top_cut = 0.69 '定义图片上边裁剪的大小
bottom_cut = 2.67 '定义图片下边裁剪的大小

pic_height = 9 '定义图片高度 单位厘米
pic_width = 15 '定义图片宽度
On Error Resume Next '忽略错误

scales = 1 / 0.03528 ' 一磅等于0.03528厘米

If Selection.InlineShapes.Count > 0 Then

With Selection.InlineShapes(1).PictureFormat

.CropBottom = bottom_cut * scales
.CropLeft = left_cut * scales
.CropRight = right_cut * scales
.CropTop = top_cut * scales

End With
Selection.InlineShapes(1).LockAspectRatio = msoFalse
Selection.InlineShapes(1).Height = pic_height * scales
Selection.InlineShapes(1).Width = pic_width * scales
Else
With Selection.ShapeRange(1).PictureFormat

.CropBottom = bottom_cut * scales
.CropLeft = left_cut * scales
.CropRight = right_cut * scales
.CropTop = top_cut * scales
End With
Selection.ShapeRange(1).LockAspectRatio = msoFalse
Selection.ShapeRange(1).Height = pic_height * scales
Selection.ShapeRange(1).Width = pic_width * scales

End If
end sub