① Word中批量修改图片大小和缩放比例方法
最近小编遇到一个问题:需要将一篇word文档中的所有图片全部缩小比例。一张张改太麻烦了。于是从网上搜罗了一下,还真找到了解决办法。需要注意的地方 就是注意厘米与像素的换算关系。一般情况下1厘米=28px 。这个换算关系其实可以用计算器计算出来。计算公式为图片改变之后的像素除以改变之后图片的大小厘米。
固定长宽篇
这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽!
1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示,输入一个宏名,宏名自己起,能记住就行!
2、宏名起好了,单击“创建”进入Visual Basic 编辑器,输入如下代码并保存
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
Forn = 1 ToActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
Nextn
Forn = 1 ToActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
Nextn
End Sub
3、返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了!(图片多时,可能会花一些时间)
按比例缩放篇
这部分要说的是把word中的所有图片按比例缩放!
具体操作同上,只是代码部分稍做修改,代码如下:
Sub setpicsize() '设置图片大小
Dim n '图片个数
Dimpicwidth
Dimpicheight
On Error Resume Next '忽略错误
For n = 1 ToActiveDocument.InlineShapes.Count 'InlineShapes类型图片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍
ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍
Nextn
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍
ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍
Nextn
End Sub
若还想使所有图片居中对齐,可在循环中加入下面的语句:
ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter
‘左对齐:wdAlignParagraphLeft
注意:这里的Shapes(InlineShapes)不仅仅是指图片,也包含其它的,自选图形、任意多边形、OLE 对象、ActiveX 控件、图片等。
② 怎么批量把word中的图片的大小都缩小
word中的图片的大小都缩小是利用word中的工具:宏功能,对图片进行宽高设置,等比例缩放操作。具体的方法如下:
1.具体操作同上:打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示;
注意事项:
1.需要注意的地方 就是注意厘米与像素的换算关系。一般情况下1厘米=28px 。这个换算关系其实可以用计算器计算出来。计算公式为图片改变之后的像素除以改变之后图片的大小厘米。
2.这里的Shapes(InlineShapes)不仅仅是指图片,也包含其它的,自选图形、任意多边形、OLE 对象、ActiveX 控件、图片等。
③ word怎么缩放全部图片
word中的图片怎样整体缩放
WORD中的图片整体缩放的有如下三种方法:
1、先将图片格式设置为紧密型,根据图片四角出现的小标志可以完成整体缩放;
2、将图片粘贴到写字板,保存成一个完整文件,在幻灯片模式下查看,图片下面有按钮,调整缩放;
3、通过截图,重新在WORD文档中粘贴,通过鼠标滑轮整体缩放。
④ 怎么把word里面图片一起缩小
把word里面图片一起缩小的方法:
1、选中文档中所有的图片;
2、单击图片工具格式选项卡右下角如图所示的按钮;
⑤ 如何在word文档把所有图片同时缩小word怎么把所有的图片一起调整大小
在Word文档中同时缩小所有图片的方法如下:
1. 打开Word文档,在文档中找到需要缩小的图片位置。
2. 点击“插入”选项卡,然后在图片区域选择需要缩小的图片。如果文档中有多个位置需要插入图片,可以一次选择多张图片。
3. 选中图片后,可以看到图片的四周出现了调整手柄,这表示可以通过拖动这些手柄来调整图片的大小。
4. 将鼠标放在图片的右下角,当鼠标变成双向箭头时,按住Ctrl键并同时按住鼠标左键向下拖动,你会发现图片的宽度会随之缩小。
5. 同样地,将鼠标放在图片的左下角,按住Shift键并同时按住鼠标左键向上拖动,你会发现图片的高度会随之缩小。
6. 如果想要更精确地控制图片的大小,可以点击图片,然后在Word顶部的菜单栏中选择“格式”选项卡。在“格式”选项卡中,可以找到“大小”区域。在“大小”区域中,可以设置图片的高度和宽度。
7. 完成所有需要的调整后,保存你的文档即可。
以上步骤可以帮助你在Word文档中同时缩小所有图片。
⑥ 如何批量缩小word的文档中图片的大小
依次点击【文件】-【选项】-【编辑】,将图片插入粘贴为设置成【四周型】,按住【Ctrl】选中多张图片,点击【设置形状格式】的小三角,点击【大小】,取消【锁定纵横比】和【相对原始图片大小】,设置高度和宽度后,点击确定即可。