批量处理和单个处理word图片大小和比例的宏Word格式文档下载.docx

批量处理和单个处理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'