word宏命令等比例放大缩小所有图片或指定更改图片大小.docx

《word宏命令等比例放大缩小所有图片或指定更改图片大小.docx》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、需要将一篇word文档中的所有图片全部缩小比例，怎么办？一张张改太麻烦了。可以用Word里宏命令的批量处理解决。需要注意的地方就是注意厘米与像素的换算关系。一般情况下1厘米=28px。这个换算关系其实可以用计算器计算出来。计算公式为图片改变之后的像素除以改变之后图片的大小厘米。固定长宽篇代码Sub setpicsize() '设置图片大小  Dim n '图片个数  On Error Resume Next '忽略错误  For n = 1 To ActiveDocument.InlineShapes.Count 'In

2、lineShapes类型图片  ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px  ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px  ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment=wdAlignParagraphCenter'设置图片居中Next n  For n = 1 To ActiveDocument.S

3、hapes.Count 'Shapes类型图片  ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px  ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px  Next n  End Sub  说明：1.VB语言中对图片大小的设置是以原图的长宽等比在缩放，统一设置时默认优先对齐所有图片的“宽度”。2.ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignmen

4、t=wdAlignParagraphCenter'设置图片居中可以让图片居中，Left、Right可以分别设置左对齐、右对齐。3.全文如果有“手动换行符”↓（代码是^l），设置某一部分居中时会影响漆上下部分的居中与否，因而，如果需要只对图片进行居中，则需先将全文中的↓替换成“段落标记符”（常规回车键，代码是^p）。4.这里的Shapes（InlineShapes）不仅仅是指图片，也包含其它的，自选图形、任意多边形、OLE对象、ActiveX控件、图片等。5.InlineShapes类型图片与Shapes类型图片的区别有待

5、研究。按比例缩放篇代码Subsetpicsize()'设置图片大小DimnDimpicwidthDimpicheightOnErrorResumeNext'忽略错误Forn=1ToActiveDocument.InlineShapes.Count'InlineShapes类型图片picheight=ActiveDocument.InlineShapes(n).Heightpicwidth=ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).

6、Height=picheight*0.6'设置高度为0.6倍ActiveDocument.InlineShapes(n).Width=picwidth*0.6'设置宽度为0.6倍NextnForn=1ToActiveDocument.Shapes.Count'Shapes类型图片picheight=ActiveDocument.Shapes(n).Heightpicwidth=ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height=picheight*0

7、.6'设置高度为0.6倍ActiveDocument.Shapes(n).Width=picwidth*0.6'设置宽度为0.6倍NextnEndSub