word宏命令等比例放大缩小所有图片或指定更改图片大小.docx
- 文档编号:1694847
- 上传时间:2022-10-23
- 格式:DOCX
- 页数:3
- 大小:126.72KB
word宏命令等比例放大缩小所有图片或指定更改图片大小.docx
《word宏命令等比例放大缩小所有图片或指定更改图片大小.docx》由会员分享,可在线阅读,更多相关《word宏命令等比例放大缩小所有图片或指定更改图片大小.docx(3页珍藏版)》请在冰豆网上搜索。
需要将一篇word文档中的所有图片全部缩小比例,怎么办?
一张张改太麻烦了。
可以用Word里宏命令的批量处理解决。
需要注意的地方就是注意厘米与像素的换算关系。
一般情况下1厘米=28px。
这个换算关系其实可以用计算器计算出来。
计算公式为图片改变之后的像素除以改变之后图片的大小厘米。
固定长宽篇代码
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
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.Shapes.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.Alignment=wdAlignParagraphCenter'设置图片居中可以让图片居中,Left、Right可以分别设置左对齐、右对齐。
3.全文如果有“手动换行符”↓(代码是^l),设置某一部分居中时会影响漆上下部分的居中与否,因而,如果需要只对图片进行居中,则需先将全文中的↓替换成“段落标记符”(常规回车键,代码是^p)。
4.这里的Shapes(InlineShapes)不仅仅是指图片,也包含其它的,自选图形、任意多边形、OLE对象、ActiveX控件、图片等。
5.InlineShapes类型图片与Shapes类型图片的区别有待研究。
按比例缩放篇代码
Subsetpicsize()'设置图片大小
Dimn
Dimpicwidth
Dimpicheight
OnErrorResumeNext'忽略错误
Forn=1ToActiveDocument.InlineShapes.Count'InlineShapes类型图片
picheight=ActiveDocument.InlineShapes(n).Height
picwidth=ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height=picheight*0.6'设置高度为0.6倍
ActiveDocument.InlineShapes(n).Width=picwidth*0.6'设置宽度为0.6倍
Nextn
Forn=1ToActiveDocument.Shapes.Count'Shapes类型图片
picheight=ActiveDocument.Shapes(n).Height
picwidth=ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height=picheight*0.6'设置高度为0.6倍
ActiveDocument.Shapes(n).Width=picwidth*0.6'设置宽度为0.6倍
Nextn
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- word 命令 比例 放大 缩小 所有 图片 指定 更改 图片大小
![提示](https://static.bdocx.com/images/bang_tan.gif)