如何让word里面的图片变成统一大小
2个回答
展开全部
在word排版中,如果内容有多个图片,您想把所有图片变成统一大小,图片少你可以手拖拉,但是如果是几十张上百张,累死人。
本经验根据作者多次辛苦的摸索和寻找,终于找到一个好方法,一劳永逸。就是使用word的宏。
工具/原料
word
pc
步骤
准备图片,我就以5张图片为例吧。
打开word,导入图片。
插入-图片,选择图片插入,进入目录后,Ctrl+A即可选择全部。
按Alt+F8,进入宏编辑窗口。
首先输入宏名称,然后点击新建即可。
在代码窗口中输入如下代码:
Dim iSha As InlineShapeFor Each iSha In ActiveDocument.InlineShapes If iSha.Type = wdInlineShapePicture Then iSha.LockAspectRatio = msoFalse '不锁定纵横比 iSha.Width = CentimetersToPoints(9#) '宽5CM iSha.Height = CentimetersToPoints(9.2) '高5CM End If Next
点击运行,
运行后,关闭宏编辑窗口,放心,关闭窗口后,宏还在,可以不保存。
本经验根据作者多次辛苦的摸索和寻找,终于找到一个好方法,一劳永逸。就是使用word的宏。
工具/原料
word
pc
步骤
准备图片,我就以5张图片为例吧。
打开word,导入图片。
插入-图片,选择图片插入,进入目录后,Ctrl+A即可选择全部。
按Alt+F8,进入宏编辑窗口。
首先输入宏名称,然后点击新建即可。
在代码窗口中输入如下代码:
Dim iSha As InlineShapeFor Each iSha In ActiveDocument.InlineShapes If iSha.Type = wdInlineShapePicture Then iSha.LockAspectRatio = msoFalse '不锁定纵横比 iSha.Width = CentimetersToPoints(9#) '宽5CM iSha.Height = CentimetersToPoints(9.2) '高5CM End If Next
点击运行,
运行后,关闭宏编辑窗口,放心,关闭窗口后,宏还在,可以不保存。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询