word宏命令等比例放大缩小所有图片或指定更改图片大小Word文件下载.docx
- 文档编号:14617179
- 上传时间:2022-10-23
- 格式:DOCX
- 页数:3
- 大小:126.72KB
word宏命令等比例放大缩小所有图片或指定更改图片大小Word文件下载.docx
《word宏命令等比例放大缩小所有图片或指定更改图片大小Word文件下载.docx》由会员分享,可在线阅读,更多相关《word宏命令等比例放大缩小所有图片或指定更改图片大小Word文件下载.docx(3页珍藏版)》请在冰豆网上搜索。
固定长宽篇代码
Sub
setpicsize()
'
设置图片大小
Dim
n
图片个数
On
Error
Resume
Next
忽略错误
For
=
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'
设置图片居中
ActiveDocument.Shapes.Count
Shapes类型图片
ActiveDocument.Shapes(n).Height
ActiveDocument.Shapes(n).Width
End
说明:
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'
ActiveDocument.Shapes(n).Width=picwidth*0.6'
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- word 命令 比例 放大 缩小 所有 图片 指定 更改 图片大小