怎么批量把word中的图片的大小都缩小

 我来答
妖感肉灵10
2022-12-11 · TA获得超过6.3万个赞
知道顶级答主
回答量:101万
采纳率:99%
帮助的人:2.3亿
展开全部

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 控件、图片等。

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式