欢迎来到天天文库
浏览记录
ID:51306909
大小:236.01 KB
页数:5页
时间:2020-03-10
《word中图片如何统一大小.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、操作步骤如下:1.打开要统一图片大小的Word文档,点击“工具”-“宏”-“VisualBiscal编辑器。2)插入normal工程“模块”。 3)在“模块”中粘贴下面的代码。SubbatchResizeShape()DimdocAsDocumentDimiAsIntegerSetdoc=ActiveDocumentFori=1Todoc.InlineShapes.Count'doc.InlineShapes'doc.Shapes(i).ScaleHeight0.5,msoFalse,msoScaleFromMiddle'doc.Shapes(i).
2、ScaleWidth0.5,msoFalse,msoScaleFromMiddledoc.InlineShapes(i).Height=198.15doc.InlineShapes(i).Width=264.45NextiEndSub4)保存,返回你要统一图片大小的Word文档。运行“工具”-“宏”-"宏命令"。看一下结果,是不是你想要的统一图片大小。我用的两张图一个大一个小,统一后400*300还是很大,放在两个页面上,上面是25%的缩略图,至此实现了统一大小的目标,如果你想要其它的大小,只需按代码里的说明更改一下长宽数值即可。
此文档下载收益归作者所有