word中使用宏修改图片大小,图片大小相同
1、打开word中视图选项卡,选择“宏”->“输入宏名”->“创建”
2、编辑宏
输入下面代码
-
Sub FormatPics()
-
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
3、保存代码,选择对应的宏运行即可,左侧为图片修改后的大小