批量处理和单个处理word图片大小和比例的宏Word格式文档下载.docx
- 文档编号:13168402
- 上传时间:2022-10-07
- 格式:DOCX
- 页数:4
- 大小:9.57KB
批量处理和单个处理word图片大小和比例的宏Word格式文档下载.docx
《批量处理和单个处理word图片大小和比例的宏Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《批量处理和单个处理word图片大小和比例的宏Word格式文档下载.docx(4页珍藏版)》请在冰豆网上搜索。
,w!
h=Selection.InlineShapes
(1).Height
w=Selection.InlineShapes
(1).Width
Selection.InlineShapes
(1).Height=627'
设置图片高度为627px
Selection.InlineShapes
(1).Width=407'
设置图片宽度407px
EndSub
设定单个图片比例的宏:
Sub宏3()
Selection.InlineShapes
(1).Height=h*1.25'
设置图片高度比例为125%
Selection.InlineShapes
(1).Width=w*0.77'
设置图片宽度比例为77%
批量设定图片大小的宏:
Subsetpicsize()'
设置图片大小
Dimn'
图片个数
OnErrorResumeNext'
忽略错误
Forn=1ToActiveDocument.InlineShapes.Count'
InlineShapes类型图片
ActiveDocument.InlineShapes(n).LockAspectRatio=msoFalse
ActiveDocument.InlineShapes(n).Height=400'
设置图片高度为400px
ActiveDocument.InlineShapes(n).Width=300'
设置图片宽度300px
Nextn
Forn=1ToActiveDocument.Shapes.Count'
Shapes类型图片
Selection.InlineShapes(n).LockAspectRatio=msoFalse
ActiveDocument.Shapes(n).Height=400'
ActiveDocument.Shapes(n).Width=300'
批量设定图片比例的宏
Sub宏1()
Dimpicwidth
Dimpicheight
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倍
picheight=ActiveDocument.Shapes(n).Height
picwidth=ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height=picheight*1.1'
ActiveDocument.Shapes(n).Width=picwidth*1.1'
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 批量 处理 单个 word 图片大小 比例