怎么批量把word中的图片的大小都缩小
word中的图片的大小都缩小是利用word中的工具:宏功能,对图片进行宽高设置,等比例缩放操作。具体的方法如下:
1.具体操作同上:打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示;
2.输入一个宏名,宏名自己起,能记住就行;
3.宏名起好了,单击“创建”进入Visual Basic 编辑器,输入如下代码并保存。
Sub setpicsize() '设置图片大小、Dim n '图片个数、On Error Resume Next '忽略错误、Forn = 1、ToActiveDocument.InlineShapes.Count 'InlineShapes类型图片。
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 。
400pxActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 。
300pxNextnForn = 1 ToActiveDocument.Shapes.Count 'Shapes类型图片。
ActiveDocument.Shapes(n).Height = 400 '设置图片高度。
400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300pxNextnEnd Sub。
返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了!(图片多时,可能会花一些时间);
4.若还想使所有图片居中对齐,可在循环中加入下面的语句:
ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter‘左对齐:wdAlignParagraphLeft。
注意事项:
1.需要注意的地方 就是注意厘米与像素的换算关系。一般情况下1厘米=28px 。这个换算关系其实可以用计算器计算出来。计算公式为图片改变之后的像素除以改变之后图片的大小厘米。
2.这里的Shapes(InlineShapes)不仅仅是指图片,也包含其它的,自选图形、任意多边形、OLE 对象、ActiveX 控件、图片等。